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

TCalendar: fix typo in name of private method.

Browse Source
This commit is contained in:
Bart 2022-07-31 18:09:06 +02:00
parent 404da33624
commit 1c7122b6ca
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/calendar.pp
View File

@ -92,7 +92,7 @@ type
procedure CheckRange(ADate, AMinDate, AMaxDate: TDateTime);
function GetDateTime: TDateTime;
function GetMaxDateStored: Boolean;
function GetMixDateStored: Boolean;
function GetMinDateStored: Boolean;
procedure SetDateTime(const AValue: TDateTime);
procedure GetProps;
procedure SetMaxDate(AValue: TDateTime);
@ -126,7 +126,7 @@ type
write SetDisplaySettings default DefaultDisplaySettings;
property FirstDayOfWeek: TCalDayOfWeek read FFirstDayOfWeek write SetFirstDayOfWeek default dowDefault;
property MaxDate: TDateTime read FMaxDate write SetMaxDate stored GetMaxDateStored;
property MinDate: TDateTime read FMinDate write SetMinDate stored GetMixDateStored;
property MinDate: TDateTime read FMinDate write SetMinDate stored GetMinDateStored;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
property OnDayChanged: TNotifyEvent read FDayChanged write FDayChanged;
property OnMonthChanged: TNotifyEvent read FMonthChanged write FMonthChanged;
@ -310,7 +310,7 @@ begin
Result := not SameValue(FMaxDate, Double(0.0), 1E-9);
end;
function TCustomCalendar.GetMixDateStored: Boolean;
function TCustomCalendar.GetMinDateStored: Boolean;
begin
Result := not SameValue(FMinDate, Double(0.0), 1E-9);
end;