Changeset 87 for trunk

Timestamp:

Aug 8, 2016, 1:51:33 PM (8 years ago)

Author:

chronos

Message:

• Added: Dropdown menu for open file icon in main toolbar.

Location:

trunk

Files:

• AcronymDecoder.lpr (modified) (2 diffs)
• Forms/UFormMain.lfm (modified) (5 diffs)
• Forms/UFormMain.pas (modified) (3 diffs)

trunk/AcronymDecoder.lpr

@@ -32 +32 @@
   RequireDerivedFormResource := True;
   Application.Initialize;
+  Application.CreateForm(TCore, Core);
   Application.CreateForm(TFormMain, FormMain);
   Application.CreateForm(TFormCategorySelect, FormCategorySelect);
@@ -45 +46 @@
   Application.CreateForm(TFormImportFormats, FormImportFormats);
   Application.CreateForm(TFormImportPattern, FormImportPattern);
-  Application.CreateForm(TCore, Core);
   Application.Run;
 end.

trunk/Forms/UFormMain.lfm

@@ -87 +87 @@
     end
     object ToolButton2: TToolButton
-      Left = 75
+      Left = 110
       Top = 2
       Action = AShowAcronyms
     end
     object ToolButton3: TToolButton
-      Left = 98
+      Left = 133
       Top = 2
       Action = AShowCategories
     end
     object ToolButton4: TToolButton
-      Left = 144
+      Left = 179
       Top = 2
       Action = AShowImportFormats
     end
     object ToolButton5: TToolButton
-      Left = 121
+      Left = 156
       Top = 2
       Action = AShowImportSources
@@ -110 +110 @@
       Top = 2
       Action = AFileOpen
+      DropdownMenu = PopupMenuOpenRecent
+      Style = tbsDropDown
     end
     object ToolButton7: TToolButton
-      Left = 47
+      Left = 59
       Top = 2
       Action = AFileSave
     end
     object ToolButton8: TToolButton
-      Left = 70
+      Left = 105
       Height = 22
       Top = 2
@@ -125 +127 @@
     end
     object ToolButton9: TToolButton
-      Left = 167
+      Left = 202
       Top = 2
       Action = AProcessImports
     end
     object ToolButton10: TToolButton
-      Left = 190
+      Left = 225
       Height = 22
       Top = 2
@@ -138 +140 @@
     end
     object ToolButton11: TToolButton
-      Left = 195
+      Left = 230
       Top = 2
       Action = ASettings
+    end
+    object ToolButton12: TToolButton
+      Left = 82
+      Top = 2
+      Action = AFileClose
     end
   end
@@ -1994 +2001 @@
     top = 296
   end
+  object PopupMenuOpenRecent: TPopupMenu
+    left = 379
+    top = 136
+  end
 end

trunk/Forms/UFormMain.pas

@@ -70 +70 @@
     Panel1: TPanel;
     PersistentForm1: TPersistentForm;
+    PopupMenuOpenRecent: TPopupMenu;
     PopupMenuTryIcon: TPopupMenu;
     SaveDialog1: TSaveDialog;
@@ -76 +77 @@
     ToolButton10: TToolButton;
     ToolButton11: TToolButton;
+    ToolButton12: TToolButton;
     ToolButton2: TToolButton;
     ToolButton3: TToolButton;
@@ -382 +384 @@
 begin
   LastOpenedList1.LoadToMenuItem(MenuItemOpenRecent, OpenRecentClick);
+  LastOpenedList1.LoadToMenuItem(PopupMenuOpenRecent.Items, OpenRecentClick);
 end;