Changeset 12 for trunk/UFormMain.lfm

Timestamp:

May 5, 2014, 3:33:31 PM (10 years ago)

Author:

chronos

Message:

• Modified: Fixed project path replaced by directory select dialog and recent list menu.

File:

• trunk/UFormMain.lfm (modified) (5 diffs)

trunk/UFormMain.lfm

@@ -73 +73 @@
       Action = AShowLog
     end
+    object ToolButton5: TToolButton
+      Left = 93
+      Top = 2
+      Action = AOpenDir
+      DropdownMenu = PopupMenuOpenRecent
+      Style = tbsDropDown
+    end
+    object ToolButton6: TToolButton
+      Left = 128
+      Top = 2
+      Action = ACompare
+      DropdownMenu = PopupMenuCompareRecent
+      Style = tbsDropDown
+    end
   end
   object Memo1: TMemo
@@ -135 +149 @@
       object MenuItem7: TMenuItem
         Action = ACompare
+        Caption = 'Compare directory'
+      end
+      object MenuItemCompareRecent: TMenuItem
+        Caption = 'Compare recent'
       end
       object MenuItem9: TMenuItem
@@ -140 +158 @@
       end
       object MenuItem10: TMenuItem
-        Caption = 'Exit'
+        Action = AExit
       end
     end
@@ -300 +318 @@
       ShortCut = 16454
     end
+    object AExit: TAction
+      Caption = 'Exit'
+      OnExecute = AExitExecute
+      ShortCut = 32883
+    end
   end
   object ImageList1: TImageList
@@ -468 +491 @@
     }
   end
-  object LastOpenedList1: TLastOpenedList
+  object LastOpenedListOpen: TLastOpenedList
     MaxCount = 10
-    OnChange = LastOpenedList1Change
+    OnChange = LastOpenedListOpenChange
     left = 144
     top = 160
   end
+  object PopupMenuOpenRecent: TPopupMenu
+    left = 194
+    top = 369
+  end
+  object PopupMenuCompareRecent: TPopupMenu
+    left = 192
+    top = 432
+  end
+  object LastOpenedListCompare: TLastOpenedList
+    MaxCount = 10
+    OnChange = LastOpenedListCompareChange
+    left = 144
+    top = 232
+  end
 end