Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Свой шрифт в программе

keymaster © (2003-03-30 22:25:00)
Нужно использовать в программе (для вывода сообщений на TLabel)
шрифт (ttf), которого в системе нет (поставляется с программой)
Как это реализовать?
Была идея запихнуть его в ресурс, но моих знаний недостаточно для этого...

Intell (2003-03-31 18:44:00) [1]
Мне не тяжело ответить прямо, вот исходник:
(TdxButton - это кнопка, просто в проге я использовал компонент, замени TdxButton на Button)

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxCore, dxButton, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
dxButton1: TdxButton;
dxButton2: TdxButton;
procedure FormCreate(Sender: TObject);
procedure dxButton1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure dxButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

AddFontResource( PChar( "Crystal.ttf" { AnsiString } ) );

end;

procedure TForm1.dxButton1Click(Sender: TObject);
begin
label1.Font.name:="Crystal";
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
RemoveFontResource ( PChar("crystal.ttf") );
end;

procedure TForm1.dxButton2Click(Sender: TObject);
begin
RemoveFontResource ( PChar("crystal.ttf") );
end;

end.

Я думаю на путь истинный поставил...

Johnmen (2003-03-31 00:30:00) [2]
Вопрос - стандартный, ответ - в FAQ.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »