Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9901 → Rev 9902

/programs/develop/cedit/SRC/Graph.ob07
268,7 → 268,7
CONST
WCHAR_SIZE = 2;
VAR
color, i, ch: INTEGER;
color, i: INTEGER;
font: tFont;
c: WCHAR;
BEGIN
299,12 → 299,7
c := 0X
END;
IF font = fonts[0] THEN
ch := E.UNI[ORD(c), E.CP866];
IF ch = E.UNDEF THEN
c := "?"
ELSE
c := WCHR(ch)
END
c := WCHR(E.UNI[ORD(c), E.CP866])
END;
KOSAPI.sysfunc6(4, x*65536 + y, font.flags + color, SYSTEM.ADR(c), 1, canvas.bitmap - 8)
END;