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

LCL/TCalendarDialog: Expose calendar's property FirstDayOfWeek.

Browse Source
This commit is contained in:
wp_xyz 2023-09-09 23:46:28 +02:00
parent dbde03d6a3
commit 8de3e144af
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/extdlgs.pas
View File

@ -198,6 +198,7 @@ type
FOKCaption: TCaption;
FCancelCaption: TCaption;
FCalendar: TCalendar;
FFirstDayOfWeek: TCalDayOfWeek;
okButton: TButton;
cancelButton: TButton;
panel: TPanel;
@ -221,6 +222,7 @@ type
published
property Date: TDateTime read FDate write FDate;
property DisplaySettings: TDisplaySettings read FDisplaySettings write FDisplaySettings default DefaultDisplaySettings;
property FirstDayOfWeek: TCalDayOfWeek read FFirstDayOfWeek write FFirstDayOfWeek default dowDefault;
property OKCaption: TCaption read FOKCaption write FOKCaption;
property CancelCaption: TCaption read FCancelCaption write FCancelCaption;
@ -694,6 +696,7 @@ constructor TCalendarDialog.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
DisplaySettings := DefaultDisplaySettings;
FirstDayOfWeek := dowDefault;
Date := trunc(Now);
OKCaption := rsMbOK;
CancelCaption := rsMbCancel;
@ -853,6 +856,7 @@ begin
DateTime:=Self.Date;
TabStop:=True;
DisplaySettings:=Self.DisplaySettings;
FirstDayOfWeek:=Self.FirstDayOfWeek;
OnDayChanged:=@CalendarDayChanged;
OnMonthChanged:=@CalendarMonthChanged;
OnYearChanged:=@CalendarYearChanged;