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

TAChart: Fix chart redrawing after manual Invalidate call

Browse Source 
git-svn-id: trunk@25004 -
This commit is contained in:
ask 2010-04-27 11:03:19 +00:00
parent 97d1dbe77d
commit deb60ea55e
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/tachart/tagraph.pas
View File

@ -376,8 +376,6 @@ begin
Color := clBtnFace;
FBackColor := clBtnFace;
FCurrentExtent := EmptyDoubleRect;
FIsZoomed := false;
FGraphBrush := TBrush.Create;
@ -470,7 +468,7 @@ begin
if not FIsZoomed then
UpdateExtent;
FLogicalExtent := FCurrentExtent;
FCurrentExtent := FLogicalExtent;
DrawTitleFoot(ACanvas);
PrepareLegend(ACanvas, legendItems, legendRect);
try
@ -915,7 +913,6 @@ begin
HideReticule;
FLogicalExtent := AValue;
FIsZoomed := true;
FCurrentExtent := FLogicalExtent;
Invalidate;
end;
@ -1044,20 +1041,20 @@ var
begin
Extent.CheckBoundsOrder;
FCurrentExtent := EmptyExtent;
FLogicalExtent := EmptyExtent;
for i := 0 to SeriesCount - 1 do begin
s := Series[i];
if not s.Active then continue;
seriesBounds := EmptyExtent;
s.GetGraphBounds(seriesBounds);
with FCurrentExtent do begin
with FLogicalExtent do begin
a.X := Min(a.X, seriesBounds.a.X);
b.X := Max(b.X, seriesBounds.b.X);
a.Y := Min(a.Y, seriesBounds.a.Y);
b.Y := Max(b.Y, seriesBounds.b.Y);
end;
end;
with FCurrentExtent, Extent do begin
with FLogicalExtent, Extent do begin
SetBounds(a.X, b.X, XMin, XMax, UseXMin, UseXMax);
SetBounds(a.Y, b.Y, YMin, YMax, UseYMin, UseYMax);
end;