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

TAChart: Inhibit painting a border around the chart if Color is clDefault.

Browse Source 
git-svn-id: trunk@54265 -
This commit is contained in:
wp 2017-02-24 18:40:09 +00:00
parent 48e816a02f
commit 26e8208ec7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/tachart/tagraph.pas
View File

@ -576,7 +576,8 @@ begin
if Supports(ADrawer, IChartTCanvasDrawer, ic) and Assigned(OnBeforeDrawBackground) then if Supports(ADrawer, IChartTCanvasDrawer, ic) and Assigned(OnBeforeDrawBackground) then
OnBeforeDrawBackground(Self, ic.Canvas, ARect, defaultDrawing); OnBeforeDrawBackground(Self, ic.Canvas, ARect, defaultDrawing);
if defaultDrawing then if defaultDrawing then
ADrawer.Rectangle(ARect); ADrawer.FillRect(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom);
// ADrawer.Rectangle(ARect);
if Supports(ADrawer, IChartTCanvasDrawer, ic) and Assigned(OnAfterDrawBackground) then if Supports(ADrawer, IChartTCanvasDrawer, ic) and Assigned(OnAfterDrawBackground) then
OnAfterDrawBackground(Self, ic.Canvas, ARect); OnAfterDrawBackground(Self, ic.Canvas, ARect);
end; end;