paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 10:58:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

components: datetimepicker: TextForNullDate type TCaption - for translations

Browse Source 
git-svn-id: trunk@55271 -
This commit is contained in:
ondrej 2017-06-09 06:38:31 +00:00
parent cef92e9004
commit 19843adc12
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/datetimectrls/datetimepicker.pas
View File

@ -148,7 +148,7 @@ type
FReadOnly: Boolean;
FMaxDate, FMinDate: TDate;
FShowMonthNames: Boolean;
FTextForNullDate: String;
FTextForNullDate: TCaption;
FTimeSeparator: String;
FTimeDisplay: TTimeDisplay;
FTimeFormat: TTimeFormat;
@ -230,7 +230,7 @@ type
procedure SetReadOnly(const AValue: Boolean);
procedure SetShowCheckBox(const AValue: Boolean);
procedure SetShowMonthNames(AValue: Boolean);
procedure SetTextForNullDate(const AValue: String);
procedure SetTextForNullDate(const AValue: TCaption);
procedure SetTime(const AValue: TTime);
procedure SetTimeSeparator(const AValue: String);
procedure SetTimeDisplay(const AValue: TTimeDisplay);
@ -372,7 +372,7 @@ type
read FTrailingSeparator write SetTrailingSeparator;
property ReadOnly: Boolean read FReadOnly write SetReadOnly default False;
property LeadingZeros: Boolean read FLeadingZeros write SetLeadingZeros;
property TextForNullDate: String
property TextForNullDate: TCaption
read FTextForNullDate write SetTextForNullDate;
property NullInputAllowed: Boolean
read FNullInputAllowed write SetNullInputAllowed default True;
@ -1213,7 +1213,7 @@ begin
end;
end;
procedure TCustomDateTimePicker.SetTextForNullDate(const AValue: String);
procedure TCustomDateTimePicker.SetTextForNullDate(const AValue: TCaption);
begin
if FTextForNullDate = AValue then
Exit;
@ -2746,7 +2746,7 @@ begin
if aKey in ['n', 'N'] then begin
K := VK_N;
CheckAndApplyKeyCode(K);
end else
end else
CheckAndApplyKey(aKey);
end;
end;
@ -2989,7 +2989,7 @@ begin
TextStyle.Opaque := False;
TextStyle.RightToLeft := IsRightToLeft;
if DateIsNull and (FTextForNullDate > '')
if DateIsNull and (FTextForNullDate <> '')
and (not (FTextEnabled and Focused)) then begin
if IsRightToLeft then begin