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

DateTimePicker - code cleanup

Browse Source 
git-svn-id: trunk@63657 -
This commit is contained in:
zoran 2020-07-26 12:47:17 +00:00
parent 79ccae0012
commit c5d98711e5
1 changed files with 2 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
components/datetimectrls/datetimepicker.pas
View File

@ -236,14 +236,7 @@ type
procedure SetTrailingSeparator(const AValue: Boolean);
procedure SetUseDefaultSeparators(const AValue: Boolean);
function GetHour: Word;
function GetMiliSec: Word;
function GetMinute: Word;
function GetSecond: Word;
procedure RecalculateTextSizesIfNeeded;
function GetDay: Word;
function GetMonth: Word;
function GetYear: Word;
function GetHMSMs(const NowIfNull: Boolean = False): THMSMs;
function GetYYYYMMDD(const TodayIfNull: Boolean = False;
const WithCorrection: Boolean = False): TYMD;
@ -1257,26 +1250,6 @@ begin
end;
end;
function TCustomDateTimePicker.GetHour: Word;
begin
Result := GetHMSMs.Hour;
end;
function TCustomDateTimePicker.GetMiliSec: Word;
begin
Result := GetHMSMs.MiliSec;
end;
function TCustomDateTimePicker.GetMinute: Word;
begin
Result := GetHMSMs.Minute;
end;
function TCustomDateTimePicker.GetSecond: Word;
begin
Result := GetHMSMs.Second;
end;
{ RecalculateTextSizesIfNeeded
--------------------------------
In this procedure we measure text and store the values in the following
@ -1398,21 +1371,6 @@ begin
end;
end;
function TCustomDateTimePicker.GetDay: Word;
begin
Result := GetYYYYMMDD.Day;
end;
function TCustomDateTimePicker.GetMonth: Word;
begin
Result := GetYYYYMMDD.Month;
end;
function TCustomDateTimePicker.GetYear: Word;
begin
Result := GetYYYYMMDD.Year;
end;
function TCustomDateTimePicker.GetHMSMs(const NowIfNull: Boolean): THMSMs;
begin
if DateIsNull then begin
@ -1603,7 +1561,7 @@ begin
S := Trim(GetSelectedText);
if FSelectedTextPart = 8 then begin
W := GetHour;
W := GetHMSMs().Hour;
if upCase(S[1]) = 'A' then begin
if W >= 12 then
Dec(W, 12);
@ -1643,7 +1601,7 @@ begin
dtpHour:
begin
if (FTimeFormat = tf12) then begin
if GetHour < 12 then begin
if GetHMSMs().Hour < 12 then begin
if W = 12 then
SetHour(0)
else