Class TsCustomCalendar (unit sPickDate)

Inherits from

TCustomControl

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;



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;