/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; |