Subversion Repositories Kolibri OS

Rev

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

Rev 6613 Rev 7597
Line 1... Line 1...
1 
MODULE HW;
 1 
MODULE HW;
Line 2... Line 2...
2 
 
 2 
 
Line 3... Line 3...
3 
IMPORT sys := SYSTEM, KOSAPI;
 3 
IMPORT sys := SYSTEM, KOSAPI;
4 
 
 - 
 
5 
PROCEDURE WindowRedrawStatus(p: INTEGER);
 4 
 
6 
VAR res: INTEGER;
 5 
PROCEDURE WindowRedrawStatus(p: INTEGER);
7 
BEGIN
 6 
BEGIN
Line 8... Line 7...
8 
  res := KOSAPI.sysfunc2(12, p)
 7 
  KOSAPI.sysfunc2(12, p)
9 
END WindowRedrawStatus;
 - 
 
10 
 
 8 
END WindowRedrawStatus;
11 
PROCEDURE DefineAndDrawWindow(x, y, w, h, color, style, hcolor, hstyle, htext: INTEGER);
 9 
 
12 
VAR res: INTEGER;
 10 
PROCEDURE DefineAndDrawWindow(x, y, w, h, color, style, hcolor, hstyle, htext: INTEGER);
Line 13... Line 11...
13 
BEGIN
 11 
BEGIN
14 
  res := KOSAPI.sysfunc6(0, x * 65536 + w, y * 65536 + h, color + LSL(style, 24), hcolor + LSL(hstyle, 24), htext)
 - 
 
15 
END DefineAndDrawWindow;
 12 
  KOSAPI.sysfunc6(0, x * 65536 + w, y * 65536 + h, color + LSL(style, 24), hcolor + LSL(hstyle, 24), htext)
16 
 
 13 
END DefineAndDrawWindow;
17 
PROCEDURE WriteTextToWindow(x, y, color: INTEGER; text: ARRAY OF CHAR);
 14 
 
Line 18... Line 15...
18 
VAR res: INTEGER;
 15 
PROCEDURE WriteTextToWindow(x, y, color: INTEGER; text: ARRAY OF CHAR);
19 
BEGIN
 16 
BEGIN
20 
  res := KOSAPI.sysfunc6(4, x * 65536 + y, color + LSL(48, 24), sys.ADR(text[0]), LENGTH(text), 0)
 17 
  KOSAPI.sysfunc6(4, x * 65536 + y, color + LSL(48, 24), sys.ADR(text[0]), LENGTH(text), 0)
Line 21... Line 18...
21 
END WriteTextToWindow;
 18 
END WriteTextToWindow;
22 
 
 - 
 
23 
PROCEDURE WaitForEvent(): INTEGER;
 19 
 
24 
  RETURN KOSAPI.sysfunc1(10)
 20 
PROCEDURE WaitForEvent(): INTEGER;
25 
END WaitForEvent;
 21 
  RETURN KOSAPI.sysfunc1(10)
Line 26... Line 22...
26 
 
 22 
END WaitForEvent;
27 
PROCEDURE ExitApp;
 23 
 
28 
VAR res: INTEGER;
 24 
PROCEDURE ExitApp;