Шрифты

[Kronos913]

Меня интересует такой вопрос: все шрифты, которые есть при открытии Font-dialog - они все копируются в программу? Или нет?

Просто у меня такой вопрос: если я какому-то элементу задам какой-то шрифт, а потом на другом ПК не будет в винде установлен этот шрифт: что будет тогда?

[Kronos913]

CheckBox1.Font.Name:='Lucida Console';

И если этого шрифта не будет на ПК (мало ли?), что сделает программа?

[Pavia]

Шрифты не копируются. Будут квадратики вместо букв. А для новых ОС будут ромбики с вопросами. А если это менюшки или заголовок окна то будут знаки вопроса.

[NetSpace]

свой шрифт вшивайте в ресурс программы и потом извлекайте. всё своё ношу с собой, как говорится...
пример кода тут

unit EXEFonts;
interface
uses Windows,Messages,Classes,Forms,Controls,StdCtrls;
type TForm1=class(TForm)
     Button1:TButton;
     Label1:TLabel;
     procedure LoadFont;
     procedure Button1Click(Sender:TObject);
     private{Private declarations}
     public{Public declarations}
end;
var Form1:TForm1;
implementation
{$R *.DFM}
{$R dialog.res}

procedure TForm1.LoadFont;
var Res:TResourceStream;
begin
   Res:=TResourceStream.Create(hInstance,'MYFONT',Pchar('ANYOL1'));
   Res.SavetoFile('Crystal.ttf');
   Res.Free;
   AddFontResource(PChar('Crystal.ttf'));
   SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

procedure TForm1.Button1Click(Sender:TObject);
begin
   LoadFont;
   Label1.Font.Name:='Crystal';
end;

end.

[NetSpace]

а тут исходник.
файл шрифта перед запуском надо удалить - он пытается создать его и использовать.