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

TAChart: Extend 0933dadcaf to rotated area series

Browse Source
This commit is contained in:
wp_xyz 2023-12-28 13:28:24 +01:00
parent 005e37a5a7
commit 4a975e2e79
1 changed files with 8 additions and 1 deletions

9
components/tachart/taseries.pas
View File

@ -2288,6 +2288,7 @@ var
var
j, k: Integer;
R: TRect;
begin
if IsEmpty or (not Active) then exit;
@ -2308,7 +2309,12 @@ begin
scaled_depth := ADrawer.Scale(Depth);
SetLength(pts, Length(FGraphPoints) * 4 + 4);
ADrawer.ClippingStart(ParentChart.ClipRect);
R := ParentChart.ClipRect;
if IsRotated then
inc(R.Left, ParentChart.LeftAxis.AxisPen.Width div 2 + 1)
else
dec(R.Bottom, ParentChart.BottomAxis.AxisPen.Width div 2 + 1);
ADrawer.ClippingStart(R);
try
CollectMissing;
if Length(missing) = 0 then
@ -2337,6 +2343,7 @@ begin
ADrawer.ClippingStop;
end;
DrawErrorBars(ADrawer);
DrawLabels(ADrawer);
end;