Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2025-09-21 22:53:51 +02: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
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;