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 3... Line 3...
3 
IMPORT KOSAPI, sys := SYSTEM, OpenDlg, ColorDlg;
 3 
IMPORT KOSAPI, sys := SYSTEM, OpenDlg, ColorDlg;
Line 4... Line 4...
4 
 
 4 
 
Line 5... Line 5...
5 
VAR header: ARRAY 1024 OF CHAR; back_color: INTEGER;
 5 
VAR header: ARRAY 1024 OF CHAR; back_color: INTEGER;
6 
 
 - 
 
7 
PROCEDURE WindowRedrawStatus(p: INTEGER);
 6 
 
8 
VAR aux: INTEGER;
 7 
PROCEDURE WindowRedrawStatus(p: INTEGER);
9 
BEGIN
 8 
BEGIN
Line 10... Line 9...
10 
  aux := KOSAPI.sysfunc2(12, p)
 9 
  KOSAPI.sysfunc2(12, p)
11 
END WindowRedrawStatus;
 - 
 
12 
 
 10 
END WindowRedrawStatus;
13 
PROCEDURE DefineAndDrawWindow(x, y, w, h, color, style, hcolor, hstyle, htext: INTEGER);
 11 
 
14 
VAR aux: INTEGER;
 12 
PROCEDURE DefineAndDrawWindow(x, y, w, h, color, style, hcolor, hstyle, htext: INTEGER);
Line 15... Line 13...
15 
BEGIN
 13 
BEGIN
16 
  aux := KOSAPI.sysfunc6(0, x * 65536 + w, y * 65536 + h, color + LSL(style, 24), hcolor + LSL(hstyle, 24), htext)
 14 
  KOSAPI.sysfunc6(0, x * 65536 + w, y * 65536 + h, color + LSL(style, 24), hcolor + LSL(hstyle, 24), htext)
17 
END DefineAndDrawWindow;
 15 
END DefineAndDrawWindow;
Line 18... Line 16...
18 
 
 16 
 
19 
PROCEDURE WaitForEvent(): INTEGER;
 - 
 
20 
  RETURN KOSAPI.sysfunc1(10)
 17 
PROCEDURE WaitForEvent(): INTEGER;
21 
END WaitForEvent;
 18 
  RETURN KOSAPI.sysfunc1(10)
22 
 
 19 
END WaitForEvent;
Line 23... Line 20...
23 
PROCEDURE ExitApp;
 20 
 
24 
VAR aux: INTEGER;
 - 
 
25 
BEGIN
 21 
PROCEDURE ExitApp;
26 
  aux := KOSAPI.sysfunc1(-1)
 22 
BEGIN
27 
END ExitApp;
 23 
  KOSAPI.sysfunc1(-1)
Line 28... Line 24...
28 
 
 24 
END ExitApp;
Line 29... Line 25...
29 
PROCEDURE pause(t: INTEGER);
 25