mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2024-09-19 17:41:01 +02:00
Example programs bugfixes © 0CodErr
This commit is contained in:
parent
e397ace02c
commit
a6dcaf154c
@ -20,7 +20,7 @@ begin
|
|||||||
with GetSystemDate, GetSystemTime do
|
with GetSystemDate, GetSystemTime do
|
||||||
begin
|
begin
|
||||||
Write('%02x.%02x.%02x', [Day, Month, Year]);
|
Write('%02x.%02x.%02x', [Day, Month, Year]);
|
||||||
Write(' - %02x:%02x:%02x', [Hours, Minutes, Seconds]);
|
Write(' - %02x:%02x:%02x', [Hours, Minutes, Seconds]);
|
||||||
end;
|
end;
|
||||||
GotoXY(CursorXY);
|
GotoXY(CursorXY);
|
||||||
Delay(500);
|
Delay(500);
|
||||||
|
@ -69,7 +69,7 @@ begin
|
|||||||
WndTop := (Height - WndHeight) div 2;
|
WndTop := (Height - WndHeight) div 2;
|
||||||
|
|
||||||
Image := HeapAllocate(Width * Height * 3);
|
Image := HeapAllocate(Width * Height * 3);
|
||||||
Preview := HeapAllocate(Width * Height * 3 div 2);
|
Preview := HeapAllocate(Width * Height * 3 div 4);
|
||||||
|
|
||||||
GetScreenImage(Image^, 0, 0, Width, Height);
|
GetScreenImage(Image^, 0, 0, Width, Height);
|
||||||
ResizeImage;
|
ResizeImage;
|
||||||
|
Loading…
Reference in New Issue
Block a user