/programs/develop/cedit/SRC/KolibriOS.ob07 |
---|
359,4 → 359,14 |
END GetSystemColors; |
PROCEDURE getKBState* (VAR shift, ctrl: BOOLEAN); |
VAR |
kbState: SET; |
BEGIN |
kbState := GetControlKeys(); |
shift := {0, 1} * kbState # {}; |
ctrl := {2, 3} * kbState # {}; |
END getKBState; |
END KolibriOS. |