|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Использование своего шрифта в программе
Добрый день, возникла проблема . Необходимо использовать свой шрифт в программе, в системе шрифт не установлен.
Делаю так в папку с приложением помещаю файл шрифта .TTF исходный код: Код:
unit Font; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} {$IFDEF WIN32} var ss : array [ 0..255 ] of Char; begin AddFontResource( PChar( 'Xenia Condensed Cyrillic.TTF' ) ); AddFontResource ( StrPCopy ( ss, 'Xenia Condensed Cyrillic.TTF' )); SendMessage ( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 ); RemoveFontResource(Pchar('Xenia Condensed Cyrillic.TTF')); end. Текст должен выводиться в Label(свойства font Name:Xenia Condensed Cyrillic ; font Charset: DEFAULT_CHARSET) но текст не появляется , что делаю не так ? |