У меня функция Format вешает телефон, если в строке есть буква "я". Вот, например:
Program Font32test;
Uses font32;
var
scrW,scrH,h,k: integer;
Begin
scrW:=GetWidth;
scrH:=GetHeight;
font32.init(1); // Инициализация (всего у нас будет 1 шрифт)
font32.Font(0); // Выбираем шрифт номер 0
LoadFont('Verdana_7'); // Загружаем шрифт
font32.TextWindow(50,50,50,50);
h:=font32.Format('Раз Два Три Четыре Пять Шесть Семь Восемь Девять Десять'); //Здесь ошибка
while true do
begin
SetColor(255,255,255);
FillRect(0,0,scrW,scrH);
SetColor(255,0,0);
DrawRect(49,49,52,52);
k:=KeyToAction(GetKeyPressed);
if k=GA_UP then h:=MoveUp(3);
if k=GA_DOWN then h:=MoveDown(3);
DrawTextWindow;
Repaint;
end;
End.
Если убрать буквы "я", то пример будет работать. Можно, конечно, писать "йа", но неудобно