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

Use source color in OHLC series

Browse Source 
git-svn-id: trunk@39398 -
This commit is contained in:
ask 2012-11-28 03:24:28 +00:00
parent 87f1227012
commit 3c49f286fb
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/tachart/tamultiseries.pas
View File

@ -549,6 +549,7 @@ var
ext2: TDoubleRect;
i: Integer;
x, tw, yopen, yhigh, ylow, yclose: Double;
p: TPen;
begin
my := MaxIntValue([YIndexOpen, YIndexHigh, YIndexLow, YIndexClose]);
if IsEmpty or (my >= Source.YCount) then exit;
@ -568,9 +569,14 @@ begin
tw := GetXRange(x, i) * PERCENT * TickWidth;
if (DownLinePen.Color = clTAColor) or (yopen <= yclose) then
ADrawer.Pen := LinePen
p := LinePen
else
ADrawer.Pen := DownLinePen;
p := DownLinePen;
ADrawer.Pen := p;
with Source[i]^ do
if Color <> clTAColor then
ADrawer.SetPenParams(p.Style, Color);
DoLine(x, yhigh, x, ylow);
DoLine(x - tw, yopen, x, yopen);
DoLine(x, yclose, x + tw, yclose);