Subversion Repositories Kolibri OS

Rev

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

Rev 8762 Rev 8772
Line 113... Line 113...
113 
BEGIN
 113 
BEGIN
114 
    ThreadInfo(54, 58, x, y)
 114 
    ThreadInfo(54, 58, x, y)
115 
END ClientPos;
 115 
END ClientPos;
Line -... Line 116...
- 
 
 116 
 
- 
 
 117 
 
- 
 
 118 
PROCEDURE ScreenSize* (VAR width, height: INTEGER);
- 
 
 119 
VAR
- 
 
 120 
    eax, ebx: INTEGER;
- 
 
 121 
    right, left, top, bottom: INTEGER;
- 
 
 122 
BEGIN
- 
 
 123 
    eax := KOSAPI.sysfunc22(48, 5, ebx);
- 
 
 124 
    left := LSR(eax, 16);
- 
 
 125 
    right := eax MOD 65536;
- 
 
 126 
    top := LSR(ebx, 16);
- 
 
 127 
    bottom := ebx MOD 65536;
- 
 
 128 
    width := right - left + 1;
- 
 
 129 
    height := bottom - top + 1
- 
 
 130 
END ScreenSize;
116 
 
 131 
 
117 
 
 132 
 
118 
PROCEDURE ThreadID* (): INTEGER;
 133 
PROCEDURE ThreadID* (): INTEGER;
119 
VAR
 134 
VAR
120 
    id: INTEGER;
 135 
    id: INTEGER;