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; |