Changeset 273 for trunk/Forms/UFormMain.pas

Timestamp:

Jan 30, 2019, 8:08:44 AM (6 years ago)

Author:

chronos

Message:

• Added: Show units shape to see in which cell units are placed.
• Fixed: Do not place units with zero power in zero power cells.
• Fixed: Better checks of cell power if cell is without unit.

File:

• trunk/Forms/UFormMain.pas (modified) (8 diffs)

trunk/Forms/UFormMain.pas

@@ -18 +18 @@
 
   TFormMain = class(TForm)
+    AUnitShapeVisible: TAction;
     AMapGridVisible: TAction;
     AStatusBarVisible: TAction;
@@ -49 +50 @@
     MenuItem32: TMenuItem;
     MenuItem33: TMenuItem;
+    MenuItem34: TMenuItem;
+    MenuItem35: TMenuItem;
     MenuItemDebug: TMenuItem;
     MenuItem31: TMenuItem;
@@ -76 +79 @@
     procedure AToolBarBigIconsExecute(Sender: TObject);
     procedure AToolBarVisibleExecute(Sender: TObject);
+    procedure AUnitShapeVisibleExecute(Sender: TObject);
     procedure FormActivate(Sender: TObject);
     procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
@@ -201 +205 @@
 end;
 
+procedure TFormMain.AUnitShapeVisibleExecute(Sender: TObject);
+begin
+  AUnitShapeVisible.Checked := not AUnitShapeVisible.Checked;
+  UpdateClientForms;
+end;
+
 procedure TFormMain.FormActivate(Sender: TObject);
 begin
@@ -220 +230 @@
   Core.PersistentForm.Save(Self);
   SaveConfig(Core.XMLConfig1, 'FormMain');
-  Core.ShowCellGrid := AMapGridVisible.Checked;
+  Core.CellGridVisible := AMapGridVisible.Checked;
+  Core.UnitShapeVisible := AUnitShapeVisible.Checked;
   Core.Done;
 end;
@@ -244 +255 @@
   FormClient.AStatusBarVisible.Checked := AStatusBarVisible.Checked;
   FormClient.AStatusBarVisible.Update;
-  Core.ShowCellGrid := AMapGridVisible.Checked;
-  if Assigned(FormClient.Client) then
-    FormClient.Client.ShowCellGrid := Core.ShowCellGrid;
+  Core.CellGridVisible := AMapGridVisible.Checked;
+  Core.UnitShapeVisible := AUnitShapeVisible.Checked;
+  if Assigned(FormClient.Client) then begin
+    FormClient.Client.CellGridVisible := Core.CellGridVisible;
+    FormClient.Client.UnitShapeVisible := Core.UnitShapeVisible;
+  end;
   FormClient.Redraw;
   for I := 0 to Core.FormClients.Count - 1 do begin
@@ -255 +269 @@
     Core.FormClients[I].AStatusBarVisible.Checked := AStatusBarVisible.Checked;
     Core.FormClients[I].AStatusBarVisible.Update;
-    if Assigned(Core.FormClients[I].Client) then
-      Core.FormClients[I].Client.ShowCellGrid := Core.ShowCellGrid;
+    if Assigned(Core.FormClients[I].Client) then begin
+      Core.FormClients[I].Client.CellGridVisible := Core.CellGridVisible;
+      Core.FormClients[I].Client.UnitShapeVisible := Core.UnitShapeVisible;
+    end;
     Core.FormClients[I].Redraw;
   end;
@@ -265 +281 @@
   if not FormShown then begin
     Core.LoadConfig;
-    AMapGridVisible.Checked := Core.ShowCellGrid;
+    AMapGridVisible.Checked := Core.CellGridVisible;
+    AUnitShapeVisible.Checked := Core.UnitShapeVisible;
     Core.ScaleDPI;
     Core.PersistentForm.Load(Self, True);