23,11 → 23,31 |
KOSAPI, SYSTEM; |
|
CONST |
(* |
winColor* = 0EEEEEEH; |
textColor* = 0000000H; |
btnColor* = 0CCCCCCH; |
btnTextColor* = 0000000H; |
toolbarColor* = 0DFDFDFH; |
scrollColor* = 0A0A0A0H; |
scrollBkColor* = winColor; |
borderColor* = 0808080H; |
selMenuColor* = 0CCE8FFH; |
shadowColor* = 0808080H; |
caseColor* = 00000FFH; |
disCaseColor* = 0808080H; |
*) |
fontWidth* = 8; |
fontHeight* = 16; |
|
VAR |
|
winColor*, textColor*, btnColor*, btnTextColor*, |
toolbarColor*, scrollColor*, scrollBkColor*, |
borderColor*, selMenuColor*, shadowColor*, |
caseColor*, disCaseColor*: INTEGER; |
|
|
PROCEDURE GetCommandLine* (): INTEGER; |
RETURN KOSAPI.GetCommandLine() |
END GetCommandLine; |
154,7 → 174,7 |
KOSAPI.sysfunc5(8, LSL(Left, 16) + Width, LSL(Top, 16) + Height, id, Color); |
x := Left + (Width - fontWidth * LENGTH(Caption)) DIV 2; |
y := Top + (Height - fontHeight) DIV 2 + 1; |
DrawText(x, y, 0, Caption) |
DrawText(x, y, btnTextColor, Caption) |
END CreateButton; |
|
|
298,4 → 318,41 |
END SendIPC; |
|
|
PROCEDURE PutPixel* (x, y, color: INTEGER); |
BEGIN |
KOSAPI.sysfunc4(1, x, y, color) |
END PutPixel; |
|
|
PROCEDURE GetSystemColors*; |
VAR |
buf: ARRAY 10 OF INTEGER; |
BEGIN |
(* winColor := 0EEEEEEH; |
textColor := 0000000H; |
btnColor := 0CCCCCCH; |
btnTextColor := 0000000H; |
scrollColor := 0A0A0A0H; |
scrollBkColor := winColor; |
borderColor := 0808080H; |
*) |
selMenuColor := 0CCE8FFH; |
toolbarColor := 0DFDFDFH; |
shadowColor := 0808080H; |
caseColor := 00000FFH; |
disCaseColor := 0808080H; |
|
ASSERT(LEN(buf) >= 10); |
KOSAPI.sysfunc4(48, 3, SYSTEM.ADR(buf[0]), 40); |
|
winColor := buf[5]; |
textColor := buf[8]; |
btnColor := buf[6]; |
btnTextColor := buf[7]; |
scrollColor := btnColor; |
scrollBkColor := winColor; |
borderColor := buf[9]; |
END GetSystemColors; |
|
|
END KolibriOS. |