paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 01:00:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Convert a OHLC chart to a HLC chart (as used by Excel) by allowing yopen to be NaN.

Browse Source
This commit is contained in:
wp_xyz 2023-12-06 17:27:05 +01:00
parent ead31d2c8c
commit 44979ed7be
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/tamultiseries.pas
View File

@ -1765,8 +1765,9 @@ procedure TOpenHighLowCloseSeries.Draw(ADrawer: IChartDrawer);
procedure DrawOHLC(x, yopen, yhigh, ylow, yclose, tw: Double);
begin
DoLine(x, yhigh, x, ylow);
DoLine(x - tw, yopen, x, yopen);
DoLine(x, yclose, x + tw, yclose);
if not IsNaN(yopen) then
DoLine(x - tw, yopen, x, yopen);
end;
procedure DrawCandleStick(x, yopen, yhigh, ylow, yclose, tw: Double);
@ -1811,15 +1812,15 @@ begin
x := GetGraphPointX(i);
if IsNaN(x) then Continue;
yopen := GetGraphPointY(i, YIndexOpen);
if IsNaN(yopen) then Continue;
if IsNaN(yopen) and (FMode = mCandleStick) then Continue;
yhigh := GetGraphPointY(i, YIndexHigh);
if IsNaN(yhigh) then Continue;
ylow := GetGraphPointY(i, YIndexLow);
if IsNaN(ylow) then Continue;
yclose := GetGraphPointY(i, YIndexClose);
if IsNaN(yclose) then Continue;
tw := CalcTickWidth(x, i); //GetXRange(x, i) * PERCENT * TickWidth;
if (yopen <= yclose) then begin
tw := CalcTickWidth(x, i);
if (not IsNaN(yopen) and (yopen <= yclose)) then begin
p := LinePen;
ADrawer.Brush := FCandleStickUpBrush;
ADrawer.SetBrushColor(FCandleStickUpBrush.Color);