paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 19:09:35 +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; FOKCaption: TCaption;
FCancelCaption: TCaption; FCancelCaption: TCaption;
FCalendar: TCalendar; FCalendar: TCalendar;
FFirstDayOfWeek: TCalDayOfWeek;
okButton: TButton; okButton: TButton;
cancelButton: TButton; cancelButton: TButton;
panel: TPanel; panel: TPanel;
@ -221,6 +222,7 @@ type
published published
property Date: TDateTime read FDate write FDate; property Date: TDateTime read FDate write FDate;
property DisplaySettings: TDisplaySettings read FDisplaySettings write FDisplaySettings default DefaultDisplaySettings; 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 OKCaption: TCaption read FOKCaption write FOKCaption;
property CancelCaption: TCaption read FCancelCaption write FCancelCaption; property CancelCaption: TCaption read FCancelCaption write FCancelCaption;
@ -694,6 +696,7 @@ constructor TCalendarDialog.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
DisplaySettings := DefaultDisplaySettings; DisplaySettings := DefaultDisplaySettings;
FirstDayOfWeek := dowDefault;
Date := trunc(Now); Date := trunc(Now);
OKCaption := rsMbOK; OKCaption := rsMbOK;
CancelCaption := rsMbCancel; CancelCaption := rsMbCancel;
@ -853,6 +856,7 @@ begin
DateTime:=Self.Date; DateTime:=Self.Date;
TabStop:=True; TabStop:=True;
DisplaySettings:=Self.DisplaySettings; DisplaySettings:=Self.DisplaySettings;
FirstDayOfWeek:=Self.FirstDayOfWeek;
OnDayChanged:=@CalendarDayChanged; OnDayChanged:=@CalendarDayChanged;
OnMonthChanged:=@CalendarMonthChanged; OnMonthChanged:=@CalendarMonthChanged;
OnYearChanged:=@CalendarYearChanged; OnYearChanged:=@CalendarYearChanged;