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

TAChart: Improved painting of series pointer style psStar

Browse Source 
git-svn-id: trunk@54052 -
This commit is contained in:
wp 2017-02-01 10:15:51 +00:00
parent 8e6b6a8bac
commit f67f736255
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/tachart/tatypes.pas
View File

@ -457,12 +457,12 @@ const
DRAW_STRINGS: array [TSeriesPointerStyle] of String = (
// psNone, psRectangle, psCircle, psCross, psDiagCross, psStar,
// psLowBracket, psHighBracket, psLeftBracket, psRightBracket, psDiamond,
// psTriangle, psLeftTriangle, psRightTriangle, psVertBar, psHorBar, psPoint
// pwDownTriangle, psHexagon, psFullStar
'', '17931', '', '28 46', '19 73', '28 46 19 73',
// psTriangle, psLeftTriangle, psRightTriangle, psVertBar, psHorBar,
// psPoint, pwDownTriangle, psHexagon, psFullStar
'', '17931', '', '28 46', '19 73', '', //28 46 19 73',
'41236', '47896', '87412', '89632', '84268',
'1831', '8428', '8628', '82', '46', '',
'7927', '', '');
'1831', '8428', '8628', '82', '46',
'', '7927', '', '');
begin
ADrawer.Brush := Brush;
if (ocBrush in OverrideColor) and (AColor <> clTAColor) then
@ -478,6 +478,11 @@ begin
ACenter.X - ASize.X, ACenter.Y - ASize.Y,
ACenter.X + ASize.X + 1, ACenter.Y + ASize.Y + 1);
psHexagon : DrawPolygon(psHexagon);
psStar : begin
DrawByString(DRAW_STRINGS[psCross] + ' ');
ASize := Point(ASize.X * 7 div 10, ASize.Y * 7 div 10);
DrawByString(DRAW_STRINGS[psDiagCross] + ' ');
end;
psFullStar: DrawPolygon(psFullStar);
else DrawByString(DRAW_STRINGS[Style] + ' ');
end;