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

TAChart: Draw psCircle pointers of the same size as other types

Browse Source 
git-svn-id: trunk@29987 -
This commit is contained in:
ask 2011-03-23 06:38:34 +00:00
parent e58ceb3294
commit 038d161836
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tatypes.pas
View File

@ -835,9 +835,9 @@ begin
if Style = psCircle then
ADrawer.Ellipse(
ACenter.X - ASize.X, ACenter.Y - ASize.Y,
ACenter.X + ASize.X, ACenter.Y + ASize.Y)
ACenter.X + ASize.X + 1, ACenter.Y + ASize.Y + 1)
else
DrawByString(DRAW_STRINGS[FStyle] + ' ');
DrawByString(DRAW_STRINGS[Style] + ' ');
end;
procedure TSeriesPointer.SetBrush(AValue: TBrush);