Changeset 249 for trunk/Forms/UFormMain.pas

Timestamp:

Sep 22, 2018, 9:37:16 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Use different interface language if installed as deb Linux package.
• Fixed: Propagate status bar, toolbar visibilit, and toolbar icons size to client form.

File:

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

trunk/Forms/UFormMain.pas

@@ -18 +18 @@
 
   TFormMain = class(TForm)
+    AStatusBarVisible: TAction;
     AToolBarVisible: TAction;
     AToolBarBigIcons: TAction;
@@ -67 +68 @@
     ToolButton5: TToolButton;
     ToolButton9: TToolButton;
+    procedure AStatusBarVisibleExecute(Sender: TObject);
     procedure AToolBarBigIconsExecute(Sender: TObject);
     procedure AToolBarVisibleExecute(Sender: TObject);
@@ -80 +82 @@
     FormActivated: Boolean;
     procedure ApplicationStart(Ptr: IntPtr);
+    procedure UpdateClientForms;
   public
     procedure LoadConfig(Config: TXmlConfig; Path: string);
@@ -121 +124 @@
     AToolBarBigIcons.Checked := GetValue(DOMString(Path + '/LargeIcons'), False);
     AToolBarVisible.Checked := GetValue(DOMString(Path + '/ToolBarVisible'), True);
+    AStatusBarVisible.Checked := GetValue(DOMString(Path + '/StatusBarVisible'), False);
   end;
 end;
@@ -129 +133 @@
     SetValue(DOMString(Path + '/LargeIcons'), AToolBarBigIcons.Checked);
     SetValue(DOMString(Path + '/ToolBarVisible'), AToolBarVisible.Checked);
+    SetValue(DOMString(Path + '/StatusBarVisible'), AStatusBarVisible.Checked);
   end;
 end;
@@ -164 +169 @@
 end;
 
+procedure TFormMain.AStatusBarVisibleExecute(Sender: TObject);
+begin
+  AStatusBarVisible.Checked := not AStatusBarVisible.Checked;
+  UpdateClientForms;
+end;
+
 procedure TFormMain.AToolBarBigIconsExecute(Sender: TObject);
 begin
   AToolBarBigIcons.Checked := not AToolBarBigIcons.Checked;
   ReloadView;
+  UpdateClientForms;
 end;
 
@@ -174 +186 @@
   AToolBarVisible.Checked := not AToolBarVisible.Checked;
   ReloadView;
+  UpdateClientForms;
 end;
 
@@ -206 +219 @@
 begin
   Core.ReopenGameOnInit;
+end;
+
+procedure TFormMain.UpdateClientForms;
+var
+  I: Integer;
+begin
+  FormClient.AToolBarBigIcons.Checked := AToolBarBigIcons.Checked;
+  FormClient.AToolBarBigIcons.Update;
+  FormClient.AToolBarVisible.Checked := AToolBarVisible.Checked;
+  FormClient.AToolBarVisible.Update;
+  FormClient.AStatusBarVisible.Checked := AStatusBarVisible.Checked;
+  FormClient.AStatusBarVisible.Update;
+  for I := 0 to Core.FormClients.Count - 1 do begin
+    Core.FormClients[I].AToolBarBigIcons.Checked := AToolBarBigIcons.Checked;
+    Core.FormClients[I].AToolBarBigIcons.Update;
+    Core.FormClients[I].AToolBarVisible.Checked := AToolBarVisible.Checked;
+    Core.FormClients[I].AToolBarVisible.Update;
+    Core.FormClients[I].AStatusBarVisible.Checked := AStatusBarVisible.Checked;
+    Core.FormClients[I].AStatusBarVisible.Update;
+  end;
 end;
 
@@ -218 +251 @@
   ReloadView;
   FormClient.Show;
+  UpdateClientForms;
   Application.QueueAsyncCall(ApplicationStart, 0);
 end;