Changeset 21 for branches/overos/UTypes.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)
• UTypes.pas (modified) (3 diffs)

branches/overos/UTypes.pas

@@ -16 +16 @@
     Height: Integer;
     function Create(Width, Height: Integer): TSize;
+    class operator Add(A, B: TSize): TSize;
+    class operator Subtract(A, B: TSize): TSize;
   end;
 
@@ -36 +38 @@
     function Contains(Position: TPosition): Boolean;
   end;
-
-  TColor = Integer;
 
 
@@ -86 +86 @@
 end;
 
+class operator TSize.Add(A, B: TSize): TSize;
+begin
+  Result.Width := A.Width + B.Width;
+  Result.Height := A.Height + B.Height;
+end;
+
+class operator TSize.Subtract(A, B: TSize): TSize;
+begin
+  Result.Width := A.Width - B.Width;
+  Result.Height := A.Height - B.Height;
+end;
+
 
 end.