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