Changeset 4 for trunk/StudioPackage/UDataModule.pas

Timestamp:

Aug 1, 2012, 11:10:12 PM (12 years ago)

Author:

chronos

Message:

• Modified: Base pagecontrol layout.

File:

• trunk/StudioPackage/UDataModule.pas (modified) (2 diffs)

trunk/StudioPackage/UDataModule.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil;
+  Classes, SysUtils, FileUtil, UProject, Forms;
 
 type
+
+  { TDataModule1 }
+
   TDataModule1 = class(TDataModule)
+    procedure DataModuleCreate(Sender: TObject);
   private
     { private declarations }
   public
-    { public declarations }
+    Project: TProject;
   end;
 
@@ -19 +23 @@
   DataModule1: TDataModule1;
 
+
 implementation
 
 {$R *.lfm}
 
+uses
+  UFormSourceCode, UFormMain, UFormProject;
+
+{ TDataModule1 }
+
+procedure TDataModule1.DataModuleCreate(Sender: TObject);
+begin
+  Application.CreateForm(TFormMain, FormMain);
+  Application.CreateForm(TFormProject, FormProject);
+  Application.CreateForm(TFormSourceCode, FormSourceCode);
+end;
+
 end.