Changeset 249 for trunk/Forms/UFormClient.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/UFormClient.pas (modified) (6 diffs)

trunk/Forms/UFormClient.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
   UGame, LCLType, Menus, ActnList, ComCtrls, dateutils, XMLConf, DOM, Math,
-  UGeometry, UGameClient, UGameProtocol, UThreading, UPlayer, UClientGUI;
+  UGeometry, UGameClient, UGameProtocol, UThreading, UPlayer, UClientGUI, UFormMain;
 
 const
@@ -44 +44 @@
     procedure AGameEndTurnExecute(Sender: TObject);
     procedure AStatusBarVisibleExecute(Sender: TObject);
+    procedure AStatusBarVisibleUpdate(Sender: TObject);
     procedure ASurrenderExecute(Sender: TObject);
     procedure AToolBarBigIconsExecute(Sender: TObject);
+    procedure AToolBarBigIconsUpdate(Sender: TObject);
     procedure AToolBarVisibleExecute(Sender: TObject);
+    procedure AToolBarVisibleUpdate(Sender: TObject);
     procedure AZoomAllExecute(Sender: TObject);
     procedure AZoomInExecute(Sender: TObject);
@@ -92 +95 @@
     procedure DoClientDestroy(Sender: TObject);
   public
+    FormMain: TFormMain;
     procedure LoadConfig(Config: TXmlConfig; Path: string);
     procedure SaveConfig(Config: TXmlConfig; Path: string);
@@ -416 +420 @@
 begin
   AToolBarBigIcons.Checked := not AToolBarBigIcons.Checked;
+end;
+
+procedure TFormClient.AToolBarBigIconsUpdate(Sender: TObject);
+begin
   UpdateInterface;
 end;
@@ -422 +430 @@
 begin
   AStatusBarVisible.Checked := not AStatusBarVisible.Checked;
+  UpdateInterface;
+end;
+
+procedure TFormClient.AStatusBarVisibleUpdate(Sender: TObject);
+begin
   UpdateInterface;
 end;
@@ -444 +457 @@
 begin
   AToolBarVisible.Checked := not AToolBarVisible.Checked;
+  UpdateInterface;
+end;
+
+procedure TFormClient.AToolBarVisibleUpdate(Sender: TObject);
+begin
   UpdateInterface;
 end;