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

TAChart: Fix TChartListbox using more than 1 column, issue #39439

Browse Source
This commit is contained in:
wp_xyz 2021-10-23 21:59:35 +02:00
parent 6422aaa213
commit c3f0740005
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/tachart/tachartlistbox.pas
View File

@ -257,10 +257,10 @@ begin
inherited; inherited;
end; end;
{ Based on the rect of a listbox item, calculates the locations of the
checkbox and of the series icon }
procedure TChartListbox.CalcRects( procedure TChartListbox.CalcRects(
const AItemRect: TRect; out ACheckboxRect, ASeriesIconRect: TRect); const AItemRect: TRect; out ACheckboxRect, ASeriesIconRect: TRect);
{ based on the rect of a listbox item, calculates the locations of the
checkbox and of the series icon }
const const
MARGIN = 4; MARGIN = 4;
var var
@ -274,11 +274,7 @@ begin
ACheckBoxRect := Rect(0, 0, FCheckboxSize.CX, FCheckboxSize.CY); ACheckBoxRect := Rect(0, 0, FCheckboxSize.CX, FCheckboxSize.CY);
OffsetRect(ACheckboxRect, x, (AItemRect.Top + AItemRect.Bottom - FCheckboxSize.CY) div 2); OffsetRect(ACheckboxRect, x, (AItemRect.Top + AItemRect.Bottom - FCheckboxSize.CY) div 2);
if cloShowIcons in Options then if cloShowIcons in Options then
x += ACheckboxRect.Right; x := ACheckboxRect.Right + MARGIN;
end
else begin
if cloShowIcons in Options then
x += AItemRect.Left;
end; end;
if cloShowIcons in Options then if cloShowIcons in Options then
begin begin