Subversion Repositories Kolibri OS

Rev

Rev 8772 | Rev 9060 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8772 Rev 9050
Line 21... Line 21...
21 
 
 21 
 
22 
IMPORT
 22 
IMPORT
Line 23... Line 23...
23 
    KOSAPI, SYSTEM;
 23 
    KOSAPI, SYSTEM;
24 
 
 - 
 
25 
CONST
 - 
 
26 
(*
 - 
 
27 
    winColor* = 0EEEEEEH;
 - 
 
28 
    textColor* = 0000000H;
 - 
 
29 
    btnColor* = 0CCCCCCH;
 - 
 
30 
    btnTextColor* = 0000000H;
 - 
 
31 
    toolbarColor* = 0DFDFDFH;
 - 
 
32 
    scrollColor* = 0A0A0A0H;
 - 
 
33 
    scrollBkColor* = winColor;
 - 
 
34 
    borderColor* = 0808080H;
 - 
 
35 
    selMenuColor* = 0CCE8FFH;
 - 
 
36 
    shadowColor* = 0808080H;
 - 
 
37 
    caseColor* = 00000FFH;
 - 
 
38 
    disCaseColor* = 0808080H;
 24 
 
39 
*)
 25 
CONST
Line 40... Line 26...
40 
    fontWidth* = 8;
 26 
    fontWidth* = 8;
Line 41... Line 27...
41 
    fontHeight* = 16;
 27 
    fontHeight* = 16;
42 
 
 28 
 
43 
VAR
 29 
VAR
44 
 
 30 
 
Line 45... Line 31...
45 
    winColor*, textColor*, btnColor*, btnTextColor*,
 31 
    winColor*, textColor*, btnColor*, btnTextColor*,
46 
    toolbarColor*, scrollColor*, scrollBkColor*,
 32 
    toolbarColor*, scrollColor*, scrollBkColor*,
Line 170... Line 156...
170 
BEGIN
 156 
BEGIN
171 
    KOSAPI.sysfunc6(4, x * 65536 + y, color + LSL(0D0H, 24), SYSTEM.ADR(text[0]), 0, winColor)
 157 
    KOSAPI.sysfunc6(4, x * 65536 + y, color + LSL(0D0H, 24), SYSTEM.ADR(text[0]), 0, winColor)
172 
END DrawText866;
 158 
END DrawText866;
Line -... Line 159...
- 
 
 159 
 
- 
 
 160 
 
- 
 
 161 
PROCEDURE DrawText866bk* (x, y, color, bkColor: INTEGER; text: ARRAY OF CHAR);
- 
 
 162 
BEGIN
- 
 
 163 
    KOSAPI.sysfunc6(4, x * 65536 + y, color + LSL(0D0H, 24), SYSTEM.ADR(text[0]), 0, bkColor)
- 
 
 164 
END DrawText866bk;
173 
 
 165 
 
174 
 
 166 
 
175 
PROCEDURE MousePos* (VAR x, y: INTEGER);
 167 
PROCEDURE MousePos* (VAR x, y: INTEGER);
176 
VAR
 168 
VAR
177 
    res: INTEGER;
 169 
    res: INTEGER;
Line 341... Line 333...
341 
 
 333 
 
342 
PROCEDURE GetSystemColors*;
 334 
PROCEDURE GetSystemColors*;
343 
VAR
 335 
VAR
344 
    buf: ARRAY 10 OF INTEGER;
 336 
    buf: ARRAY 10 OF INTEGER;
345 
BEGIN
 - 
 
346 
(*    winColor := 0EEEEEEH;
 - 
 
347 
    textColor := 0000000H;
 - 
 
348 
    btnColor := 0CCCCCCH;
 - 
 
349 
    btnTextColor := 0000000H;
 - 
 
350 
    scrollColor := 0A0A0A0H;
 - 
 
351 
    scrollBkColor := winColor;
 - 
 
352 
    borderColor := 0808080H;
 - 
 
353 
    *)
 - 
 
354 
    selMenuColor := 0CCE8FFH;
 337 
BEGIN
355 
    toolbarColor := 0DFDFDFH;
 338 
    toolbarColor := 0DFDFDFH;
356 
    shadowColor := 0808080H;
 339 
    shadowColor := 0808080H;
357 
    caseColor := 00000FFH;
 340 
    caseColor := 00000FFH;