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

TCalendarDialog: implement OnChange event.

Browse Source 
git-svn-id: trunk@46792 -
This commit is contained in:
bart 2014-11-09 18:41:00 +00:00
parent 311f06d24a
commit 2ece5f8498
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/extdlgs.pas
View File

@ -211,6 +211,7 @@ Type
FDisplaySettings: TDisplaySettings;
FMonthChanged: TNotifyEvent;
FYearChanged: TNotifyEvent;
FOnChange: TNotifyEvent;
FOKCaption:TCaption;
FCancelCaption:TCaption;
FCalendar:TCalendar;
@ -219,6 +220,7 @@ Type
procedure OnCalendarDayChanged(Sender: TObject);
procedure OnCalendarMonthChanged(Sender: TObject);
procedure OnCalendarYearChanged(Sender: TObject);
procedure OnCalendarChange(Sender: TObject);
protected
class procedure WSRegisterClass; override;
procedure GetNewDate(Sender:TObject);//or onClick
@ -233,6 +235,7 @@ Type
property OnDayChanged: TNotifyEvent read FDayChanged write FDayChanged;
property OnMonthChanged: TNotifyEvent read FMonthChanged write FMonthChanged;
property OnYearChanged: TNotifyEvent read FYearChanged write FYearChanged;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
property OKCaption:TCaption read FOKCaption write FOKCaption;
property CancelCaption:TCaption read FCancelCaption write FCancelCaption;
end;
@ -1314,6 +1317,11 @@ begin
if Assigned(FYearChanged) then FYearChanged(Self);
end;
procedure TCalendarDialog.OnCalendarChange(Sender: TObject);
begin
//Date already updated in OnCalendarXXXChanged
if Assigned(FOnChange) then FOnChange(Self);
end;
class procedure TCalendarDialog.WSRegisterClass;
begin
@ -1353,6 +1361,7 @@ begin
OnDayChanged:=@Self.OnCalendarDayChanged;
OnMonthChanged:=@Self.OnCalendarMonthChanged;
OnYearChanged:=@Self.OnCalendarYearChanged;
OnChange:=@Self.OnCalendarChange;
OnDblClick:=@CalendarDblClick;
end;