Changeset 51 for trunk/Forms/UFormAcronyms.pas

Timestamp:

Jul 25, 2016, 5:20:29 PM (8 years ago)

Author:

chronos

Message:

• Added: Bottom action toolbar to windows with lists.

File:

• trunk/Forms/UFormAcronyms.pas (modified) (3 diffs)

trunk/Forms/UFormAcronyms.pas

@@ -28 +28 @@
     PopupMenuAcronym: TPopupMenu;
     StatusBar1: TStatusBar;
+    ToolBar1: TToolBar;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    ToolButton3: TToolButton;
     procedure AAddExecute(Sender: TObject);
     procedure AModifyExecute(Sender: TObject);
     procedure ARemoveExecute(Sender: TObject);
     procedure ASelectAllExecute(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListViewAcronymsData(Sender: TObject; Item: TListItem);
@@ -60 +65 @@
 
 resourcestring
-  SRemoveAcronym = 'Remove acronym';
-  SRemoveAcronymQuery = 'Do you want to remove selected acronym?';
+  SRemoveAcronym = 'Remove acronyms';
+  SRemoveAcronymQuery = 'Do you want to remove selected acronyms?';
   STotal = 'Total';
   SFiltered = 'Filtered';
@@ -190 +195 @@
 end;
 
+procedure TFormAcronyms.FormCreate(Sender: TObject);
+var
+  I: Integer;
+begin
+  for I := 0 to ToolBar1.ButtonCount - 1 do
+    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
+end;
+
 procedure TFormAcronyms.ListViewFilter1Change(Sender: TObject);
 begin