paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 05:58:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Avoid drawing no candlestick box when open and close prices in a TOpenHighLowCloseSeries are equal.

Browse Source 
(cherry picked from commit 12e9db2f31)
This commit is contained in:
wp_xyz 2024-03-05 22:46:44 +01:00 committed by Maxim Ganetsky
parent 9dbba93a40
commit d61851df1d
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/tachart/tamultiseries.pas
View File

@ -1687,14 +1687,24 @@ procedure TOpenHighLowCloseSeries.Draw(ADrawer: IChartDrawer);
ADrawer.Line(MaybeRotate(AX1, AY1), MaybeRotate(AX2, AY2));
end;
procedure NoZeroRect(var R: TRect);
begin
if IsRotated then
begin
if R.Left = R.Right then inc(R.Right);
end else
begin
if R.Top = R.Bottom then inc(R.Bottom);
end;
end;
procedure DoRect(AX1, AY1, AX2, AY2: Double);
var
r: TRect;
begin
with ParentChart do begin
r.TopLeft := MaybeRotate(AX1, AY1);
r.BottomRight := MaybeRotate(AX2, AY2);
end;
r.TopLeft := MaybeRotate(AX1, AY1);
r.BottomRight := MaybeRotate(AX2, AY2);
NoZeroRect(r);
ADrawer.FillRect(r.Left, r.Top, r.Right, r.Bottom);
ADrawer.Rectangle(r);
end;