paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-19 09:40:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add few more pointer styles. Fix warning.

Browse Source 
git-svn-id: trunk@19163 -
This commit is contained in:
ask 2009-03-31 03:43:52 +00:00
parent 9cb4b8e525
commit 9d35d8873d
3 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tachartutils.pas
View File

@ -74,7 +74,7 @@ type
TSeriesPointerStyle = (
psNone, psRectangle, psCircle, psCross, psDiagCross, psStar,
psLowBracket, psHighBracket);
psLowBracket, psHighBracket, psLeftBracket, psRightBracket, psDiamond);
{ TPenBrushFontRecall }

2
components/tachart/taseries.pas
View File

@ -442,7 +442,7 @@ end;
function TChartSeries.AddXY(X, Y: Double): Longint;
begin
AddXY(X, Y, '', clTAColor);
Result := AddXY(X, Y, '', clTAColor);
end;
procedure TChartSeries.Delete(AIndex:Integer);

7
components/tachart/tatypes.pas
View File

@ -694,8 +694,11 @@ procedure TSeriesPointer.Draw(ACanvas: TCanvas; ACenter: TPoint; AColor: TColor)
end;
const
DRAW_STRINGS: array [TSeriesPointerStyle] of String =
('', '17931', '28 46', '19 73', '28 46 19 73', '', '41236', '47896');
DRAW_STRINGS: array [TSeriesPointerStyle] of String = (
//psNone, psRectangle, psCircle, psCross, psDiagCross, psStar,
//psLowBracket, psHighBracket, psLeftBracket, psRightBracket, psDiamond);
'', '17931', '', '28 46', '19 73', '28 46 19 73',
'41236', '47896', '87412', '89632', '84268');
begin
ACanvas.Brush.Assign(FBrush);
ACanvas.Pen.Assign(FPen);