Changeset 268 for trunk/Forms/UFormMain.pas

Timestamp:

Jan 20, 2019, 9:32:16 PM (6 years ago)

Author:

chronos

Message:

• Added: New menu action show/hide map grid lines.
• Modified: Draw cell polygons without a gap so it can be drawn as solid surface without grid lines.

File:

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

trunk/Forms/UFormMain.pas

@@ -18 +18 @@
 
   TFormMain = class(TForm)
+    AMapGridVisible: TAction;
     AStatusBarVisible: TAction;
     AToolBarVisible: TAction;
@@ -47 +48 @@
     MenuItem30: TMenuItem;
     MenuItem32: TMenuItem;
+    MenuItem33: TMenuItem;
     MenuItemDebug: TMenuItem;
     MenuItem31: TMenuItem;
@@ -70 +72 @@
     ToolButton5: TToolButton;
     ToolButton9: TToolButton;
+    procedure AMapGridVisibleExecute(Sender: TObject);
     procedure AStatusBarVisibleExecute(Sender: TObject);
     procedure AToolBarBigIconsExecute(Sender: TObject);
@@ -178 +181 @@
 end;
 
+procedure TFormMain.AMapGridVisibleExecute(Sender: TObject);
+begin
+  AMapGridVisible.Checked := not AMapGridVisible.Checked;
+  UpdateClientForms;
+end;
+
 procedure TFormMain.AToolBarBigIconsExecute(Sender: TObject);
 begin
@@ -211 +220 @@
   Core.PersistentForm.Save(Self);
   SaveConfig(Core.XMLConfig1, 'FormMain');
+  Core.ShowCellGrid := AMapGridVisible.Checked;
   Core.Done;
 end;
@@ -234 +244 @@
   FormClient.AStatusBarVisible.Checked := AStatusBarVisible.Checked;
   FormClient.AStatusBarVisible.Update;
+  Core.ShowCellGrid := AMapGridVisible.Checked;
+  if Assigned(FormClient.Client) then
+    FormClient.Client.ShowCellGrid := Core.ShowCellGrid;
+  FormClient.Redraw;
   for I := 0 to Core.FormClients.Count - 1 do begin
     Core.FormClients[I].AToolBarBigIcons.Checked := AToolBarBigIcons.Checked;
@@ -241 +255 @@
     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;
+    Core.FormClients[I].Redraw;
   end;
 end;
@@ -248 +265 @@
   if not FormShown then begin
     Core.LoadConfig;
+    AMapGridVisible.Checked := Core.ShowCellGrid;
     Core.ScaleDPI;
     Core.PersistentForm.Load(Self, True);