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

TAChart: Improved reset of font orientation after drawing

Browse Source 
git-svn-id: trunk@47201 -
This commit is contained in:
wp 2014-12-15 09:49:38 +00:00
parent 4a72302da6
commit 890e8de7d4
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/tachart/tagraph.pas
View File

@ -802,6 +802,7 @@ procedure TChart.Draw(ADrawer: IChartDrawer; const ARect: TRect);
var
ldd: TChartLegendDrawingData;
s: TBasicChartSeries;
fnt: TFont;
begin
Prepare;
@ -866,7 +867,12 @@ begin
// something else after the chart and, for example, would not expect the font
// to be rotated.
// (Workaround for issue #0027163)
ADrawer.SetGetFontOrientationFunc(nil);
fnt := TFont.Create; // to effectively reset font orientation
try
ADrawer.Font := fnt;
finally
fnt.Free;
end;
ADrawer.SetPenParams(psSolid, clDefault);
ADrawer.SetBrushParams(bsSolid, clWhite);
ADrawer.SetAntialiasingMode(amDontCare);