VPF::Создать шрифт нужной высоты - Форум программистов

Dimannn

Дата 4.6.2006, 15:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 318
Регистрация: 14.4.2005
Где: Владимир

Репутация: нет
Всего: 1

Подскажите, как создать или найти размер шрифта, у кот высота букв LettersHeigth миллиметров.
PixelsPerInch и PixelsPerMm известно.

--------------------

Хотите быстро и без проблем опубликовать вашу программу в сети за 5 минут?
Тогда потратьте пару минут чтобы посмотреть, что предлагает OpenProject.org.ru

radium

Дата 4.6.2006, 17:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 4.6.2006
Где: Moscow

Репутация: нет
Всего: нет

Пример:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  Pmm: Double;
  I: Integer;
  P: TPrinter;
begin
  P := TPrinter.Create;
  try
    P.Canvas.Font.Pitch := fpVariable;
    P.BeginDoc;
    Pmm := P.Canvas.Font.PixelsPerInch / 25.4;
    for I:=1 to 10 do
    begin
      P.Canvas.Font.Height := {-}Round(Pmm * I);
      P.Canvas.TextOut(100,I*300, 'WЙЩyYi - ' + IntToStr(I) + 'mm');
    end;
    P.EndDoc;
  finally
    P.Free;
  end;
end;

Знак перед Round указывает, учитывать в размере выносные элементы или не учитывать.
Из справки по Font.Height:

If the value is negative, the internal leading that appears at the top of each line of text is not measured. If the value is positive, Height represents the height of the characters plus the internal leading.

С Уважением, Razumikhin Dmitry

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »