From 8de3e144af1752dfce9bf30afaa67bf626a0da47 Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Sat, 9 Sep 2023 23:46:28 +0200
Subject: [PATCH] LCL/TCalendarDialog: Expose calendar's property
 FirstDayOfWeek.

---
 lcl/extdlgs.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lcl/extdlgs.pas b/lcl/extdlgs.pas
index c02c309da3..53feb3444b 100644
--- a/lcl/extdlgs.pas
+++ b/lcl/extdlgs.pas
@@ -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;