From 6e2097ec76748bfa8b7f5ded205cad79d70b3145 Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Fri, 14 Jan 2022 12:16:22 +0100
Subject: [PATCH] TAChart: Force TDateTimeIntervalChartSource to place labels
 at the first day of a week in dtsWeek mode, and at Jan 1 in dtsMonth mode (if
 visible).

---
 components/tachart/taintervalsources.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/tachart/taintervalsources.pas b/components/tachart/taintervalsources.pas
index ee006b0ef1..9811230a6e 100644
--- a/components/tachart/taintervalsources.pas
+++ b/components/tachart/taintervalsources.pas
@@ -254,7 +254,8 @@ begin
           Result := EncodeDate(y, m, 1);
         end;
       end;
-    dtsMonth: Result := StartOfTheMonth(AValue);
+    dtsMonth: Result := StartOfTheYear(AValue);
+    dtsWeek: Result := StartOfTheWeek(AValue);
     else ;
   end;
 end;