Changeset 21 for trunk/UCore.pas

Timestamp:

Sep 27, 2011, 11:01:18 PM (13 years ago)

Author:

george

Message:

• Moved: Forms to subdirectory.
• Added: Preliminary multi language support.
• Added: New game customization form.

File:

• trunk/UCore.pas (modified) (7 diffs)

trunk/UCore.pas

@@ -76 +76 @@
   public
     Id: Integer;
+    Enabled: Boolean;
     Engine: TEngine;
     Position: TPoint;
@@ -82 +83 @@
     Name: string;
     Keys: TPlayerKeys;
-    Tanks: TListObject;
-    Bullets: TListObject; // TList<TBullet>
+    Tanks: TListObject; // TListObject<TTank>
+    Bullets: TListObject; // TListObject<TBullet>
     Energy: Real;
     LastEnergy: Real;
@@ -153 +154 @@
     FSystemThread: TSystemThread;
     IntfImage: TLazIntfImage;
+    ClearBackground: Boolean;
     function GetPlayerCount: Integer;
     procedure SetActive(const AValue: Boolean);
@@ -163 +165 @@
     Keyboard: TKeyboard;
     World: TWorld;
-    Players: TObjectList; // <TPlayer>
+    Players: TListObject; // TListObject<TPlayer>
     Lock: TCriticalSection;
     constructor Create;
@@ -900 +902 @@
     BytePerPixel := RawImage.Description.BitsPerPixel div 8;
     BytePerRow := RawImage.Description.BytesPerLine;
-    FillChar(RawImage.Data^, Bitmap.Height * BytePerRow, 0);
+    if ClearBackground then begin
+      FillChar(RawImage.Data^, Bitmap.Height * BytePerRow, 0);
+      ClearBackground := False;
+    end;
 
     if (FBitmap.Width / FBitmapLower.Width) < (FBitmap.Height / FBitmapLower.Height) then
@@ -983 +988 @@
     end;
   end;
+  ClearBackground := True;
   Redraw;
 end;
@@ -992 +998 @@
   FBitmapLock := TCriticalSection.Create;
   IntfImage := TLazIntfImage.Create(1, 1);
-  Players := TObjectList.Create;
+  Players := TListObject.Create;
   Keyboard := TKeyboard.Create;
   World := TWorld.Create;