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

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).

Browse Source
This commit is contained in:
wp_xyz 2022-01-14 12:16:22 +01:00
parent 42e38ce991
commit 6e2097ec76
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/tachart/taintervalsources.pas
View File

@ -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;