Changeset 7 for trunk/StudioPackage/UDataModule.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/UDataModule.pas (modified) (2 diffs)

trunk/StudioPackage/UDataModule.pas

@@ -1 +1 @@
 unit UDataModule;
 
-{$mode objfpc}{$H+}
+{$mode delphi}{$H+}
 
 interface
 
 uses
-  Classes, SysUtils, FileUtil, UProject, Forms;
+  Classes, SysUtils, FileUtil, UProject, Forms, SpecializedList, USource;
 
 type
-
   { TDataModule1 }
 
   TDataModule1 = class(TDataModule)
     procedure DataModuleCreate(Sender: TObject);
+    procedure DataModuleDestroy(Sender: TObject);
   private
     { private declarations }
   public
     Project: TProject;
+    FileTypes: TFileTypes;
   end;
 
@@ -39 +40 @@
   Application.CreateForm(TFormSourceCode, FormSourceCode);
   Application.CreateForm(TFormSettings, FormSettings);
+  FileTypes := TFileTypes.Create;
+end;
+
+procedure TDataModule1.DataModuleDestroy(Sender: TObject);
+begin
+  FreeAndNil(FileTypes);
 end;