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

Added two more styles to TSeriesPointerStyle type, useful when there is a need to draw value intervals on a chart

Browse Source 
path by Alexander Klenin

git-svn-id: trunk@17240 -
This commit is contained in:
darius 2008-11-05 17:58:25 +00:00
parent d07defa7df
commit fdbdc5410b
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/tachart/taseries.pas
View File

@ -48,7 +48,8 @@ type
end;
PChartCoord = ^ChartCoord;
TSeriesPointerStyle=(psRectangle,psCircle,psCross,psDiagCross,psStar);
TSeriesPointerStyle=(
psRectangle,psCircle,psCross,psDiagCross,psStar,psLowBracket,psHighBracket);
BarException=class(Exception);
@ -523,6 +524,20 @@ begin
ACanvas.Brush.Color := SeriesColor;
ACanvas.Ellipse(px-FHorizSize,py-FVertSize,px+FHorizSize+1,py+FVertSize+1);
end;
psLowBracket: begin
ACanvas.Pen.Color := SeriesColor;
ACanvas.MoveTo(px-FHorizSize,py);
ACanvas.LineTo(px-FHorizSize,py+FVertSize+1);
ACanvas.LineTo(px+FHorizSize+1,py+FVertSize+1);
ACanvas.LineTo(px+FHorizSize+1,py-1);
end;
psHighBracket: begin
ACanvas.Pen.Color := SeriesColor;
ACanvas.MoveTo(px-FHorizSize,py);
ACanvas.LineTo(px-FHorizSize,py-FVertSize);
ACanvas.LineTo(px+FHorizSize+1,py-FVertSize);
ACanvas.LineTo(px+FHorizSize+1,py+1);
end;
end;
end;
end;