Changeset 21 for branches/overos/UFormMain.pas

Timestamp:

Dec 29, 2018, 10:12:23 PM (5 years ago)

Author:

chronos

Message:

• Added: Adjustable form size by dragging its border.
• Added: Basic controls inside form like button, edit, title.

Location:

branches/overos

Files:

• . (modified) (1 prop)
• UFormMain.pas (modified) (4 diffs)

branches/overos/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  UWindow, USystem, UTypes, UMouse;
+  UWindow, USystem, UTypes, UMouse, UGraphics, UControls;
 
 type
@@ -89 +89 @@
 begin
   Caption := IntToStr(X) + ',' + IntToStr(Y);
-  System.Mouse.Move(TPosition.Create(Mouse.CursorPos.X, Mouse.CursorPos.Y));
+  System.Mouse.Move(TPosition.Create(X, Y));
 end;
 
@@ -117 +117 @@
 var
   Window: TWindow;
+  Button: TButton;
 begin
   System := TSystem.Create;
@@ -129 +130 @@
   Window.Rectangle.Position := TPosition.Create(100, 50);
   Window.Rectangle.Size := TSize.Create(400, 200);
+  Button := TButton.Create;
+  Button.Rectangle := TRectangle.Create(TPosition.Create(10, 50), TSize.Create(100, 32));
+  Button.ParentControl := Window;
+  Button.Title := 'Click';
+  Button.Visible := True;
 
   Window := System.Screen.CreateWindow('Calculator');