Changeset 16 for trunk/Packages/Kernel/UScreen.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/UScreen.pas (modified) (3 diffs)

trunk/Packages/Kernel/UScreen.pas

@@ -11 +11 @@
   TScreen = class;
 
+  { TScreenCanvas }
+
   TScreenCanvas = class(TCanvas)
     Screen: TScreen;
@@ -16 +18 @@
     procedure DrawLine(P1, P2: TPoint; Color: TColor); override;
     procedure DrawRect(Rect: TRectangle; Color: TColor); override;
+    procedure DrawFrame(Rect: TRectangle; Color: TColor); override;
     procedure SetPixel(P: TPoint; Color: TColor); override;
   end;
@@ -71 +74 @@
 end;
 
+procedure TScreenCanvas.DrawFrame(Rect: TRectangle; Color: TColor);
+var
+  X, Y: Integer;
+begin
+  for Y := Rect.Top to Rect.Bottom do begin
+    SetPixel(TPoint.Create(Rect.Left, Y), Color);
+    SetPixel(TPoint.Create(Rect.Right, Y), Color);
+  end;
+  for X := Rect.Left to Rect.Right do begin
+    SetPixel(TPoint.Create(X, Rect.Top), Color);
+    SetPixel(TPoint.Create(X, Rect.Bottom), Color);
+  end;
+  Screen.VideoMemoryUpdated;
+end;
+
 procedure TScreenCanvas.SetPixel(P: TPoint; Color: TColor);
 begin