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

LCL: remove unused TDateEdit.DialogTitle. Issue #1278

Browse Source 
git-svn-id: trunk@46263 -
This commit is contained in:
juha 2014-09-20 09:21:20 +00:00
parent 27f7ed9453
commit 8cea4118ab
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/editbtn.pas
View File

@ -678,7 +678,6 @@ type
private
FDateOrder: TDateOrder;
FDefaultToday: Boolean;
FDialogTitle: TCaption;
FDisplaySettings: TDisplaySettings;
FDroppedDown: Boolean;
FOnAcceptDate: TAcceptDateEvent;
@ -687,7 +686,6 @@ type
FCancelCaption: TCaption;
FDateFormat: string;
function GetDate: TDateTime;
function IsStoreTitle: boolean;
procedure SetDate(Value: TDateTime);
procedure CalendarPopupReturnDate(Sender: TObject; const ADate: TDateTime);
procedure CalendarPopupShowHide(Sender: TObject);
@ -707,7 +705,6 @@ type
property Button;
property DroppedDown: Boolean read FDroppedDown;
published
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;
@ -2175,7 +2172,6 @@ begin
inherited Create(AOwner);
FDefaultToday := False;
FDisplaySettings := [dsShowHeadings, dsShowDayNames];
DialogTitle := rsPickDate;
OKCaption := 'OK';
CancelCaption := 'Cancel';
DateFormatChanged;
@ -2309,11 +2305,6 @@ begin
end;
end;
function TDateEdit.IsStoreTitle: boolean;
begin
Result := DialogTitle <> rsPickDate;
end;
procedure TDateEdit.SetDate(Value: TDateTime);
begin
if {not IsValidDate(Value) or }(Value = NullDate) then