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

TAChart: Fix pointer symbols being drawn too small by printer drawer

Browse Source 
git-svn-id: trunk@47196 -
This commit is contained in:
wp 2014-12-14 22:29:18 +00:00
parent 53d40ddb63
commit bf72b0ae55
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tatypes.pas
View File

@ -375,7 +375,11 @@ end;
procedure TSeriesPointer.Draw(
ADrawer: IChartDrawer; ACenter: TPoint; AColor: TColor);
begin
DrawSize(ADrawer, ACenter, Point(HorizSize, VertSize), AColor);
DrawSize(ADrawer,
ACenter,
Point(ADrawer.Scale(HorizSize), ADrawer.Scale(VertSize)),
AColor
);
end;
procedure TSeriesPointer.DrawSize(ADrawer: IChartDrawer;