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

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

Browse Source 
git-svn-id: trunk@52760 -
This commit is contained in:
bart 2016-07-31 15:08:13 +00:00
parent 48873222a4
commit 42fe1e0f32
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

@ -556,8 +556,6 @@ type
FDroppedDown: Boolean; FDroppedDown: Boolean;
FOnAcceptDate: TAcceptDateEvent; FOnAcceptDate: TAcceptDateEvent;
FOnCustomDate: TCustomDateEvent; FOnCustomDate: TCustomDateEvent;
FOKCaption: TCaption;
FCancelCaption: TCaption;
FFixedDateFormat: string; //used when DateOrder <> doNone FFixedDateFormat: string; //used when DateOrder <> doNone
FFreeDateFormat: String; //used when DateOrder = doNone FFreeDateFormat: String; //used when DateOrder = doNone
FDate: TDateTime; FDate: TDateTime;
@ -589,8 +587,6 @@ type
property CalendarDisplaySettings: TDisplaySettings read FDisplaySettings write FDisplaySettings; property CalendarDisplaySettings: TDisplaySettings read FDisplaySettings write FDisplaySettings;
property OnAcceptDate: TAcceptDateEvent read FOnAcceptDAte write FOnAcceptDate; property OnAcceptDate: TAcceptDateEvent read FOnAcceptDAte write FOnAcceptDate;
property OnCustomDate: TCustomDateEvent read FOnCustomDate write FOnCustomDate; property OnCustomDate: TCustomDateEvent read FOnCustomDate write FOnCustomDate;
property OKCaption: TCaption read FOKCaption write FOKCaption;
property CancelCaption: TCaption read FCancelCaption write FCancelCaption;
property ReadOnly; property ReadOnly;
property DefaultToday: Boolean read FDefaultToday write FDefaultToday default False; property DefaultToday: Boolean read FDefaultToday write FDefaultToday default False;
Property DateOrder : TDateOrder Read FDateOrder Write SetDateOrder; Property DateOrder : TDateOrder Read FDateOrder Write SetDateOrder;
@ -1608,8 +1604,6 @@ begin
FUpdatingDate := False; FUpdatingDate := False;
FDefaultToday := False; FDefaultToday := False;
FDisplaySettings := [dsShowHeadings, dsShowDayNames]; FDisplaySettings := [dsShowHeadings, dsShowDayNames];
OKCaption := 'OK';
CancelCaption := 'Cancel';
end; end;
@ -2283,4 +2277,8 @@ begin
TDateEdit,TTimeEdit,TCalcEdit]); TDateEdit,TTimeEdit,TCalcEdit]);
end; end;
Initialization
RegisterPropertyToSkip(TDateEdit, 'OKCaption', 'Property streamed in older Lazarus revision','');
RegisterPropertyToSkip(TDateEdit, 'CancelCaption', 'Property streamed in older Lazarus revision','');
end. end.