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

Timestamp:

Aug 1, 2012, 4:36:04 PM (12 years ago)

Author:

chronos

Message:

• Added: Unit for project management.
• Added: Some base actions and menu items.

File:

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

trunk/StudioPackage/Forms/UFormMain.lfm

@@ -4 +4 @@
   Top = 75
   Width = 611
-  Caption = 'FormMain'
+  Caption = 'LibreDevelop Studio'
   ClientHeight = 428
   ClientWidth = 611
@@ -22 +22 @@
     Width = 611
     Caption = 'ToolBar1'
+    Images = ImageList1
     TabOrder = 1
     object ToolButton1: TToolButton
       Left = 1
       Top = 2
-      Action = Action1
+      Action = AProjectNew
     end
   end
   object MainMenu1: TMainMenu
-    left = 100
-    top = 107
+    Images = ImageList1
+    left = 48
+    top = 64
     object MenuItem1: TMenuItem
       Caption = 'File'
       object MenuItem3: TMenuItem
-        Action = Action1
+        Action = AProjectNew
+      end
+      object MenuItem8: TMenuItem
+        Action = AProjectOpen
+      end
+      object MenuItem9: TMenuItem
+        Action = AProjectOpenRecent
+      end
+      object MenuItem10: TMenuItem
+        Action = AProjectSave
+      end
+      object MenuItem11: TMenuItem
+        Action = AProjectSaveAs
+      end
+      object MenuItem12: TMenuItem
+        Action = AProjectClose
+      end
+      object MenuItem13: TMenuItem
+        Caption = '-'
+      end
+      object MenuItem14: TMenuItem
+        Action = AExit
       end
     end
     object MenuItem2: TMenuItem
-      Caption = 'New Item2'
+      Caption = 'Edit'
+      object MenuItem4: TMenuItem
+        Action = AClipboardCopy
+      end
+      object MenuItem5: TMenuItem
+        Action = AClipboardPaste
+      end
+      object MenuItem6: TMenuItem
+        Action = AClipboardCut
+      end
+      object MenuItem7: TMenuItem
+        Action = ASelectAll
+      end
     end
   end
   object ActionList1: TActionList
-    left = 267
-    top = 95
-    object Action1: TAction
-      Caption = 'Action1'
+    Images = ImageList1
+    left = 48
+    top = 120
+    object AProjectNew: TAction
+      Category = 'Project'
+      Caption = 'New...'
+      Hint = 'New project'
+      ShortCut = 16462
+    end
+    object AProjectOpen: TAction
+      Category = 'Project'
+      Caption = 'Open...'
+      Hint = 'Open project'
+      ShortCut = 16463
+    end
+    object AProjectClose: TAction
+      Category = 'Project'
+      Caption = 'Close'
+      Hint = 'Close project'
+    end
+    object AProjectSave: TAction
+      Category = 'Project'
+      Caption = 'Save'
+      Hint = 'Save project'
+      ShortCut = 16467
+    end
+    object AProjectSaveAs: TAction
+      Category = 'Project'
+      Caption = 'Save as...'
+      Hint = 'Save project as'
+      ShortCut = 24659
+    end
+    object AProjectOpenRecent: TAction
+      Category = 'Project'
+      Caption = 'Open recent'
+      Hint = 'Open recent project'
+    end
+    object AClipboardCopy: TAction
+      Category = 'Edit'
+      Caption = 'Copy'
+      Hint = 'Copy to clipboard'
+      ShortCut = 16451
+    end
+    object AClipboardPaste: TAction
+      Category = 'Edit'
+      Caption = 'Paste'
+      Hint = 'Paste from clipboard'
+      ShortCut = 16470
+    end
+    object AClipboardCut: TAction
+      Category = 'Edit'
+      Caption = 'Cut'
+      Hint = 'Cut to clipboard'
+      ShortCut = 16472
+    end
+    object ASelectAll: TAction
+      Category = 'Edit'
+      Caption = 'Select all'
+      Hint = 'Select all'
+      ShortCut = 16449
+    end
+    object AExit: TAction
+      Caption = 'Exit'
+      Hint = 'Exit application'
+      OnExecute = AExitExecute
+      ShortCut = 16499
     end
   end
+  object ImageList1: TImageList
+    left = 48
+    top = 176
+  end
 end