Changeset 22 for branches/overos/UGraphics.pas

Timestamp:

Dec 30, 2018, 1:01:14 AM (5 years ago)

Author:

chronos

Message:

• Added: Close button to window title bar.

File:

• branches/overos/UGraphics.pas (modified) (2 diffs)

branches/overos/UGraphics.pas

@@ -18 +18 @@
     procedure DrawArea(Rect: TRectangle; Color: TColor); virtual;
     procedure DrawText(P: TPosition; Color: TColor; Text: string); virtual;
+    function GetTextSize(Text: string): TSize; virtual;
   end;
 
@@ -51 +52 @@
 end;
 
+function TCanvas.GetTextSize(Text: string): TSize;
+begin
+  Result := TSize.Create(0, 0);
+end;
+
 
 end.