| Class TsCustomCalendar (unit sPickDate) |
TCustomControl
| Constructors |
constructor Create( AOwner: TComponent );| Functions |
destructor Destroy;
procedure Accept;
procedure CalculateSize( var AHeight, AWidth: Integer);
procedure Cancel;
procedure CreateParams(var Params: TCreateParams);
procedure DateChanged(Sender: TObject);
procedure DrawFocusFrame(nIndex : Integer);
function GetCalendarRect : TRect;
function GetIndexFromPoint(nLeft : Integer ; nTop : Integer) : Integer;
function GetLeftButtonRect : TRect;
function GetRectFromIndex(nIndex : Integer): TRect;
function GetRightButtonRect : TRect;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyPress(var Key: Char);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Paint;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
procedure CMFontChanged(var Message: TMessage);
function GetBeginingOfWeek: Integer;
function GetFont: TFont;
procedure GetFontMetrics;
procedure SetBeginingOfWeek(Value: Integer);
procedure SetBevel(Value: TCalendarBevelStyle);
procedure SetBorderStyle(Value: TBorderStyle);
procedure SetFont(Value: TFont);
procedure StopTracking;
procedure TrackLeftButton(X,Y: Integer);
procedure TrackRightButton(X,Y: Integer);| Properties |
property Color :
property Date : TsDate
property BeginingOfWeek : Integer
property Bevel : TCalendarBevelStyle
property BorderStyle : TBorderStyle
property Font : TFont| Events |
event OnAccept : TNotifyEvent
event OnCancel : TNotifyEvent
event OnDateChange : TNotifyEvent| Variables |
FBevel : TCalendarBevelStyle;
FBorderStyle : TBorderStyle;
FButtonWidth : Integer;
FDate : TsDate;
FFontHeight : Integer;
FFontWidth : Integer;
FLeftPressed : Boolean;
FLeftTracking : Boolean;
FMouseDown : Boolean;
FOnAccept : TNotifyEvent;
FOnCancel : TNotifyEvent;
FOnDateChange : TNotifyEvent;
FPopup : Boolean;
FPreviousDateRect : TRect;
FRightPressed : Boolean;
FRightTracking : Boolean;| Constructors |
constructor Create( AOwner: TComponent );| Functions |
destructor Destroy;
procedure Accept;
procedure CalculateSize( var AHeight, AWidth: Integer);
procedure Cancel;Recalculate
procedure CreateParams(var Params: TCreateParams);
procedure DateChanged(Sender: TObject);Determine the day number of the selected date
procedure DrawFocusFrame(nIndex : Integer);
function GetCalendarRect : TRect;
function GetIndexFromPoint(nLeft : Integer ; nTop : Integer) : Integer;
function GetLeftButtonRect : TRect;
function GetRectFromIndex(nIndex : Integer): TRect;
function GetRightButtonRect : TRect;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyPress(var Key: Char);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Paint;Draw the Date in Bold font
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);DrawDates
procedure CMFontChanged(var Message: TMessage);
function GetBeginingOfWeek: Integer;
function GetFont: TFont;
procedure GetFontMetrics;
procedure SetBeginingOfWeek(Value: Integer);
procedure SetBevel(Value: TCalendarBevelStyle);
procedure SetBorderStyle(Value: TBorderStyle);
procedure SetFont(Value: TFont);
procedure StopTracking;
procedure TrackLeftButton(X,Y: Integer);
procedure TrackRightButton(X,Y: Integer);| Properties |
property Color :
property Date : TsDate
property BeginingOfWeek : Integer
property Bevel : TCalendarBevelStyle
property BorderStyle : TBorderStyle
property Font : TFont| Events |
event OnAccept : TNotifyEvent
event OnCancel : TNotifyEvent
event OnDateChange : TNotifyEvent| Variables |
FBevel : TCalendarBevelStyle;
FBorderStyle : TBorderStyle;
FButtonWidth : Integer;
FDate : TsDate;
FFontHeight : Integer;
FFontWidth : Integer;
FLeftPressed : Boolean;
FLeftTracking : Boolean;
FMouseDown : Boolean;
FOnAccept : TNotifyEvent;
FOnCancel : TNotifyEvent;
FOnDateChange : TNotifyEvent;
FPopup : Boolean;
FPreviousDateRect : TRect;
FRightPressed : Boolean;
FRightTracking : Boolean;