Rev 9050 | Rev 9174 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 9050 | Rev 9060 | ||
---|---|---|---|
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*, |
33 | borderColor*, shadowColor*, (*darkColor*, lightColor*,*) |
34 | caseColor*, disCaseColor*: INTEGER; |
34 | caseColor*, disCaseColor*: INTEGER; |
Line 200... | Line 200... | ||
200 | BEGIN |
200 | BEGIN |
201 | KOSAPI.sysfunc2(5, time) |
201 | KOSAPI.sysfunc2(5, time) |
202 | END Pause; |
202 | END Pause; |
Line 203... | Line 203... | ||
203 | 203 | ||
204 | 204 | ||
205 | PROCEDURE ButtonCode* (): INTEGER; |
205 | PROCEDURE ButtonCode* (VAR middle: BOOLEAN): INTEGER; |
206 | VAR |
206 | VAR |
- | 207 | res: INTEGER; |
|
207 | res: INTEGER; |
208 | BEGIN |
208 | BEGIN |
209 | middle := FALSE; |
209 | res := KOSAPI.sysfunc1(17); |
210 | res := KOSAPI.sysfunc1(17); |
- | 211 | IF res MOD 256 = 0 THEN |
|
- | 212 | res := LSR(res, 8) |
|
- | 213 | ELSIF res MOD 256 = 4 THEN |
|
210 | IF res MOD 256 = 0 THEN |
214 | res := LSR(res, 8); |
211 | res := LSR(res, 8) |
215 | middle := TRUE |
212 | ELSE |
216 | ELSE |
213 | res := 0 |
217 | res := 0 |
214 | END |
218 | END |
Line 341... | Line 345... | ||
341 | disCaseColor := 0808080H; |
345 | disCaseColor := 0808080H; |
Line 342... | Line 346... | ||
342 | 346 | ||
343 | ASSERT(LEN(buf) >= 10); |
347 | ASSERT(LEN(buf) >= 10); |
Line -... | Line 348... | ||
- | 348 | KOSAPI.sysfunc4(48, 3, SYSTEM.ADR(buf[0]), 40); |
|
- | 349 | ||
344 | KOSAPI.sysfunc4(48, 3, SYSTEM.ADR(buf[0]), 40); |
350 | (* darkColor := buf[2]; |
345 | 351 | lightColor := buf[3];*) |
|
346 | winColor := buf[5]; |
352 | winColor := buf[5]; |
347 | textColor := buf[8]; |
353 | textColor := buf[8]; |
348 | btnColor := buf[6]; |
354 | btnColor := buf[6]; |