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

trunk/Packages/Kernel/UAPI.pas

@@ -11 +11 @@
 type
   TApiCommand = (acNone, acWriteText, acDrawText, acDrawLine, acDrawRect, acSleep,
-    acReadMessage, acWindowCreate, acWindowSetAttr, acGetWindowCanvas);
+    acReadMessage, acWindowCreate, acWindowSetAttr, acGetWindowCanvas,
+    acDrawFrame);
 
   TDrawTextParams = record
@@ -48 +49 @@
     procedure DrawLine(CanvasId: Integer; P1, P2: TPoint; Color: TColor);
     procedure DrawRect(CanvasId: Integer; Rect: TRectangle; Color: TColor);
+    procedure DrawFrame(CanvasId: Integer; Rect: TRectangle; Color: TColor);
     procedure Sleep(Time: TDateTime);
     procedure ReadMessage(Message: TIPCMessage);
@@ -66 +68 @@
     procedure DrawLine(CanvasId: Integer; P1, P2: TPoint; Color: TColor);
     procedure DrawRect(CanvasId: Integer; Rect: TRectangle; Color: TColor);
+    procedure DrawFrame(CanvasId: Integer; Rect: TRectangle; Color: TColor);
     procedure Sleep(Time: TDateTime);
     procedure ReadMessage(Message: TIPCMessage);
@@ -124 +127 @@
 end;
 
+procedure TUserApi.DrawFrame(CanvasId: Integer; Rect: TRectangle; Color: TColor
+  );
+var
+  Params: TDrawRectParams;
+begin
+  Params.CanvasId := CanvasId;
+  Params.Rect := Rect;
+  Params.Color := Color;
+  Call(acDrawFrame, @Params);
+end;
+
 procedure TUserApi.Sleep(Time: TDateTime);
 begin
@@ -163 +177 @@
       TDrawLineParams(Data^).P2, TDrawLineParams(Data^).Color);
     acDrawRect: DrawRect(TDrawRectParams(Data^).CanvasId, TDrawRectParams(Data^).Rect,
+      TDrawRectParams(Data^).Color);
+    acDrawFrame: DrawFrame(TDrawRectParams(Data^).CanvasId, TDrawRectParams(Data^).Rect,
       TDrawRectParams(Data^).Color);
     acDrawText: DrawText(TDrawTextParams(Data^).CanvasId, TDrawTextParams(Data^).P,
@@ -210 +226 @@
 procedure TKernelApi.DrawRect(CanvasId: Integer; Rect: TRectangle; Color: TColor);
 var
-  Screen: TScreen;
   Canvas: TCanvas;
 begin
@@ -216 +231 @@
   if Assigned(Canvas) then begin
     Canvas.DrawRect(Rect, Color);
+  end;
+end;
+
+procedure TKernelApi.DrawFrame(CanvasId: Integer; Rect: TRectangle;
+  Color: TColor);
+var
+  Canvas: TCanvas;
+begin
+  Canvas := TKernel(Kernel).Desktop.FindCanvasById(CanvasId);
+  if Assigned(Canvas) then begin
+    Canvas.DrawFrame(Rect, Color);
   end;
 end;
@@ -265 +291 @@
     Window.Canvas.Position := Bounds.Position;
     Window.Visible := Visible;
+    Window.Desktop.Paint;
   end;
 end;