Summary Table

Categories Total Count
PII 0
URL 0
DNS 0
EKL 0
IP 0
PORT 0
VsID 0
CF 0
AI 0
VPD 0
PL 0
Other 0

File Content

unit ORDtTmCal;

interface

uses SysUtils, Windows, Classes, Graphics, Grids, Calendar;

type
TORCalendar = class(TCalendar)
protected
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override;
end;

procedure Register;

implementation

{ TORCalendar ------------------------------------------------------------------------------- }

procedure TORCalendar.DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState);
{ uses the Calendar that is part of Samples and highlights the current date }
var
TheText: string;
CurMonth, CurYear, CurDay: Word;
begin
TheText := CellText[ACol, ARow];
with ARect, Canvas do
begin
DecodeDate(Date, CurYear, CurMonth, CurDay);
if (CurYear = Year) and (CurMonth = Month) and (IntToStr(CurDay) = TheText) then
begin
TheText := '[' + TheText + ']';
Font.Style := [fsBold];
end;
TextRect(ARect, Left + (Right - Left - TextWidth(TheText)) div 2,
Top + (Bottom - Top - TextHeight(TheText)) div 2, TheText);
end;
end;

procedure TORCalendar.KeyDown(var Key: Word; Shift: TShiftState);
begin
inherited;
if Key = VK_PRIOR then
CalendarDate := IncMonth(CalendarDate,-1)
else if Key = VK_NEXT then
CalendarDate := IncMonth(CalendarDate,1);
end;

procedure Register;
{ used by Delphi to put components on the Palette }
begin
RegisterComponents('CPRS', [TORCalendar]);
end;

end.