Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9430 → Rev 9431

/programs/develop/cedit/SRC/Graph.ob07
51,6 → 51,14
END;
 
 
PROCEDURE getRGB* (color: INTEGER; VAR r, g, b: BYTE);
BEGIN
b := color MOD 256;
g := color DIV 256 MOD 256;
r := color DIV 65536 MOD 256
END getRGB;
 
 
PROCEDURE DrawCanvas* (canvas: tCanvas; x, y: INTEGER);
BEGIN
K.sysfunc7(65, canvas.bitmap, canvas.width*65536 + canvas.height, x*65536 + y, 32, 0, 0);