mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed zooming bug in main window

Browse Source
This commit is contained in:
zueuk
2006-09-27 14:52:07 +00:00
parent 2c9a9705cc
commit 07078fa223
8 changed files with 48 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
2.10/Source/ControlPoint.pas
View File

@ -50,6 +50,9 @@ type
x: double;
y: double;
end;
TSRect = record
Left, Top, Right, Bottom: double;
end;
TMapPalette = record
Red: array[0..255] of byte;
Green: array[0..255] of byte;
@ -182,10 +185,10 @@ type
constructor Create;
destructor Destroy; override;
procedure ZoomtoRect(R: TRect);
procedure ZoomOuttoRect(R: TRect);
procedure ZoomtoRect(R: TSRect);
procedure ZoomOuttoRect(R: TSRect);
procedure MoveRect(R: TSRect);
procedure ZoomIn(Factor: double);
procedure MoveRect(R: TRect);
procedure Rotate(Angle: double);
property ppux: double read getppux;
@ -1688,7 +1691,7 @@ end;
*)
///////////////////////////////////////////////////////////////////////////////
procedure TControlPoint.ZoomtoRect(R: TRect);
procedure TControlPoint.ZoomtoRect(R: TSRect);
var
scale, ppu: double;
dx,dy: double;
@ -1709,7 +1712,7 @@ begin
end;
///////////////////////////////////////////////////////////////////////////////
procedure TControlPoint.ZoomOuttoRect(R: TRect);
procedure TControlPoint.ZoomOuttoRect(R: TSRect);
var
ppu: double;
dx, dy: double;
@ -1740,7 +1743,7 @@ begin
end;
///////////////////////////////////////////////////////////////////////////////
procedure TControlPoint.MoveRect(R: TRect);
procedure TControlPoint.MoveRect(R: TSRect);
var
scale: double;
ppux, ppuy: double;