paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 09:56:12 +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 = ( TSeriesPointerStyle = (
psNone, psRectangle, psCircle, psCross, psDiagCross, psStar, psNone, psRectangle, psCircle, psCross, psDiagCross, psStar,
psLowBracket, psHighBracket, psLeftBracket, psRightBracket, psDiamond); psLowBracket, psHighBracket, psLeftBracket, psRightBracket, psDiamond,
psTriangle, psLeftTriangle, psRightTriangle);
TDoubleInterval = record TDoubleInterval = record
FStart, FEnd: Double; FStart, FEnd: Double;

8
components/tachart/tatypes.pas
View File

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