Changeset 62 for trunk/Packages/Common/UMetaCanvas.pas

Timestamp:

Nov 25, 2020, 4:25:09 PM (3 years ago)

Author:

chronos

Message:

• Added: Main game menu.

File:

• trunk/Packages/Common/UMetaCanvas.pas (modified) (16 diffs)

trunk/Packages/Common/UMetaCanvas.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Graphics, Contnrs, Types;
+  Classes, SysUtils, Graphics, Contnrs, Types, fgl;
 
 type
@@ -17 +17 @@
     procedure Zoom(Factor: Double); virtual;
     procedure Move(Delta: TPoint); virtual;
+  end;
+
+  TCanvasObjects = class(TFPGObjectList<TCanvasObject>)
   end;
 
@@ -133 +136 @@
     procedure DoLineTo(X, Y: Integer); override;
   public
-    Objects: TObjectList;
+    Objects: TCanvasObjects;
     procedure FillRect(const ARect: TRect); overload; override;
     procedure FillRect(X1,Y1,X2,Y2: Integer); overload;
@@ -154 +157 @@
   end;
 
+
 implementation
 
@@ -198 +202 @@
   Pen.Free;
   Brush.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -228 +232 @@
 destructor TCanvasStretchDraw.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;
 
@@ -264 +268 @@
   Pen.Free;
   Brush.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -304 +308 @@
   Brush.Free;
   Pen.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -336 +340 @@
 begin
   Pen.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -375 +379 @@
   Pen.Free;
   Brush.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -408 +412 @@
   Brush.Free;
   Font.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -633 +637 @@
 begin
   for I := 0 to Objects.Count - 1 do
-    TCanvasObject(Objects[I]).Paint(Canvas);
+    Objects[I].Paint(Canvas);
 end;
 
@@ -641 +645 @@
 begin
   for I := 0 to Objects.Count - 1 do
-    TCanvasObject(Objects[I]).Zoom(Factor);
+    Objects[I].Zoom(Factor);
 end;
 
@@ -649 +653 @@
 begin
   for I := 0 to Objects.Count - 1 do
-    TCanvasObject(Objects[I]).Move(Delta);
+    Objects[I].Move(Delta);
 end;
 
@@ -656 +660 @@
   inherited;
   FPenPos := Point(0, 0);
-  Objects := TObjectList.Create;
+  Objects := TCanvasObjects.Create;
 end;
 
@@ -662 +666 @@
 begin
   Objects.Free;
-  inherited Destroy;
+  inherited;
 end;