[AXS]

Возможно ли использовать файл шрифта не устанавливая его в системе? (например для предварительного просмотра шрифта) и как это делается.
Очень на вас надеюсь..

[Павлик]

если ты хочешь использовать в проге свой шрифт его нужно установить предварительно

[AXS]

Сообщение от Павлик

если ты хочешь использовать в проге свой шрифт его нужно установить предварительно

А как же программы предварительного просмотра шрифтов? Тот же виндовский fontview.exe?

[<<D>>]

Вы не забывайте о ACDSee. Она тоже читает шрифты которые не установленные в системе, тобешь обычные ttf файлы, и выводит этим шрифтом надпись Font.

[Rosenkrantz]

Перед использованием фонт нужно установить:

Код:

AddFontResource(PChar('путь_к_файлу_с_фонтом'));

После использования удалить:

Код:

RemoveFontResource(PChar('путь_к_файлу_с_фонтом'));

Примерно вот так:

Код:

procedure ShowFont(FontFileName: String);
var
   F: TDemoFontForm;
begin
  AddFontResource(PChar(FontFileName));
  F := TDemoFontForm.Create(Application);
  try
    F.Label1.Font.Name := 'имя_фонта';
    F.ShowModal;
  finally
    F.Free;
    RemoveFontResource(PChar(FontFileName));
  end;
end;