Changeset 15 for trunk/StudioPackage/Forms/UFormMain.lfm

Timestamp:

Aug 6, 2012, 2:35:22 PM (12 years ago)

Author:

chronos

Message:

• Added: Registration of new file templates for modules.
• Added: Program stores last opened file list in registry.

File:

• trunk/StudioPackage/Forms/UFormMain.lfm (modified) (7 diffs)

trunk/StudioPackage/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 150
+  Left = 240
   Height = 520
-  Top = 112
+  Top = 108
   Width = 747
   Caption = 'LibreDevelop Studio'
@@ -27 +27 @@
     Width = 747
     Caption = 'ToolBar1'
+    Images = DataModule1.ImageListMain
     TabOrder = 1
     object ToolButton1: TToolButton
       Left = 1
-      Hint = 'New project'
       Top = 2
-      Caption = 'New...'
-      ImageIndex = 4
+      Action = AFileNew
     end
     object ToolButton2: TToolButton
       Left = 24
-      Hint = 'Open project'
       Top = 2
-      Caption = 'Open...'
-      ImageIndex = 8
+      Action = AFileOpen
+      DropdownMenu = PopupMenuRecentFiles
+      Style = tbsDropDown
     end
     object ToolButton3: TToolButton
-      Left = 47
-      Hint = 'Save project'
+      Left = 59
       Top = 2
-      Caption = 'Save'
-      ImageIndex = 13
+      Action = AFileSaveAs
     end
     object ToolButton4: TToolButton
-      Left = 70
-      Hint = 'Close project'
+      Left = 82
       Top = 2
-      Caption = 'Close'
-      ImageIndex = 3
+      Action = AFileClose
     end
   end
@@ -117 +112 @@
         Action = AFileOpen
       end
-      object MenuItem29: TMenuItem
-        Action = AFileOpenRecent
+      object MenuItemFileOpenRecent: TMenuItem
+        Caption = 'Open recent'
+        ImageIndex = 8
+        OnClick = MenuItemFileOpenRecentClick
       end
       object MenuItem30: TMenuItem
@@ -313 +310 @@
       Caption = 'Open recent'
       ImageIndex = 8
+      OnExecute = AFileOpenRecentExecute
     end
     object AFileSave: TAction
@@ -318 +316 @@
       Caption = 'Save'
       ImageIndex = 13
+      OnExecute = AFileSaveExecute
       ShortCut = 16467
     end
@@ -324 +323 @@
       Caption = 'Save as...'
       ImageIndex = 13
+      OnExecute = AFileSaveAsExecute
       ShortCut = 24659
     end
@@ -387 +387 @@
     top = 272
   end
+  object LastOpenedList1: TLastOpenedList
+    MaxCount = 10
+    OnChange = LastOpenedList1Change
+    left = 80
+    top = 160
+  end
+  object PopupMenuRecentFiles: TPopupMenu
+    Images = DataModule1.ImageListMain
+    left = 259
+    top = 69
+  end
 end