Subversion Repositories Kolibri OS

Rev

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

Rev 9187 Rev 9208
Line 367... Line 367...
367 
    shift := {0, 1} * kbState # {};
 367 
    shift := {0, 1} * kbState # {};
368 
    ctrl := {2, 3} * kbState # {};
 368 
    ctrl := {2, 3} * kbState # {};
369 
END getKBState;
 369 
END getKBState;
Line -... Line 370...
- 
 
 370 
 
- 
 
 371 
 
- 
 
 372 
PROCEDURE mouse* (VAR msState: SET; VAR x, y: INTEGER);
- 
 
 373 
VAR
- 
 
 374 
    mouseX, mouseY,
- 
 
 375 
    cliX, cliY,
- 
 
 376 
    winX, winY: INTEGER;
- 
 
 377 
BEGIN
- 
 
 378 
	msState := MouseState();
- 
 
 379 
    MousePos(mouseX, mouseY);
- 
 
 380 
    WinPos(winX, winY);
- 
 
 381 
    ClientPos(cliX, cliY);
- 
 
 382 
    x := mouseX - winX - cliX;
- 
 
 383 
    y := mouseY - winY - cliY
- 
 
 384 
END mouse;
370 
 
 385 
 
371 
 
 386