Changeset 6 for os/trunk/Applications/TestApplication.pas

Timestamp:

Jun 2, 2013, 5:41:42 PM (11 years ago)

Author:

chronos

Message:

• Fixed: TaskBar positioning.

Location:

os/trunk

Files:

• . (modified) (1 prop)
• Applications/TestApplication.pas (modified) (5 diffs)

os/trunk

@@ -2 +2 @@
 *.~dsk
 __history
+*.identcache

@@ -2 +2 @@
 *.~dsk
 __history
+*.identcache

os/trunk/Applications/TestApplication.pas

@@ -4 +4 @@
 
 uses
-  Vcl.Graphics, Xvcl.Controls, Xvcl.Classes, Xvcl.Forms, SysUtils;
+  Vcl.Graphics, Xvcl.Controls, Xvcl.Classes, Xvcl.Forms, LDOS.Kernel, SysUtils;
 
 type
@@ -12 +12 @@
     Button: TButton;
     Label1: TLabel;
+    Timer1: TTimer;
     procedure Run; override;
     procedure ButtonClick(Sender: TObject);
@@ -18 +19 @@
 
 implementation
-
-uses
-  LDOS.Kernel;
 
 { TTestApplication }
@@ -43 +41 @@
   Form2.Caption := 'Some form';
   Form2.Screen := Screen;
+  Timer1 := TTimer.Create;
+  Timer1.Interval := 1000;
+  Timer1.Enabled := True;
+  TScreen(Screen).Kernel.Timers.Add(Timer1);
   Button := TButton.Create;
   Button.Parent := Form1;
@@ -56 +58 @@
   Label1.Caption := '0';
   Form1.Controls.Add(Label1);
+  MainForm := Form1;
   TScreen(Screen).Forms.Add(Form1);
   TScreen(Screen).Forms.Add(Form2);

@@ -2 +2 @@
 *.~dsk
 __history
+*.identcache