Class TUPCalendar (unit uUPCalendar)

Inherits from

TCalendar

Constructors


constructor Create(aOwner: TComponent);

Protected declarations


Functions

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

Private declarations

procedure SetActiveDayColor(Value: TColor);


procedure SetWeekendColor(Value: TColor);


procedure WMSize(var Message: TWMSize);

InflateRect(aRect, 0, -2);

Properties

property ColorActiveDay : TColor


property ColorWeekendDays : TColor

Public declarations

Events

Variables

FActiveDayColor : TColor;


FWeekendColor : TColor;



Constructors


constructor Create(aOwner: TComponent);

Protected declarations


Functions


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

Private declarations


procedure SetActiveDayColor(Value: TColor);


procedure SetWeekendColor(Value: TColor);


procedure WMSize(var Message: TWMSize);

InflateRect(aRect, 0, -2);


Properties


property ColorActiveDay : TColor


property ColorWeekendDays : TColor

Public declarations


Events


Variables


FActiveDayColor : TColor;


FWeekendColor : TColor;