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

QT(4) Implement TQtWSCustomCalendar.RemoveMinMaxDates.

Browse Source
This commit is contained in:
Bart 2022-07-20 17:32:49 +02:00
parent 756ae8d6d5
commit 8b14d9076f
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/qt/qtwscalendar.pp
View File

@ -44,6 +44,7 @@ type
class procedure SetDisplaySettings(const ACalendar: TCustomCalendar; const ADisplaySettings: TDisplaySettings); override;
class procedure SetFirstDayOfWeek(const ACalendar: TCustomCalendar; const ADayOfWeek: TCalDayOfWeek); override;
class procedure SetMinMaxDate(const ACalendar: TCustomCalendar; AMinDate, AMaxDate: TDateTime); override;
class procedure RemoveMinMaxDates(const ACalendar: TCustomCalendar); override;
end;
@ -149,4 +150,15 @@ begin
QtCalendar.EndUpdate;
end;
class procedure TQtWSCustomCalendar.RemoveMinMaxDates(const ACalendar: TCustomCalendar);
var
QtCalendar: TQtCalendar;
begin
QtCalendar := TQtCalendar(ACalendar.Handle);
QtCalendar.BeginUpdate;
QtCalendar.MinDate := MinDateTime;
QtCalendar.MaxDate := MaxDateTime;
QtCalendar.EndUpdate;
end;
end.