freepascal.ru

Код: Выделить всё

enable_option() {
        sed -i -e "/#define $1/a #define $1" \
                include/freetype/config/ftoption.h \
                || die "unable to enable option $1"
}

disable_option() {
        sed -i -e "/#define $1/ { s:^:/*:; s:$:*/: }" \
                include/freetype/config/ftoption.h \
                || die "unable to disable option $1"
}

if ! use bindist; then
        # Bytecodes and subpixel hinting supports are patented
        # in United States; for safety, disable them while building
        # binaries, so that no risky code is distributed.
        # See http://freetype.org/patents.html

        enable_option TT_CONFIG_OPTION_BYTECODE_INTERPRETER
        enable_option FT_CONFIG_OPTION_SUBPIXEL_RENDERING
        disable_option TT_CONFIG_OPTION_UNPATENTED_HINTING
fi

Код: Выделить всё

procedure tmainfo.op(const sender: twidget; const canvas: tcanvas);
begin
unidrawstring(canvas,'t'#$0414#$11f4't',makepoint(20,20));
end;