Changeset 8 for trunk/Studio/UCore.pas

Timestamp:

Aug 3, 2012, 12:14:25 PM (12 years ago)

Author:

chronos

Message:

• Modified: Enhanced OpenedFiles list structure.

File:

• trunk/Studio/UCore.pas (modified) (4 diffs)

trunk/Studio/UCore.pas

@@ -31 +31 @@
 
 uses
-  ULDModuleDebug, UFormMain, ULDModuleBrainfuck, UDataModule;
+  ULDModuleDebug, UFormMain, ULDModuleBrainfuck, UDataModule, ULDModulePascal;
 
 { TCore }
@@ -37 +37 @@
 procedure TCore.DataModuleCreate(Sender: TObject);
 begin
+  DataModule1 := TDataModule1.Create(nil);
   API := TLDStudioAPI.Create;
   ModuleManager := TModuleManager.Create(nil);
@@ -46 +47 @@
   FreeAndNil(ModuleManager);
   FreeAndNil(API);
+  FreeAndNil(DataModule1);
 end;
 
@@ -52 +54 @@
   ModuleManager.RegisterModule(TLDModuleDebug.Create, True);
   ModuleManager.RegisterModule(TLDModuleBrainfuck.Create, True);
+  ModuleManager.RegisterModule(TLDModulePascal.Create, True);
   ModuleManager.InstallMarked;
 end;