paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-07 11:57:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

TDateEdit: Remove method DateFormatChanged: it exposes a private field that is only meant for internal use, and should not be changed by user.

Browse Source 
git-svn-id: trunk@47794 -
This commit is contained in:
bart 2015-02-15 11:05:19 +00:00
parent 442759f8f3
commit a65acdc419
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/editbtn.pas
View File

@ -754,7 +754,6 @@ type
procedure SetDateMask; virtual;
public
constructor Create(AOwner: TComponent); override;
procedure DateFormatChanged; virtual;
function GetDateFormat: string;
property AutoSelected;
property Date: TDateTime read GetDate write SetDate;
@ -2308,13 +2307,8 @@ begin
FDisplaySettings := [dsShowHeadings, dsShowDayNames];
OKCaption := 'OK';
CancelCaption := 'Cancel';
DateFormatChanged;
end;
procedure TDateEdit.DateFormatChanged;
begin
FDateFormat := DefaultFormatSettings.ShortDateFormat;
end;
function TDateEdit.GetDateFormat: string;
begin
@ -2654,7 +2648,7 @@ begin
Text := ''
else
begin
if (FDateFormat = '') then
if (FDateOrder = doNone) or (FDateFormat = '') then
Text := DateToStr(Value)
else
Text := FormatDateTime(FDateFormat, Value)