Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2024-11-09 17:50:30 +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 if Boolean(ControlKeyState and (RIGHT_CTRL_PRESSED or LEFT_CTRL_PRESSED)) then
case Key.ScanCode of case Key.ScanCode of
KS_UP: KS_UP:
Dec(Bottom, MOVE_STEP); Dec(Height, MOVE_STEP);
KS_DOWN: KS_DOWN:
Inc(Bottom, MOVE_STEP); Inc(Height, MOVE_STEP);
KS_LEFT: KS_LEFT:
Dec(Right, MOVE_STEP); Dec(Width, MOVE_STEP);
KS_RIGHT: KS_RIGHT:
Inc(Right, MOVE_STEP); Inc(Width, MOVE_STEP);
end end
else else
case Key.ScanCode of case Key.ScanCode of
@ -47,7 +47,7 @@ begin
KS_RIGHT: KS_RIGHT:
Inc(Left, MOVE_STEP); Inc(Left, MOVE_STEP);
end; end;
SetWindowPos(Left, Top, Right, Bottom); SetWindowPos(Left, Top, Width, Height);
end; end;
end; end;

4
Lib/KolibriOS.pas
View File

@ -56,10 +56,10 @@ type
MemAddress: LongWord; MemAddress: LongWord;
MemUsage: LongWord; MemUsage: LongWord;
Identifier: LongWord; Identifier: LongWord;
Window: TRect; Window: TBox;
ThreadState: Word; ThreadState: Word;
Reserved2: Word; Reserved2: Word;
Client: TRect; Client: TBox;
WindowState: Byte; WindowState: Byte;
EventMask: LongWord; EventMask: LongWord;
KeyboardMode: Byte; KeyboardMode: Byte;