Changeset 7 for trunk/StudioCommon/ULDStudioAPI.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/StudioCommon/ULDStudioAPI.pas (modified) (3 diffs)

trunk/StudioCommon/ULDStudioAPI.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UModularSystem, ActnList, Menus, Forms;
+  Classes, SysUtils, UModularSystem, ActnList, Menus, Forms, USource,
+  SpecializedList;
 
 type
@@ -18 +19 @@
     MainForm: TForm;
     MainMenu: TMainMenu;
+    FileTypes: TFileTypes;
     constructor Create;
     destructor Destroy; override;
 
     // API functions
+    procedure RegisterFileType(FileType: TSourceType);
+    procedure UnregisterFileType(FileType: TSourceType);
     procedure RegisterForm(Form: TForm);
     procedure UnregisterForm(Form: TForm);
@@ -44 +48 @@
   FreeAndNil(Actions);
   inherited Destroy;
+end;
+
+procedure TLDStudioAPI.RegisterFileType(FileType: TSourceType);
+begin
+  FileTypes.Add(FileType);
+end;
+
+procedure TLDStudioAPI.UnregisterFileType(FileType: TSourceType);
+begin
+  FileTypes.Remove(FileType);
 end;