Changeset 33 for trunk/UProject.pas

Timestamp:

Jan 5, 2017, 11:48:36 PM (8 years ago)

Author:

chronos

Message:

• Added: Remember last used image size and color format.
• Added: Automatically create blank image.

File:

• trunk/UProject.pas (modified) (4 diffs)

trunk/UProject.pas

@@ -9 +9 @@
 
 type
+
+  { TFloatPoint }
+
+  TFloatPoint = record
+    X, Y: Double;
+    function Create(AX, AY: Double): TFloatPoint;
+  end;
 
   { TView }
@@ -23 +30 @@
     procedure Center(Rect: TRect);
     constructor Create;
+    procedure ZoomAll(BitmapSize: TPoint);
     function DestToSrcPos(Pos: TPoint): TPoint;
     function SrcToDestPos(Pos: TPoint): TPoint;
@@ -47 +55 @@
   Result := (A.Left = B.Left) and (A.Top = B.Top) and
     (A.Right = B.Right) and (A.Bottom = B.Bottom);
+end;
+
+{ TFloatPoint }
+
+function TFloatPoint.Create(AX, AY: Double): TFloatPoint;
+begin
+  Result.X := AX;
+  Result.Y := AY;
 end;
 
@@ -102 +118 @@
 end;
 
+procedure TView.ZoomAll(BitmapSize: TPoint);
+var
+  Factor: TFloatPoint;
+begin
+  Factor := TFloatPoint.Create((DestRect.Right - DestRect.Left) / BitmapSize.X,
+    (DestRect.Bottom - DestRect.Top) / BitmapSize.Y);
+  if Factor.X < Factor.Y then Zoom := Factor.X
+    else Zoom := Factor.Y;
+  Center(Rect(0, 0, BitmapSize.X, BitmapSize.Y));
+end;
+
 function TView.DestToSrcPos(Pos: TPoint): TPoint;
 begin