Changeset 30 for trunk/Forms/UFormMain.pas

Timestamp:

Jul 12, 2016, 5:56:39 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Load also acronym description.
• Added: Interface icons.

File:

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

trunk/Forms/UFormMain.pas

@@ -55 +55 @@
     MenuItem22: TMenuItem;
     MenuItem23: TMenuItem;
+    MenuItem24: TMenuItem;
+    MenuItemToolbar: TMenuItem;
     MenuItem4: TMenuItem;
     MenuItem5: TMenuItem;
@@ -65 +67 @@
     MenuItem9: TMenuItem;
     OpenDialog1: TOpenDialog;
+    Panel1: TPanel;
     PersistentForm1: TPersistentForm;
     PopupMenuTryIcon: TPopupMenu;
     SaveDialog1: TSaveDialog;
+    ToolBar1: TToolBar;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
+    ToolButton5: TToolButton;
+    ToolButton6: TToolButton;
+    ToolButton7: TToolButton;
+    ToolButton8: TToolButton;
     TrayIcon1: TTrayIcon;
     procedure AExitExecute(Sender: TObject);
@@ -98 +110 @@
     function ListViewSort1CompareItem(Item1, Item2: TObject): Integer;
     procedure ListViewSort1Filter(ListViewSort: TListViewSort);
+    procedure MenuItemToolbarClick(Sender: TObject);
     procedure TrayIcon1Click(Sender: TObject);
   private
@@ -387 +400 @@
   AcronymDb.AssignToList(ListViewSort1.List);
   FilterList(ListViewSort1.List);
+end;
+
+procedure TFormMain.MenuItemToolbarClick(Sender: TObject);
+begin
+  MenuItemToolbar.Checked := not MenuItemToolbar.Checked;
+  UpdateInterface;
 end;
 
@@ -484 +503 @@
   AShowAcronyms.Enabled := Assigned(AcronymDb);
   AShowImportSources.Enabled := Assigned(AcronymDb);
+  ToolBar1.Visible := MenuItemToolbar.Checked;
 
   Title := Application.Title;
@@ -506 +526 @@
     AlwaysOnTop := ReadBoolWithDefault('AlwaysOnTop', False);
     CheckBoxExactMath.Checked := ReadBoolWithDefault('ExactMatch', False);
+    MenuItemToolbar.Checked := ReadBoolWithDefault('ToolBarVisible', True);
   finally
     Free;
@@ -524 +545 @@
     WriteBool('AlwaysOnTop', AlwaysOnTop);
     WriteBool('ExactMatch', CheckBoxExactMath.Checked);
+    WriteBool('ToolBarVisible', MenuItemToolbar.Checked);
   finally
     Free;