paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 21:04:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: cleanup TCalendarDialog

Browse Source 
git-svn-id: trunk@19088 -
This commit is contained in:
paul 2009-03-24 10:11:29 +00:00
parent 096157088e
commit 802244bbfa
1 changed files with 11 additions and 18 deletions

29
lcl/extdlgs.pas
View File

@ -210,25 +210,22 @@ Type
procedure GetNewDate(Sender:TObject);//or onClick
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function Execute: Boolean; override;
published
property Date: TDateTime Read FDate Write FDate;
property Date: TDateTime read FDate write FDate;
property OnDayChanged: TNotifyEvent read FDayChanged write FDayChanged;
property DisplaySettings: TDisplaySettings Read FDisplaySettings Write FDisplaySettings;
property DisplaySettings: TDisplaySettings read FDisplaySettings write FDisplaySettings default DefaultDisplaySettings;
property HelpContext: THelpContext read FHelpContext write FHelpContext default 0;
property OnMonthChanged: TNotifyEvent read FMonthChanged write FMonthChanged;
property OnYearChanged: TNotifyEvent read FYearChanged write FYearChanged;
property DialogPosition: TPosition read FDialogPosition write FDialogPosition default poMainFormCenter;
property DialogTitle:TCaption Read FDialogTitle Write FDialogTitle Stored IsTitleStored;
property OKCaption:TCaption Read FOKCaption Write FOKCaption;
property CancelCaption:TCaption Read FCancelCaption Write FCancelCaption;
property DialogTitle:TCaption read FDialogTitle write FDialogTitle stored IsTitleStored;
property OKCaption:TCaption read FOKCaption write FOKCaption;
property CancelCaption:TCaption read FCancelCaption write FCancelCaption;
end;
procedure Register;
implementation
@ -1173,16 +1170,12 @@ end;
constructor TCalendarDialog.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Date:=trunc(Now);
DialogPosition:=poMainFormCenter;
DialogTitle:=rsPickDate;
OKCaption:=rsMbOK;
CancelCaption:=rsMbCancel;
end;
destructor TCalendarDialog.Destroy;
begin
inherited Destroy;
DisplaySettings := DefaultDisplaySettings;
Date := trunc(Now);
DialogPosition := poMainFormCenter;
DialogTitle := rsPickDate;
OKCaption := rsMbOK;
CancelCaption := rsMbCancel;
end;
procedure TCalendarDialog.GetNewDate(Sender:TObject);//or onClick