Changeset 4 for trunk/UGame.pas

Timestamp:

Feb 8, 2014, 11:35:27 PM (11 years ago)

Author:

chronos

Message:

• Added: Main menu with game control actions.

File:

• trunk/UGame.pas (modified) (2 diffs)

trunk/UGame.pas

@@ -34 +34 @@
     procedure Paint(Canvas: TCanvas; Rect: TRect);
     constructor Create;
+    destructor Destroy; override;
     procedure Init(Size: TPoint);
   end;
@@ -200 +201 @@
 end;
 
+destructor TMap.Destroy;
+begin
+  Init(0, 0);
+  inherited Destroy;
+end;
+
 procedure TMap.Init(Size: TPoint);
 var