Changeset 10 for platform/trunk/ULDPlatform.pas

Timestamp:

May 9, 2013, 9:21:23 PM (11 years ago)

Author:

chronos

Message:

• Added: Demo IDE placed in subfolder Demo.
• Added: Base TDataModule as container for non visual components. It's part of TLDPlatform component.

File:

• platform/trunk/ULDPlatform.pas (modified) (3 diffs)

platform/trunk/ULDPlatform.pas

@@ -4 +4 @@
 
 uses
-  System.SysUtils, System.Classes, UFormMain, Vcl.Forms;
+  System.SysUtils, System.Classes, Vcl.Forms, LDPlatform.Core;
 
 type
@@ -13 +13 @@
     { Protected declarations }
   public
-    procedure Init;
+    Core: TCore;
+    procedure Show;
   published
-    { Published declarations }
   end;
 
@@ -29 +29 @@
 { TLDPlatform }
 
-procedure TLDPlatform.Init;
+procedure TLDPlatform.Show;
 begin
-  Application.CreateForm(TFormMain, FormMain);
-  FormMain.Show;
+  Core := TCore.Create(Self);
 end;