From 07075c3f364d03930c556b464262d897ff2faffa Mon Sep 17 00:00:00 2001
From: Freeman <vapaamies@yandex.ru>
Date: Thu, 17 Sep 2020 18:29:37 +0300
Subject: [PATCH] KolibriOS.TThreadInfo.Window/Client are TBox now

---
 Examples/GUI/SetWindowPos/SetWindowPos.dpr | 10 +++++-----
 Lib/KolibriOS.pas                          |  4 ++--
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/Examples/GUI/SetWindowPos/SetWindowPos.dpr b/Examples/GUI/SetWindowPos/SetWindowPos.dpr
index d010c7c..626f5de 100644
--- a/Examples/GUI/SetWindowPos/SetWindowPos.dpr
+++ b/Examples/GUI/SetWindowPos/SetWindowPos.dpr
@@ -28,13 +28,13 @@ begin
     if Boolean(ControlKeyState and (RIGHT_CTRL_PRESSED or LEFT_CTRL_PRESSED)) then
       case Key.ScanCode of
         KS_UP:
-          Dec(Bottom, MOVE_STEP);
+          Dec(Height, MOVE_STEP);
         KS_DOWN:
-          Inc(Bottom, MOVE_STEP);
+          Inc(Height, MOVE_STEP);
         KS_LEFT:
-          Dec(Right, MOVE_STEP);
+          Dec(Width, MOVE_STEP);
         KS_RIGHT:
-          Inc(Right, MOVE_STEP);
+          Inc(Width, MOVE_STEP);
       end
     else
       case Key.ScanCode of
@@ -47,7 +47,7 @@ begin
         KS_RIGHT:
           Inc(Left, MOVE_STEP);
       end;
-    SetWindowPos(Left, Top, Right, Bottom);
+    SetWindowPos(Left, Top, Width, Height);
   end;  
 end;
 
diff --git a/Lib/KolibriOS.pas b/Lib/KolibriOS.pas
index b368630..9fcfd31 100644
--- a/Lib/KolibriOS.pas
+++ b/Lib/KolibriOS.pas
@@ -56,10 +56,10 @@ type
     MemAddress:   LongWord;
     MemUsage:     LongWord;
     Identifier:   LongWord;
-    Window:       TRect;
+    Window:       TBox;
     ThreadState:  Word;
     Reserved2:    Word;
-    Client:       TRect;
+    Client:       TBox;
     WindowState:  Byte;
     EventMask:    LongWord;
     KeyboardMode: Byte;