paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 00:23:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Draw text of chart list box items with the same background as the list box itself

Browse Source 
git-svn-id: trunk@33065 -
This commit is contained in:
ask 2011-10-24 07:34:04 +00:00
parent 4d3ea7ffb4
commit 794b3c6aec
1 changed files with 2 additions and 1 deletions

3
components/tachart/tachartlistbox.pas
View File

@ -188,7 +188,7 @@ procedure Register;
implementation
uses
Math, LCLIntf, LCLType, SysUtils, Themes,
Graphics, Math, LCLIntf, LCLType, SysUtils, Themes,
TACustomSource, TADrawerCanvas, TADrawUtils, TAEnumerators, TAGeometry;
procedure Register;
@ -326,6 +326,7 @@ begin
else
x := ARect.Left;
Canvas.Brush.Style := bsClear;
if cloShowIcons in Options then begin
id := TCanvasDrawer.Create(Canvas);
id.Pen := Chart.Legend.SymbolFrame;