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

TAChart: Do not draw legend frame with Visible = false

Browse Source 
git-svn-id: trunk@31341 -
This commit is contained in:
ask 2011-06-23 07:28:56 +00:00
parent d2cf3ad43f
commit 0bbf6f4c42
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/talegend.pas
View File

@ -356,9 +356,11 @@ var
r: TRect; r: TRect;
begin begin
// Draw the background and the border. // Draw the background and the border.
ADrawer.Font := Font;
ADrawer.Brush := BackgroundBrush; ADrawer.Brush := BackgroundBrush;
ADrawer.Pen := Frame; if Frame.Visible then
ADrawer.Pen := Frame
else
ADrawer.SetPenParams(psClear, clTAColor);
ADrawer.Rectangle(ABounds); ADrawer.Rectangle(ABounds);
if AItems.Count = 0 then exit; if AItems.Count = 0 then exit;