Changeset 24 for branches/Xvcl/Applications/TestApplication.pas

Timestamp:

May 8, 2013, 2:53:22 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Make only one form focused at once.
• Modified: Enhanced TList generic class to support more methods.

File:

• branches/Xvcl/Applications/TestApplication.pas (modified) (2 diffs)

branches/Xvcl/Applications/TestApplication.pas

@@ -33 +33 @@
 begin
   Form1 := TForm.Create;
-  Form1.Bounds := TRectangle.Create(50, 50, 100, 100);
+  Form1.Bounds := TRectangle.Create(50, 80, 200, 120);
   Form1.Name := 'Form1';
   Form1.Caption := 'Test application';
   Form1.Screen := Screen;
   Form2 := TForm.Create;
-  Form2.Bounds := TRectangle.Create(250, 150, 200, 150);
-  Form2.Name := 'Form1';
-  Form2.Caption := 'Test application';
+  Form2.Bounds := TRectangle.Create(350, 150, 200, 150);
+  Form2.Name := 'Form2';
+  Form2.Caption := 'Some form';
   Form2.Screen := Screen;
   Button := TButton.Create;
@@ -51 +51 @@
   Label1 := TLabel.Create;
   Label1.Parent := Form1;
-  Label1.Bounds := TRectangle.Create(50, 70, 60, 24);
+  Label1.Bounds := TRectangle.Create(60, 80, 60, 24);
   Label1.Visible := True;
   Label1.Caption := '0';
   Form1.Controls.Add(Label1);
-  Form2.Controls.Add(Label1);
   TScreen(Screen).Forms.Add(Form1);
+  TScreen(Screen).Forms.Add(Form2);
   TScreen(Screen).Paint;
 end;