paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 06:36:01 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/taseries.pas
View File

@ -2288,6 +2288,7 @@ var
var var
j, k: Integer; j, k: Integer;
R: TRect;
begin begin
if IsEmpty or (not Active) then exit; if IsEmpty or (not Active) then exit;
@ -2308,7 +2309,12 @@ begin
scaled_depth := ADrawer.Scale(Depth); scaled_depth := ADrawer.Scale(Depth);
SetLength(pts, Length(FGraphPoints) * 4 + 4); 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 try
CollectMissing; CollectMissing;
if Length(missing) = 0 then if Length(missing) = 0 then
@ -2337,6 +2343,7 @@ begin
ADrawer.ClippingStop; ADrawer.ClippingStop;
end; end;
DrawErrorBars(ADrawer);
DrawLabels(ADrawer); DrawLabels(ADrawer);
end; end;