Changeset 6 for trunk/UProject.pas

Timestamp:

Sep 19, 2014, 7:12:01 AM (11 years ago)

Author:

chronos

Message:

• Added: Prepared more menu actions.

File:

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

trunk/UProject.pas

@@ -10 +10 @@
 type
 
+  { TViewPort }
+
+  TViewPort = class
+  public
+    Pos: TPoint;
+    Zoom: Double;
+    ViewSize: TPoint;
+  end;
+
   { TProject }
 
@@ -15 +24 @@
     FileName: string;
     Bitmap: TGBitmap;
+    ViewPort: TViewPort;
     constructor Create;
     destructor Destroy; override;
@@ -21 +31 @@
 implementation
 
+
 { TProject }
 
@@ -26 +37 @@
 begin
   Bitmap := TGBitmap.Create;
+  ViewPort := TViewPort.Create;
 end;
 
 destructor TProject.Destroy;
 begin
+  ViewPort.Free;
   Bitmap.Free;
   inherited Destroy;