Еще об utf8, TTF и графике

Вопросы программирования на Free Pascal, использования компилятора и утилит.

Модератор: Модераторы

Ответить
anthony3d
незнакомец
Сообщения: 5
Зарегистрирован: 27.10.2013 23:40:37

Еще об utf8, TTF и графике

Сообщение anthony3d »

Хочется выводить текст красивым шрифтом TTF.
ОС-Линукс, utf8.
Шрифт из Виды, но это, похоже, не важно.

Пишу так:

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

...
    ss:='Test Русский текст'';
    ftfont.InitEngine;
    FontMgr.SearchPath:='./';
    AFont:=TFreeTypeFont.Create;
    ImgCanvas.Font:=AFont;
    ImgCanvas.Font.Name:='sserif';  // шрифт такой есть, все грузится
    ImgCanvas.Font.Size:=20;
    [b]ImgCanvas.TextOut(10,40,ss);[/b]
...


И выясняется, что TextOut(x,y,str) выводит текст не-utf8.
Пишет неперекодированную строку. Типа такого: "Test Р Р_РЎ С_С_С_ Р С_С_С_РєРёР№ С'РчРєС_С"
Я попробовал разные перекодировки, но все без толку.
Гуглил целый день, ничего толкового не нашел.
Может, кто-то уже проходил этот затык? Может, есть простое решение, да я его не вижу?
Аватара пользователя
Иван Шихалев
энтузиаст
Сообщения: 1138
Зарегистрирован: 15.05.2006 11:26:13
Откуда: Екатеринбург
Контактная информация:

Сообщение Иван Шихалев »

Font.CharSet?
anthony3d
незнакомец
Сообщения: 5
Зарегистрирован: 27.10.2013 23:40:37

Сообщение anthony3d »

Нет там проперти "CharSet"...
Я натыкался на то, как люди с принтером так делают.
Аватара пользователя
Иван Шихалев
энтузиаст
Сообщения: 1138
Зарегистрирован: 15.05.2006 11:26:13
Откуда: Екатеринбург
Контактная информация:

Сообщение Иван Шихалев »

Э... Тогда надо указывать, что за типы используются. У TFont такое свойство есть.
anthony3d
незнакомец
Сообщения: 5
Зарегистрирован: 27.10.2013 23:40:37

Сообщение anthony3d »

var
AFont : TFreeTypeFont;
Может, я зря с этим Фритайпом завязался...
Завтра попробую без него.
Ответить