Subversion Repositories Kolibri OS

Rev

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

Rev 9175 Rev 9187
Line 357... Line 357...
357 
    caseColor := 00000FFH;
 357 
    caseColor := 00000FFH;
358 
    disCaseColor := 0808080H;
 358 
    disCaseColor := 0808080H;
359 
END GetSystemColors;
 359 
END GetSystemColors;
Line -... Line 360...
- 
 
 360 
 
- 
 
 361 
 
- 
 
 362 
PROCEDURE getKBState* (VAR shift, ctrl: BOOLEAN);
- 
 
 363 
VAR
- 
 
 364 
    kbState: SET;
- 
 
 365 
BEGIN
- 
 
 366 
    kbState := GetControlKeys();
- 
 
 367 
    shift := {0, 1} * kbState # {};
- 
 
 368 
    ctrl := {2, 3} * kbState # {};
- 
 
 369 
END getKBState;
360 
 
 370 
 
361 
 
 371