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

TAChart: Add ps[Left|Right]Triangle pointer styles

Browse Source 
git-svn-id: trunk@27463 -
This commit is contained in:
ask 2010-09-26 03:21:11 +00:00
parent f4763dd494
commit e7e1f256d3
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/tachart/tachartutils.pas
View File

@ -79,7 +79,8 @@ type
TSeriesPointerStyle = (
psNone, psRectangle, psCircle, psCross, psDiagCross, psStar,
psLowBracket, psHighBracket, psLeftBracket, psRightBracket, psDiamond);
psLowBracket, psHighBracket, psLeftBracket, psRightBracket, psDiamond,
psTriangle, psLeftTriangle, psRightTriangle);
TDoubleInterval = record
FStart, FEnd: Double;

8
components/tachart/tatypes.pas
View File

@ -715,10 +715,12 @@ procedure TSeriesPointer.DrawSize(
const
DRAW_STRINGS: array [TSeriesPointerStyle] of String = (
//psNone, psRectangle, psCircle, psCross, psDiagCross, psStar,
//psLowBracket, psHighBracket, psLeftBracket, psRightBracket, psDiamond);
// psNone, psRectangle, psCircle, psCross, psDiagCross, psStar,
// psLowBracket, psHighBracket, psLeftBracket, psRightBracket, psDiamond,
// psTriangle, psLeftTriangle, psRightTriangle
'', '17931', '', '28 46', '19 73', '28 46 19 73',
'41236', '47896', '87412', '89632', '84268');
'41236', '47896', '87412', '89632', '84268',
'183', '842', '862');
begin
Unused(AColor); // TODO
ACanvas.Brush.Assign(FBrush);