Changeset 16 for trunk/Packages/Kernel/UGraphics.pas

Timestamp:

Dec 28, 2017, 1:14:31 AM (6 years ago)

Author:

chronos

Message:

• Added: API function DrawFrame.
• Fixed: Drawing position of TWindow frame.

File:

• trunk/Packages/Kernel/UGraphics.pas (modified) (5 diffs)

trunk/Packages/Kernel/UGraphics.pas

@@ -16 +16 @@
     X: Integer;
     Y: Integer;
-    function Create(X, Y: Integer): TPoint;
+    function Create(X, Y: Integer): TPoint; inline;
     function Add(P: TPoint): TPoint;
   end;
@@ -36 +36 @@
     Size: TPoint;
     function PointInside(P: TPoint): Boolean;
-    function Create(Left, Top, Width, Height: Integer): TRectangle; overload;
-    function Create(Position, Size: TPoint): TRectangle; overload;
+    function Create(Left, Top, Width, Height: Integer): TRectangle; overload; inline;
+    function Create(Position, Size: TPoint): TRectangle; overload; inline;
     function AddPoint(P: TPoint): TRectangle;
     property Left: Integer read GetLeft write SetLeft;
@@ -57 +57 @@
     procedure DrawLine(P1, P2: TPoint; Color: TColor); virtual;
     procedure DrawRect(Rect: TRectangle; Color: TColor); virtual;
+    procedure DrawFrame(Rect: TRectangle; Color: TColor); virtual;
     procedure SetPixel(P: TPoint; Color: TColor); virtual;
   end;
@@ -217 +218 @@
 end;
 
+procedure TCanvas.DrawFrame(Rect: TRectangle; Color: TColor);
+begin
+  if Assigned(Parent) then
+    Parent.DrawFrame(Rect.AddPoint(Position), Color);
+end;
+
 procedure TCanvas.SetPixel(P: TPoint; Color: TColor);
 begin
@@ -246 +253 @@
 begin
   inherited Paint;
-  Canvas.DrawRect(Bounds, $ff0000);
+  Canvas.DrawRect(TRectangle.Create(TPoint.Create(0, 0), Bounds.Size), $a0a0a0);
+  Canvas.DrawFrame(TRectangle.Create(TPoint.Create(0, 0), Bounds.Size), $000000);
 end;