Class TRngSelCalendar (unit Enhcalnd)

Inherits from

TStringsCalendar

Constructors


constructor Create(AOwner: TComponent);

public declarations

TRngSelCalendar



Functions

procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

protected declarations

defaults


procedure SetEndDate(Value: TDateTime);


procedure SetStartDate(Value: TDateTime);


Properties

property RangeColor : TColor

published declarations

property EndDate : TDateTime


property StartDate : TDateTime


Events

event OnRngSelect : TNotifyEvent


Variables

FEndDate : TDateTime;


FOnRngSelect : TNotifyEvent;


FRangeColor : TColor;

private declarations

FStartDate : TDateTime;



Constructors


constructor Create(AOwner: TComponent);

public declarations

TRngSelCalendar


Functions


procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

protected declarations

defaults


procedure SetEndDate(Value: TDateTime);


procedure SetStartDate(Value: TDateTime);


Properties


property RangeColor : TColor

published declarations


property EndDate : TDateTime


property StartDate : TDateTime


Events


event OnRngSelect : TNotifyEvent


Variables


FEndDate : TDateTime;


FOnRngSelect : TNotifyEvent;


FRangeColor : TColor;

private declarations


FStartDate : TDateTime;