Changeset 79 for trunk/Forms

Timestamp:

Nov 4, 2014, 8:57:21 AM (10 years ago)

Author:

chronos

Message:

• Removed: Useless old method GetCellNeighbors. Cell neigbours can be now accessed directly.
• Modified: Optimized canvas TextOut to not move pointer after text displaying.
• Fixed: Computer inner moves were calculated incorrectly multiple times for same cells. This was slowing down calculation in particular for large maps.
• Added: Used PersistentForm component to keep forms position and size. So far it not supports xmlconfig class.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormMain.lfm

@@ -130 +130 @@
   object MainMenu1: TMainMenu
     Images = Core.ImageListSmall
-    left = 72
+    left = 224
     top = 48
     object MenuItem1: TMenuItem

trunk/Forms/UFormMain.pas

@@ -219 +219 @@
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
-  //PaintBox1.ControlStyle := PaintBox1.ControlStyle + [csOpaque];
+  {$IFDEF Linux}
+  PaintBox1.ControlStyle := PaintBox1.ControlStyle + [csOpaque];
+  {$ENDIF}
   //DoubleBuffered := True;
   TempBitmap := TBitmap.Create;
@@ -295 +297 @@
   Core.Game.Running := False;
   SaveConfig(Core.XMLConfig1, 'FormMain');
+  Core.PersistentForm.Save(Self);
 end;
 
@@ -305 +308 @@
 begin
   LoadConfig(Core.XMLConfig1, 'FormMain');
+  Core.PersistentForm.Load(Self, True);
   ReloadView;
   Redraw;