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

trunk/Forms/UFormImportFormats.pas

@@ -23 +23 @@
     MenuItem3: TMenuItem;
     PopupMenuImportSource: 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 ListView1Data(Sender: TObject; Item: TListItem);
@@ -155 +160 @@
 end;
 
+procedure TFormImportFormats.FormCreate(Sender: TObject);
+var
+  I: Integer;
+begin
+  for I := 0 to ToolBar1.ButtonCount - 1 do
+    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
+end;
+
 end.