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

Components, TAChart: fix checkboxes drawing in TChartListbox on Linux and Mac OS X, patch from wp, bug #25452

Browse Source 
git-svn-id: trunk@43739 -
This commit is contained in:
maxim 2014-01-16 21:24:49 +00:00
parent 8d5dfb7e93
commit 56325c433d
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/tachart/tachartlistbox.pas
View File

@ -189,6 +189,8 @@ begin
RegisterComponents(CHART_COMPONENT_IDE_PAGE, [TChartListbox]);
end;
{ TChartListbox }
constructor TChartListbox.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
@ -213,11 +215,12 @@ var
begin
ACheckBoxRect := ZeroRect;
ASeriesIconRect := ZeroRect;
w := GetSystemMetrics(SM_CYMENUCHECK);
x := 2;
w := Canvas.TextHeight('Tg');
x := 4;
if cloShowCheckboxes in Options then begin
with AItemRect do
ACheckboxRect := Bounds(Left + 1, (Top + Bottom - w) div 2, w, w);
ACheckboxRect := Bounds(Left + 4, (Top + Bottom - w) div 2, w, w);
if cloShowIcons in Options then
x += ACheckboxRect.Right;
end
@ -304,9 +307,8 @@ begin
OnDrawItem(Self, AIndex, ARect, AState);
exit;
end;
if
(odPainted in AState) or (FChart = nil) or not InRange(AIndex, 0, Count - 1)
then exit;
if (FChart = nil) or not InRange(AIndex, 0, Count - 1) then
exit;
Canvas.FillRect(ARect);
CalcRects(ARect, rcb, ricon);