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

Merged revision(s) 52760 #42fe1e0f32 from trunk:

Browse Source 
EditBtn: remove obsolete properties TDateEdit.OKCaption and TDateEdit.CancelCaption (they pollute .po files). Issue #0030031.
........

git-svn-id: branches/fixes_1_6@52889 -
This commit is contained in:
maxim 2016-08-29 22:12:49 +00:00
parent fa82812d16
commit 3530cfd8f2
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/editbtn.pas
View File

@ -765,8 +765,6 @@ type
FDroppedDown: Boolean;
FOnAcceptDate: TAcceptDateEvent;
FOnCustomDate: TCustomDateEvent;
FOKCaption: TCaption;
FCancelCaption: TCaption;
FFixedDateFormat: string; //used when DateOrder <> doNone
FFreeDateFormat: String; //used when DateOrder = doNone
FDate: TDateTime;
@ -798,8 +796,6 @@ type
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;
property DefaultToday: Boolean read FDefaultToday write FDefaultToday default False;
Property DateOrder : TDateOrder Read FDateOrder Write SetDateOrder;
@ -2515,8 +2511,6 @@ begin
FUpdatingDate := False;
FDefaultToday := False;
FDisplaySettings := [dsShowHeadings, dsShowDayNames];
OKCaption := 'OK';
CancelCaption := 'Cancel';
end;
@ -3183,4 +3177,8 @@ begin
TDateEdit,TTimeEdit,TCalcEdit]);
end;
Initialization
RegisterPropertyToSkip(TDateEdit, 'OKCaption', 'Property streamed in older Lazarus revision','');
RegisterPropertyToSkip(TDateEdit, 'CancelCaption', 'Property streamed in older Lazarus revision','');
end.