Changeset 31 for trunk/Forms/UFormMain.pas

Timestamp:

Jul 13, 2016, 10:34:13 AM (8 years ago)

Author:

chronos

Message:

• Added: Import format for MS Access database.
• Added: Show text hints on toolbar buttons.

File:

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

trunk/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ComCtrls, StdCtrls, ExtCtrls, ActnList, UAcronym, UPersistentForm,
-  URegistry, ULastOpenedList, UListViewSort, UCoolTranslator, Registry,
+  ComCtrls, StdCtrls, ExtCtrls, ActnList, UAcronym, UPersistentForm, URegistry,
+  ULastOpenedList, UListViewSort, UCoolTranslator, Registry,
   SpecializedList, LazUTF8;
 
@@ -339 +339 @@
 
 procedure TFormMain.FormShow(Sender: TObject);
+var
+  I: Integer;
 begin
   LoadConfig;
@@ -352 +354 @@
   ListViewFilter1.UpdateFromListView(ListViewAcronyms);
   UpdateInterface;
+  for I := 0 to ToolBar1.ButtonCount - 1 do
+    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
 end;