Changeset 23 for branches/Xvcl/Applications

Timestamp:

May 8, 2013, 1:52:33 PM (12 years ago)

Author:

chronos

Message:

• Added: Support for mouse move handling. Now forms can be moved by dragging title bar.
• Fixed: Clearing background during painting in screen and forms.

Location:

branches/Xvcl/Applications

Files:

• . (modified) (1 prop)
• TestApplication.pas (modified) (2 diffs)

branches/Xvcl/Applications/TestApplication.pas

@@ -8 +8 @@
 type
   TTestApplication = class(TApplication)
-    Form: TForm;
+    Form1: TForm;
+    Form2: TForm;
     Button: TButton;
     Label1: TLabel;
@@ -31 +32 @@
 procedure TTestApplication.Run;
 begin
-  Form := TForm.Create;
-  Form.Bounds := TRectangle.Create(50, 50, 100, 100);
-  Form.Name := 'Form1';
-  Form.Caption := 'Test application';
-  Form.Screen := Screen;
+  Form1 := TForm.Create;
+  Form1.Bounds := TRectangle.Create(50, 50, 100, 100);
+  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.Screen := Screen;
   Button := TButton.Create;
-  Button.Parent := Form;
+  Button.Parent := Form1;
   Button.Bounds := TRectangle.Create(50, 50, 60, 24);
   Button.Visible := True;
   Button.Caption := 'Start';
   Button.OnClick := ButtonClick;
-  Form.Controls.Add(Button);
+  Form1.Controls.Add(Button);
   Label1 := TLabel.Create;
-  Label1.Parent := Form;
+  Label1.Parent := Form1;
   Label1.Bounds := TRectangle.Create(50, 70, 60, 24);
   Label1.Visible := True;
   Label1.Caption := '0';
-  Form.Controls.Add(Label1);
-  TScreen(Screen).Forms.Add(Form);
+  Form1.Controls.Add(Label1);
+  Form2.Controls.Add(Label1);
+  TScreen(Screen).Forms.Add(Form1);
   TScreen(Screen).Paint;
 end;