From fdbdc5410b605fab157a38ea9ea700c20a83d346 Mon Sep 17 00:00:00 2001 From: darius Date: Wed, 5 Nov 2008 17:58:25 +0000 Subject: [PATCH] Added two more styles to TSeriesPointerStyle type, useful when there is a need to draw value intervals on a chart path by Alexander Klenin git-svn-id: trunk@17240 - --- components/tachart/taseries.pas | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/components/tachart/taseries.pas b/components/tachart/taseries.pas index 562187dd21..3129814156 100644 --- a/components/tachart/taseries.pas +++ b/components/tachart/taseries.pas @@ -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;