Subversion Repositories Kolibri OS

Rev

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

Rev 9174 Rev 9175
Line 28... Line 28...
28
 
28
 
Line 29... Line 29...
29
VAR
29
VAR
30
 
30
 
31
    winColor*, textColor*, btnColor*, btnTextColor*,
31
    winColor*, textColor*, btnColor*, btnTextColor*,
32
    toolbarColor*, scrollColor*, scrollBkColor*,
32
    toolbarColor*, scrollColor*, scrollBkColor*,
Line 33... Line 33...
33
    borderColor*, shadowColor*, (*darkColor*, lightColor*,*)
33
    borderColor*, shadowColor*, darkColor*, lightColor*,
34
    caseColor*, disCaseColor*: INTEGER;
34
    caseColor*, disCaseColor*: INTEGER;
Line 337... Line 337...
337
 
337
 
338
PROCEDURE GetSystemColors*;
338
PROCEDURE GetSystemColors*;
339
VAR
339
VAR
340
    buf: ARRAY 10 OF INTEGER;
340
    buf: ARRAY 10 OF INTEGER;
341
BEGIN
-
 
342
    toolbarColor := 0DFDFDFH;
-
 
343
    shadowColor := 0808080H;
-
 
344
    caseColor := 00000FFH;
-
 
345
    disCaseColor := 0808080H;
-
 
346
 
341
BEGIN
347
    ASSERT(LEN(buf) >= 10);
342
    ASSERT(LEN(buf) >= 10);
Line 348... Line 343...
348
    KOSAPI.sysfunc4(48, 3, SYSTEM.ADR(buf[0]), 40);
343
    KOSAPI.sysfunc4(48, 3, SYSTEM.ADR(buf[0]), 40);
349
 
344
 
350
(*    darkColor := buf[2];
345
    darkColor := buf[2];
351
    lightColor := buf[3];*)
346
    lightColor := buf[3];
352
    winColor := buf[5];
347
    winColor := buf[5];
353
    textColor := buf[8];
348
    textColor := buf[8];
354
    btnColor := buf[6];
349
    btnColor := buf[6];
355
    btnTextColor := buf[7];
350
    btnTextColor := buf[7];
356
    scrollColor := btnColor;
351
    scrollColor := btnColor;
-
 
352
    scrollBkColor := winColor;
-
 
353
    borderColor := buf[9];
-
 
354
 
-
 
355
    toolbarColor := 0DFDFDFH;
-
 
356
    shadowColor := 0808080H;
357
    scrollBkColor := winColor;
357
    caseColor := 00000FFH;
Line 358... Line 358...
358
    borderColor := buf[9];
358
    disCaseColor := 0808080H;
359
END GetSystemColors;
359
END GetSystemColors;