20,7 → 20,7 |
MODULE KolibriOS; |
|
IMPORT |
KOSAPI, SYSTEM; |
KOSAPI, SYSTEM, U := Utils; |
|
CONST |
fontWidth* = 8; |
393,6 → 393,44 |
END PutPixel; |
|
|
PROCEDURE docpack* (VAR param: ARRAY OF CHAR; VAR text_ptr, text_size: INTEGER); |
VAR |
i, size, ptr, ptr2: INTEGER; |
s: ARRAY 32 OF WCHAR; |
BEGIN |
ptr2 := 0; |
U.reverse8(param); |
param[LENGTH(param) - 1] := 0X; |
U.reverse8(param); |
i := 0; |
WHILE param[i] # 0X DO |
s[i] := WCHR(ORD(param[i])); |
INC(i) |
END; |
IF U.str2int(s, size) THEN |
INC(size, 20); |
ptr := KOSAPI.malloc(size); |
IF ptr # 0 THEN |
SYSTEM.PUT32(ptr, 0); |
SYSTEM.PUT32(ptr + 4, 8); |
KOSAPI.sysfunc4(60, 1, ptr, size); |
SetEventsMask({6}); |
IF EventTimeout(200) = 7 THEN |
SYSTEM.PUT32(ptr, 1); |
SYSTEM.GET(ptr + 12, size); |
ptr2 := KOSAPI.malloc(size); |
IF ptr2 # 0 THEN |
SYSTEM.MOVE(ptr + 16, ptr2, size) |
END |
END; |
ptr := KOSAPI.free(ptr) |
END |
END; |
text_ptr := ptr2; |
text_size := size |
END docpack; |
|
|
BEGIN |
GetSystemColors |
END KolibriOS. |