Changeset 28 for branches/topdown/USystem.pas

Timestamp:

Aug 23, 2019, 9:14:24 AM (5 years ago)

Author:

chronos

Message:

• Added: Sample application text editor.
• Modified: Main form in full screen mode.

File:

• branches/topdown/USystem.pas (modified) (2 diffs)

branches/topdown/USystem.pas

@@ -59 +59 @@
     Apps: TApps;
     Tasks: TTasks;
+    ScreenForm: TForm;
     constructor Create;
     destructor Destroy; override;
@@ -115 +116 @@
   Task := AddNew(Form);
   Form.Task := Task;
+  //Form.Parent := BaseSystem.ScreenForm;
   Form.Show;
   DoOnChange;