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

TAChart: At the end of TChart.Draw(), undo changes made to the drawer by the drawer (issue #0027163).

Browse Source 
git-svn-id: trunk@47195 -
This commit is contained in:
wp 2014-12-14 21:24:30 +00:00
parent 0b179b19ec
commit 53d40ddb63
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/tagraph.pas
View File

@ -861,6 +861,15 @@ begin
OnExtentChanged(Self); OnExtentChanged(Self);
FPrevLogicalExtent := FLogicalExtent; FPrevLogicalExtent := FLogicalExtent;
end; end;
// Undo changes made by the drawer (mainly for printing). The user may print
// something else after the chart and, for example, would not expect the font
// to be rotated.
// (Workaround for issue #0027163)
ADrawer.SetGetFontOrientationFunc(nil);
ADrawer.SetPenParams(psSolid, clDefault);
ADrawer.SetBrushParams(bsSolid, clWhite);
ADrawer.SetAntialiasingMode(amDontCare);
end; end;
procedure TChart.DrawBackWall(ADrawer: IChartDrawer); procedure TChart.DrawBackWall(ADrawer: IChartDrawer);