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

TAChart: Add AImmediateRecalc parameter to ZoomFull procedure

Browse Source 
git-svn-id: trunk@39926 -
This commit is contained in:
ask 2013-01-21 06:12:48 +00:00
parent 89795718f6
commit af6a389df6
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tagraph.pas
View File

@ -311,7 +311,7 @@ type
procedure SaveToFile(AClass: TRasterImageClass; AFileName: String);
function SaveToImage(AClass: TRasterImageClass): TRasterImage;
procedure StyleChanged(Sender: TObject); override;
procedure ZoomFull; override;
procedure ZoomFull(AImmediateRecalc: Boolean = false); override;
property Drawer: IChartDrawer read FDrawer;
public // Coordinate conversion
@ -1538,8 +1538,10 @@ begin
Result := (AY - FOffset.Y) / FScale.Y;
end;
procedure TChart.ZoomFull;
procedure TChart.ZoomFull(AImmediateRecalc: Boolean);
begin
if AImmediateRecalc then
FLogicalExtent := GetFullExtent;
if not FIsZoomed then exit;
HideReticule;
FIsZoomed := false;

2
components/tachart/tatypes.pas
View File

@ -43,7 +43,7 @@ type
TCustomChart = class(TCustomControl)
public
procedure StyleChanged(Sender: TObject); virtual; abstract;
procedure ZoomFull; virtual; abstract;
procedure ZoomFull(AImmediateRecalc: Boolean = false); virtual; abstract;
end;
{ TChartPen }