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

Timestamp:

Aug 3, 2012, 10:42:13 AM (12 years ago)

Author:

chronos

Message:

• Added: Registration of file types for modules.
• Added: Some Brainfuck module sample code.

File:

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

trunk/StudioPackage/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 266
+  Left = 265
   Height = 520
-  Top = 113
+  Top = 144
   Width = 747
   Caption = 'LibreDevelop Studio'
@@ -118 +118 @@
     left = 80
     top = 48
+    object MenuItem26: TMenuItem
+      Caption = 'File'
+      object MenuItem27: TMenuItem
+        Action = AFileNew
+      end
+      object MenuItem28: TMenuItem
+        Action = AFileOpen
+      end
+      object MenuItem29: TMenuItem
+        Action = AFileOpenRecent
+      end
+      object MenuItem30: TMenuItem
+        Action = AFileSave
+      end
+      object MenuItem31: TMenuItem
+        Action = AFileSaveAs
+      end
+      object MenuItem32: TMenuItem
+        Action = AFileClose
+      end
+      object MenuItem33: TMenuItem
+        Caption = '-'
+      end
+      object MenuItem34: TMenuItem
+        Action = AExit
+      end
+    end
     object MenuItem1: TMenuItem
       Caption = 'Project'
@@ -358 +385 @@
       end
       object MenuItem14: TMenuItem
-        Action = AExit
-        Bitmap.Data = {
-          36040000424D3604000000000000360000002800000010000000100000000100
-          2000000000000004000064000000640000000000000000000000000000000000
-          0000000000000000000000000000000000FF0000000000000000000000000000
-          0000000000000000000000000000000000000000000000000000000000000000
-          00000000000000000000000000FF000000FF0000000000000000000000000000
-          0000000000000000000000000000000000000000000000000000000000000000
-          000000000000000000FF008484FF000000FF0000000000000000000000000000
-          0000000000000000000000000000000000000000000000000000000000000000
-          0000000000FF008484FF008484FF000000FF0000000000000000000000000000
-          0000000000000000000000000000000000000000000000000000000000FF0000
-          00FF008484FF008484FF008484FF000000FF000000FF000000FF000000FF0000
-          00FF000000FF000000FF000000FF000000000000000000000000000000000000
-          00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000
-          0000000000000000000000000000000000000000000000000000000000000000
-          00FF008484FF008484FF000000FF000000FFFFFFFFFFFFFFFFFF000000FF0000
-          0000000000000000000000000000840000FF0000000000000000000000000000
-          00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000
-          00000000000000000000840000FF840000FF0000000000000000000000000000
-          00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000
-          000000000000840000FF840000FF840000FF840000FF840000FF000000000000
-          00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000
-          0000840000FF840000FF840000FF840000FF840000FF840000FF000000000000
-          00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000
-          000000000000840000FF840000FF840000FF840000FF840000FF000000000000
-          00FF008484FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000
-          00000000000000000000840000FF840000FF0000000000000000000000000000
-          00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000
-          0000000000000000000000000000840000FF0000000000000000000000000000
-          00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000
-          0000000000000000000000000000000000000000000000000000000000000000
-          00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
-          0000000000000000000000000000000000000000000000000000000000000000
-          0000000000000000000000000000000000000000000000000000000000000000
-          0000000000000000000000000000000000000000000000000000
-        }
+        Action = AViewProjectManager
       end
     end
@@ -542 +533 @@
       object MenuItem19: TMenuItem
         Action = AViewSettings
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000986B37FF976A
+          36FF966935FF966734FF956633FF946532FF946531FF936430FF92622FFF9261
+          2EFF91602DFF90602CFF905F2BFF8F5D2AFF8E5C29FF8D5B28FF996C38FFF8F7
+          F6FFF8F7F5FFF7F6F5FFF6F6F4FFF6F5F3FFF5F5F3FFF5F4F2FFF4F3F1FFF4F3
+          F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F0EEFFF1F0EDFF8E5D29FF996D3AFFF9F8
+          F7FF959594FF878787FF9B9A9AFFF7F6F4FFF6F5F3FFF6F5F3FFF5F4F2FFF4F3
+          F1FFF4F3F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F1EEFF8F5E2AFF9A6E3BFFF9F9
+          F8FF7C7C7CFFC4C4C4FF878787FFF7F6F5FF7A7A7AFF787878FF747474FF7171
+          70FF6D6D6CFF696968FF656565FF616161FFF2F1EFFF905F2BFF9B6F3CFFFAF9
+          F8FFBEBEBDFF929292FFBCBCBBFFF8F7F6FFF7F7F5FFF7F6F4FFF6F5F4FFF6F5
+          F3FFF5F4F2FFF5F4F2FFF4F3F1FFF4F2F0FFF3F2F0FF91602DFF9C703DFFFAFA
+          F9FFFAF9F9FFF9F9F8FFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6F5FFF6F5
+          F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FFF4F3F0FF92612EFF9D723EFFFBFB
+          FAFF9F9F9EFF7F7F7FFFAEAEADFFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6
+          F5FFF6F6F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FF92622FFF9D7340FFFCFB
+          FBFF818181FFC4C4C4FF8F8F8FFFFAF9F8FF7B7B7AFF797979FF757574FF7271
+          71FF6D6D6DFF696969FF666665FF626261FFF5F4F2FF936430FF9E7441FFFCFC
+          FCFFB5B5B5FF848484FFBEBDBDFFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FFF8F8
+          F6FFF8F7F5FFF7F6F5FFF7F6F4FFF6F5F3FFF6F5F3FF946531FF9F7542FFFDFD
+          FCFFFCFCFCFFFCFCFBFFFBFBFAFFFBFAFAFFFAFAF9FFFAF9F8FFF9F9F8FFF9F8
+          F7FFF8F8F6FFF8F7F6FFF7F6F5FFF7F6F4FFF6F5F4FF956633FFA07643FFFEFD
+          FDFF8C8C8CFF525252FFA4A4A4FFFBFBFAFFFBFBFAFFFAFAF9FFFAF9F8FFF9F9
+          F8FFF9F8F7FFF8F8F6FFF8F7F6FFF7F7F5FFF7F6F4FF966734FFA17844FFFEFE
+          FEFF5F5F5FFF949494FF535353FFFCFCFBFF7B7B7BFF797979FF757575FF7272
+          72FF6E6E6EFF6A6A69FF666666FF626262FFF7F7F5FF966935FFA17946FFFFFF
+          FFFF878787FF5D5D5DFFA0A0A0FFFDFCFCFFFCFCFBFFFCFBFBFFFBFBFAFFFBFA
+          F9FFFAFAF9FFFAF9F8FFF9F8F7FFF8F8F7FFF8F7F6FF976A36FFA27A47FFFFFF
+          FFFFFFFFFFFFFEFEFEFFFEFEFEFFFDFDFDFFFDFDFCFFFCFCFBFFFCFBFBFFFBFB
+          FAFFFBFAF9FFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FF986B37FFA37B48FFBEA2
+          7FFFBEA17EFFBDA17DFFBDA07CFFBD9F7CFFBC9F7BFFBB9E7AFFBB9D7AFFBB9D
+          79FFBA9C78FFB99B78FFB99A77FFB89A76FFB89975FF996C39FFA37B48FFA37B
+          48FFA27A47FFA27946FFA17845FFA07744FFA07643FF9F7542FF9E7441FF9E73
+          40FF9D723FFF9C713EFF9C703DFF9B6F3CFF9A6E3BFF9A6D3AFF
+        }
       end
     end
     object MenuItem17: TMenuItem
       Caption = 'View'
-      object MenuItem18: TMenuItem
-        Action = AViewProjectManager
-      end
     end
     object MenuItem15: TMenuItem
@@ -563 +587 @@
       Hint = 'New project'
       ImageIndex = 4
-      ShortCut = 16462
     end
     object AProjectOpen: TAction
@@ -570 +593 @@
       Hint = 'Open project'
       ImageIndex = 8
-      ShortCut = 16463
+    end
+    object AProjectOpenRecent: TAction
+      Category = 'Project'
+      Caption = 'Open recent'
+      Hint = 'Open recent project'
+      ImageIndex = 8
+    end
+    object AProjectSave: TAction
+      Category = 'Project'
+      Caption = 'Save'
+      Hint = 'Save project'
+      ImageIndex = 13
+    end
+    object AProjectSaveAs: TAction
+      Category = 'Project'
+      Caption = 'Save as...'
+      Hint = 'Save project as'
+      ImageIndex = 13
     end
     object AProjectClose: TAction
@@ -577 +617 @@
       Hint = 'Close project'
       ImageIndex = 3
-    end
-    object AProjectSave: TAction
-      Category = 'Project'
-      Caption = 'Save'
-      Hint = 'Save project'
-      ImageIndex = 13
-      ShortCut = 16467
-    end
-    object AProjectSaveAs: TAction
-      Category = 'Project'
-      Caption = 'Save as...'
-      Hint = 'Save project as'
-      ImageIndex = 13
-      ShortCut = 24659
-    end
-    object AProjectOpenRecent: TAction
-      Category = 'Project'
-      Caption = 'Open recent'
-      Hint = 'Open recent project'
-      ImageIndex = 8
     end
     object AClipboardCopy: TAction
@@ -662 +682 @@
       Category = 'Build'
       Caption = 'Clean'
+    end
+    object AFileNew: TAction
+      Category = 'File'
+      Caption = 'New...'
+      ImageIndex = 4
+      ShortCut = 16462
+    end
+    object AFileOpen: TAction
+      Category = 'File'
+      Caption = 'Open...'
+      ImageIndex = 8
+      OnExecute = AFileOpenExecute
+      ShortCut = 16463
+    end
+    object AFileOpenRecent: TAction
+      Category = 'File'
+      Caption = 'Open recent'
+      ImageIndex = 8
+    end
+    object AFileSave: TAction
+      Category = 'File'
+      Caption = 'Save'
+      ImageIndex = 13
+      ShortCut = 16467
+    end
+    object AFileSaveAs: TAction
+      Category = 'File'
+      Caption = 'Save as...'
+      ImageIndex = 13
+      ShortCut = 24659
+    end
+    object AFileClose: TAction
+      Category = 'File'
+      Caption = 'Close'
+      ImageIndex = 3
     end
   end
@@ -1375 +1430 @@
     }
   end
+  object OpenDialogFile: TOpenDialog
+    Filter = 'kkk|.kk|jj|.jj'
+    left = 82
+    top = 210
+  end
+  object SaveDialogFile: TSaveDialog
+    left = 82
+    top = 264
+  end
 end