Changeset 58 for trunk/Forms/UFormMain.pas

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.

File:

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

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;