Changeset 51 for trunk/Forms/UFormCategories.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/UFormCategories.pas (modified) (3 diffs)

trunk/Forms/UFormCategories.pas

@@ -18 +18 @@
     AModify: TAction;
     ActionList1: TActionList;
-    Button1: TButton;
-    Button2: TButton;
-    Button3: TButton;
     ListViewCategories: TListView;
     MenuItem1: TMenuItem;
@@ -26 +23 @@
     MenuItem3: TMenuItem;
     PopupMenuCategory: TPopupMenu;
+    ToolBar1: TToolBar;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    ToolButton3: TToolButton;
     procedure AAddExecute(Sender: TObject);
     procedure AModifyExecute(Sender: TObject);
     procedure ARemoveExecute(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListViewCategoriesData(Sender: TObject; Item: TListItem);
@@ -110 +112 @@
 end;
 
+procedure TFormCategories.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 TFormCategories.ListViewCategoriesData(Sender: TObject; Item: TListItem);
 begin