| 23,20 → 23,6 |
|---|
| 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; |
| |
| 44,7 → 30,7 |
|---|
| |
| winColor*, textColor*, btnColor*, btnTextColor*, |
| toolbarColor*, scrollColor*, scrollBkColor*, |
| borderColor*, selMenuColor*, shadowColor*, |
| borderColor*, shadowColor*, |
| caseColor*, disCaseColor*: INTEGER; |
| |
| |
| 172,6 → 158,12 |
|---|
| END DrawText866; |
| |
| |
| PROCEDURE DrawText866bk* (x, y, color, bkColor: INTEGER; text: ARRAY OF CHAR); |
| BEGIN |
| KOSAPI.sysfunc6(4, x * 65536 + y, color + LSL(0D0H, 24), SYSTEM.ADR(text[0]), 0, bkColor) |
| END DrawText866bk; |
| |
| |
| PROCEDURE MousePos* (VAR x, y: INTEGER); |
| VAR |
| res: INTEGER; |
| 343,15 → 335,6 |
|---|
| 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; |