diff --git a/lcl/editbtn.pas b/lcl/editbtn.pas index 8fe8920ec1..fc0d605c9e 100644 --- a/lcl/editbtn.pas +++ b/lcl/editbtn.pas @@ -556,8 +556,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; @@ -589,8 +587,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; @@ -1608,8 +1604,6 @@ begin FUpdatingDate := False; FDefaultToday := False; FDisplaySettings := [dsShowHeadings, dsShowDayNames]; - OKCaption := 'OK'; - CancelCaption := 'Cancel'; end; @@ -2283,4 +2277,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.