Subversion Repositories Kolibri OS

Rev

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

Rev 9295 Rev 9431
Line 49... Line 49...
49 
        font*: tFont;
 49 
        font*: tFont;
50 
        mode: INTEGER
 50 
        mode: INTEGER
51 
    END;
 51 
    END;
Line -... Line 52...
- 
 
 52 
 
- 
 
 53 
 
- 
 
 54 
PROCEDURE getRGB* (color: INTEGER; VAR r, g, b: BYTE);
- 
 
 55 
BEGIN
- 
 
 56 
	b := color MOD 256;
- 
 
 57 
	g := color DIV 256 MOD 256;
- 
 
 58 
	r := color DIV 65536 MOD 256
- 
 
 59 
END getRGB;
52 
 
 60 
 
53 
 
 61 
 
54 
PROCEDURE DrawCanvas* (canvas: tCanvas; x, y: INTEGER);
 62 
PROCEDURE DrawCanvas* (canvas: tCanvas; x, y: INTEGER);
55 
BEGIN
 63 
BEGIN