Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2024-11-09 09:40:27 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

KolibriOS.TThreadInfo.Window/Client are TBox now

Browse Source
This commit is contained in:
Владислав Джавадов 2020-09-17 18:29:37 +03:00
parent 5481451551
commit 07075c3f36
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Examples/GUI/SetWindowPos/SetWindowPos.dpr
View File

@ -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;

4
Lib/KolibriOS.pas
View File

@ -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;