Changeset 28 for branches/topdown/UFormMain.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/UFormMain.pas (modified) (2 diffs)

branches/topdown/UFormMain.pas

@@ -37 +37 @@
 
 uses
-  UAppCalc, UAppFileManager, UFormMenu;
+  UAppCalc, UAppFileManager, UAppTextEditor,
+  UFormMenu;
 
 { TFormMain }
@@ -90 +91 @@
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
+  BoundsRect := Bounds(0, 0, Screen.Width, Screen.Height);
+  BaseSystem.ScreenForm := Self;
   BaseSystem.Apps.AddNew('Calculator', TFormCalculator);
-  BaseSystem.Apps.AddNew('File Manager', TFormFileManager);
+  BaseSystem.Apps.AddNew('File manager', TFormFileManager);
+  BaseSystem.Apps.AddNew('Text editor', TFormTextEditor);
   BaseSystem.Tasks.OnChange := TasksChange;
 end;