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

TAChart: Fix selected item background and user-defined item drawing in TChartListbox

Browse Source 
git-svn-id: trunk@34016 -
This commit is contained in:
ask 2011-12-07 04:46:33 +00:00
parent 03933b7304
commit af5b29a00b
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/tachart/tachartlistbox.pas
View File

@ -306,10 +306,15 @@ var
x: Integer;
ch: Boolean;
begin
Unused(AState);
if FChart = nil then exit;
if Assigned(OnDrawItem) then begin
OnDrawItem(Self, AIndex, ARect, AState);
exit;
end;
if
(odPainted in AState) or (FChart = nil) or not InRange(AIndex, 0, Count - 1)
then exit;
Canvas.FillRect(ARect);
CalcRects(ARect, rcb, ricon);
if cloShowCheckboxes in Options then begin