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

TCalendar: factor out ApplyLimits and RemoveLimits. No functional changes.

Browse Source
This commit is contained in:
Bart 2022-07-19 19:18:37 +02:00
parent 3dba52b4eb
commit 4c792b0295
1 changed files with 20 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
lcl/calendar.pp
View File

@ -103,6 +103,8 @@ type
procedure SetDate(const AValue: String);
procedure SetFirstDayOfWeek(const AValue: TCalDayOfWeek);
function IsLimited: Boolean;
procedure ApplyLimits(const AMin, AMax: TDateTime);
procedure RemoveLimits;
protected
class procedure WSRegisterClass; override;
procedure LMChanged(var Message: TLMessage); message LM_CHANGED;
@ -340,6 +342,20 @@ begin
Result := (CompareValue(FMinDate, FMaxDate, 1E-9) = LessThanValue);
end;
procedure TCustomCalendar.ApplyLimits(const AMin, AMax: TDateTime);
begin
if (GetDateTime > AMax) then
SetDateTime(AMax)
else if (GetDateTime < AMin) then
SetDateTime(AMin);
TWSCustomCalendarClass(WidgetSetClass).SetMinMaxDate(Self,AMin, AMax);
end;
procedure TCustomCalendar.RemoveLimits;
begin
TWSCustomCalendarClass(WidgetSetClass).RemoveMinMaxDates(Self);
end;
procedure TCustomCalendar.GetProps;
begin
if HandleAllocated and ([csLoading,csDestroying]*ComponentState=[]) then
@ -362,16 +378,12 @@ begin
FMaxDate := AValue;
if IsLimited then
begin
if (GetDateTime > FMaxDate) then
SetDateTime(FMaxDate)
else if (GetDateTime < FMinDate) then
SetDateTime(FMinDate);
TWSCustomCalendarClass(WidgetSetClass).SetMinMaxDate(Self,FMinDate, FMaxDate);
ApplyLimits(FMinDate, FMaxDate);
end
else
begin
if OldIsLimited then
TWSCustomCalendarClass(WidgetSetClass).RemoveMinMaxDates(Self);
RemoveLimits;
end;
end;
@ -384,17 +396,11 @@ begin
OldIsLimited := IsLimited;
FMinDate := AValue;
if IsLimited then
begin
if (GetDateTime > FMaxDate) then
SetDateTime(FMaxDate)
else if (GetDateTime < FMinDate) then
SetDateTime(FMinDate);
TWSCustomCalendarClass(WidgetSetClass).SetMinMaxDate(Self,FMinDate, FMaxDate);
end
ApplyLimits(FMinDate, FMaxDate)
else
begin
if OldIsLimited then
TWSCustomCalendarClass(WidgetSetClass).RemoveMinMaxDates(Self);
RemoveLimits;
end;
end;