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

LCL, added OnCustomDate event to TDateEdit, user get opportunity to do custom date formating

Browse Source 
git-svn-id: trunk@14138 -
This commit is contained in:
jesus 2008-02-14 22:04:59 +00:00
parent 5066ff60d0
commit 769eb407d2
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/editbtn.pas
View File

@ -309,6 +309,7 @@ type
TAcceptDateEvent = Procedure (Sender : TObject; Var ADate : TDateTime;
Var AcceptDate: Boolean) of Object;
TCustomDateEvent = procedure (Sender : TObject; var ADate : string) of object;
{ TDateEdit }
@ -318,6 +319,7 @@ type
FDialogTitle: TCaption;
FDisplaySettings: TDisplaySettings;
FOnAcceptDate: TAcceptDateEvent;
FOnCustomDate: TCustomDateEvent;
FOKCaption: TCaption;
FCancelCaption: TCaption;
FDateFormat:string;
@ -339,6 +341,7 @@ type
property DialogTitle:TCaption read FDialogTitle write FDialogTitle Stored IsStoreTitle;
property CalendarDisplaySettings : TDisplaySettings read FDisplaySettings write FDisplaySettings;
property OnAcceptDate : TAcceptDateEvent read FOnAcceptDAte write FOnAcceptDate;
property OnCustomDate : TCustomDateEvent read FOnCustomDate write FOnCustomDate;
property OKCaption:TCaption read FOKCaption write FOKCaption;
property CancelCaption:TCaption read FCancelCaption write FCancelCaption;
property ReadOnly default true;
@ -945,11 +948,18 @@ begin
end;
function TDateEdit.GetDate: TDateTime;
var
ADate: string;
begin
if FDefaultToday then Result := SysUtils.Date
else Result := NullDate;
if Trim(Text)<>'' then
Result := StrToDateDef(Text, Result);
ADate := Trim(Text);
if ADate<>'' then
begin
if Assigned(FOnCustomDate) then
FOnCustomDate(Self, ADate);
Result := StrToDateDef(ADate, Result);
end;
end;
function TDateEdit.IsStoreTitle: boolean;