Changeset 58 for trunk/Forms

Timestamp:

Sep 25, 2014, 3:24:18 PM (10 years ago)

Author:

chronos

Message:

• Fixed: Background drawing problems of cells and arrows.
• Added: Zooming actions added also to toolbar.
• Added: Toolbar and statusbar visibility settings.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (9 diffs)
• UFormMain.lrt (modified) (2 diffs)
• UFormMain.pas (modified) (7 diffs)

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 503
+  Left = 102
   Height = 621
-  Top = 263
+  Top = 0
   Width = 775
   Caption = 'xTactics'
-  ClientHeight = 592
+  ClientHeight = 600
   ClientWidth = 775
   Menu = MainMenu1
@@ -13 +13 @@
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '1.3'
+  LCLVersion = '1.0.10.0'
   WindowState = wsMaximized
   object PaintBox1: TPaintBox
     Left = 0
-    Height = 531
+    Height = 547
     Top = 32
     Width = 775
@@ -32 +32 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 29
-    Top = 563
+    Height = 21
+    Top = 579
     Width = 775
     Panels = <    
@@ -83 +83 @@
       Action = Core.ASettings
     end
+    object ToolButton6: TToolButton
+      Left = 171
+      Top = 2
+      Action = AZoomIn
+    end
+    object ToolButton7: TToolButton
+      Left = 203
+      Top = 2
+      Action = AZoomOut
+    end
+    object ToolButton8: TToolButton
+      Left = 235
+      Top = 2
+      Action = AZoomAll
+    end
+    object ToolButton9: TToolButton
+      Left = 161
+      Top = 2
+      Width = 10
+      Caption = 'ToolButton9'
+      Style = tbsSeparator
+    end
   end
   object MainMenu1: TMainMenu
@@ -129 +151 @@
         Caption = '-'
       end
+      object MenuItem21: TMenuItem
+        Action = AToolBarVisible
+      end
       object MenuItem20: TMenuItem
         Action = AToolBarBigIcons
+      end
+      object MenuItem22: TMenuItem
+        Action = AStatusBarVisible
       end
     end
@@ -158 +186 @@
     object AZoomIn: TAction
       Caption = 'Zoom in'
+      ImageIndex = 8
       OnExecute = AZoomInExecute
       ShortCut = 16491
@@ -163 +192 @@
     object AZoomOut: TAction
       Caption = 'Zoom out'
+      ImageIndex = 9
       OnExecute = AZoomOutExecute
       ShortCut = 16493
@@ -168 +198 @@
     object AZoomAll: TAction
       Caption = 'Zoom all'
+      ImageIndex = 7
       OnExecute = AZoomAllExecute
       ShortCut = 16449
@@ -174 +205 @@
       Caption = 'Toolbar big icons'
       OnExecute = AToolBarBigIconsExecute
+    end
+    object AToolBarVisible: TAction
+      Caption = 'Toolbar visible'
+      OnExecute = AToolBarVisibleExecute
+    end
+    object AStatusBarVisible: TAction
+      Caption = 'Statusbar visible'
+      OnExecute = AStatusBarVisibleExecute
     end
   end

trunk/Forms/UFormMain.lrt

@@ -1 +1 @@
 TFORMMAIN.CAPTION=xTactics
+TFORMMAIN.TOOLBUTTON9.CAPTION=ToolButton9
 TFORMMAIN.MENUITEM1.CAPTION=Game
 TFORMMAIN.MENUITEM5.CAPTION=-
@@ -10 +11 @@
 TFORMMAIN.AZOOMALL.CAPTION=Zoom all
 TFORMMAIN.ATOOLBARBIGICONS.CAPTION=Toolbar big icons
+TFORMMAIN.ATOOLBARVISIBLE.CAPTION=Toolbar visible
+TFORMMAIN.ASTATUSBARVISIBLE.CAPTION=Statusbar visible

trunk/Forms/UFormMain.pas

@@ -17 +17 @@
 
   TFormMain = class(TForm)
+    AStatusBarVisible: TAction;
+    AToolBarVisible: TAction;
     AToolBarBigIcons: TAction;
     AZoomIn: TAction;
@@ -36 +38 @@
     MenuItem2: TMenuItem;
     MenuItem20: TMenuItem;
+    MenuItem21: TMenuItem;
+    MenuItem22: TMenuItem;
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
@@ -53 +57 @@
     ToolButton4: TToolButton;
     ToolButton5: TToolButton;
+    ToolButton6: TToolButton;
+    ToolButton7: TToolButton;
+    ToolButton8: TToolButton;
+    ToolButton9: TToolButton;
+    procedure AStatusBarVisibleExecute(Sender: TObject);
     procedure AToolBarBigIconsExecute(Sender: TObject);
+    procedure AToolBarVisibleExecute(Sender: TObject);
     procedure AZoomAllExecute(Sender: TObject);
     procedure AZoomInExecute(Sender: TObject);
@@ -149 +159 @@
   with Config do begin
     AToolBarBigIcons.Checked := GetValue(Path + '/LargeIcons', False);
+    AToolBarVisible.Checked := GetValue(Path + '/ToolBarVisible', True);
+    AStatusBarVisible.Checked := GetValue(Path + '/StatusBarVisible', True);
   end;
 end;
@@ -156 +168 @@
   with Config do begin
     SetValue(Path + '/LargeIcons', AToolBarBigIcons.Checked);
+    SetValue(Path + '/ToolBarVisible', AToolBarVisible.Checked);
+    SetValue(Path + '/StatusBarVisible', AStatusBarVisible.Checked);
   end;
 end;
@@ -172 +186 @@
     ToolBar1.Images := Core.ImageListSmall;
   end;
+  ToolBar1.Visible := AToolBarVisible.Checked;
+  StatusBar1.Visible := AStatusBarVisible.Checked;
 end;
 
@@ -209 +225 @@
 begin
   AToolBarBigIcons.Checked := not AToolBarBigIcons.Checked;
+  ReloadView;
+end;
+
+procedure TFormMain.AStatusBarVisibleExecute(Sender: TObject);
+begin
+  AStatusBarVisible.Checked := not AStatusBarVisible.Checked;
+  ReloadView;
+end;
+
+procedure TFormMain.AToolBarVisibleExecute(Sender: TObject);
+begin
+  AToolBarVisible.Checked := not AToolBarVisible.Checked;
   ReloadView;
 end;