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

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.pas (modified) (7 diffs)

trunk/StudioPackage/Forms/UFormMain.pas

@@ -18 +18 @@
     ABuild: TAction;
     ABuildClean: TAction;
+    AFileOpenRecent: TAction;
+    AFileNew: TAction;
+    AFileSaveAs: TAction;
+    AFileSave: TAction;
+    AFileClose: TAction;
+    AFileOpen: TAction;
     ARebuild: TAction;
     AStop: TAction;
@@ -44 +50 @@
     MenuItem16: TMenuItem;
     MenuItem17: TMenuItem;
-    MenuItem18: TMenuItem;
     MenuItem19: TMenuItem;
     MenuItem2: TMenuItem;
@@ -53 +58 @@
     MenuItem24: TMenuItem;
     MenuItem25: TMenuItem;
+    MenuItem26: TMenuItem;
+    MenuItem27: TMenuItem;
+    MenuItem28: TMenuItem;
+    MenuItem29: TMenuItem;
     MenuItem3: TMenuItem;
+    MenuItem30: TMenuItem;
+    MenuItem31: TMenuItem;
+    MenuItem32: TMenuItem;
+    MenuItem33: TMenuItem;
+    MenuItem34: TMenuItem;
     MenuItem4: TMenuItem;
     MenuItem5: TMenuItem;
@@ -60 +74 @@
     MenuItem8: TMenuItem;
     MenuItem9: TMenuItem;
+    OpenDialogFile: TOpenDialog;
     PageControl1: TPageControl;
     PageControl2: TPageControl;
     PageControl3: TPageControl;
     PageControl4: TPageControl;
+    SaveDialogFile: TSaveDialog;
     Splitter1: TSplitter;
     Splitter2: TSplitter;
@@ -77 +93 @@
     ToolButton4: TToolButton;
     procedure AExitExecute(Sender: TObject);
+    procedure AFileOpenExecute(Sender: TObject);
     procedure AViewProjectManagerExecute(Sender: TObject);
     procedure AViewSettingsExecute(Sender: TObject);
@@ -94 +111 @@
 
 uses
-  UFormProject, UFormSourceCode, UFormSettings;
+  UFormProject, UFormSourceCode, UFormSettings, UDataModule;
 
 { TFormMain }
@@ -101 +118 @@
 begin
   Application.Terminate;
+end;
+
+procedure TFormMain.AFileOpenExecute(Sender: TObject);
+begin
+  OpenDialogFile.Filter := DataModule1.FileTypes.GetDialogFilter;
+  if OpenDialogFile.Execute then ;
 end;