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

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

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

шрифты

Мурзилка © (2006-05-24 13:42:00)
открыл Arial.ttf немного подкорректировал. как сдлеать чтобы всё четко сохранилось. и в дэлфи я мог использовать потом этот шрифт.

Мурзилка (2006-05-28 17:05:00) [1]
значит создал MyFont.ttf если открыть его двойным щелчком мыши, то открывается просмотрщик шрфитов и там написано что это Lucida Sans Unicode(Open Type). В Font Creator нажимал Инсталл, он вроде инсталировал шрифт. но сохрани лся он как Люсида Санс Юникоде. И теиерья могу лицезреть свой шрфит под этим названием, а не под тем, что я давал ему

Мурзилка (2006-05-28 16:47:00) [2]

> tesseract © (28.05.06 16:43) [10]
>
> > а вот как сделать так что бы на другом компе, на котором
>
> > мой шрифт не установлен - он устанавливался. автоматически.
>
> > ну или может есть ещё какие варианты
>
> автокопирование в паку windows\font.

как?

Мурзилка (2006-05-28 16:43:00) [3]

>
> > ZV ©

Я сохранил в отдельной папке под именем MyFont скопировал в Фонт виндовса. у меня появилось сообщение "УстановКА шрифта", ну и типа всё установилось. потом включаю дэльфи, и чето нифига :))

tesseract (2006-05-28 16:43:00) [4]

> а вот как сделать так что бы на другом компе, на котором
> мой шрифт не установлен - он устанавливался. автоматически.
> ну или может есть ещё какие варианты

автокопирование в паку windows\font.

Мурзилка (2006-05-28 16:34:00) [5]

> ZV ©

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

ZV (2006-05-27 23:56:00) [6]
Я менял шрифты в Font Creator, отредактировал, сохранил в WINDOWS/Fonts . В Delphi в TFont ставил мой шрифт,всё работает нормально. Я так понял что при открытие TFont ты не находишь шрифта Arial2 или если находишь и ставишь его то он не такой как сохранял ты . Если ты редактировал уже установленный в Windows шрифт в FontCreat и затем сохранил изменение то ничего не получится. Делай так :отредактируй шрифт, сохрани его в отдельной папке, открой её копируй шрифт и перенеси её в Windows/Fonts.При попытке вставить будет сообщение что такой шрифт установлен.Удаляй установленный и вставляй редактированный.Всё должно работать в Delphi и не только. Если так не получится пиши есть другие варианты.

Мурзилка (2006-05-27 19:44:00) [7]
всё создал.
только всё равно чето н ето. шрифт не используется

Мурзилка (2006-05-27 19:25:00) [8]

> webpauk

не создает res файл

webpauk (2006-05-24 14:03:00) [9]
Используйте ваш любимый текстовый редактор, создайте *.rc файл, описывающий шрифт:

MY_FONT ANYOL1 "Bauhs93.ttf"

Первые два параметра могут быть любыми. Они будут использоваться в программе позже.

Затем для создания *.res файла используйте компилятор командной строки BRCC32.EXE, поставляемый с Delphi. Если ваш файл на этапе 1 был назван MyFont.rc, командная строка в сеансе DOS должна выглядеть так:

BRCC32 MyFont

Программа добавит в компилируемый файл созданный ресурс .rc и создаст файл с тем же именем, за исключением расширения, которое будет .res: MyFont.res

В вашей программе добавьте директиву компилятора, чтобы включить вновь созданный файл:

{$R MyFont.res}

Правильным будет разместить его в секции реализации после строчки {$R *.DFM}.

Добавьте процедуру создания файла из ресурса, делающим шрифт доступным для использования. Пример:

procedure TForm1.FormCreate(Sender: TObject);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(hInstance, 'MY_FONT', Pchar('ANYOL1'));
Res.SavetoFile('Bauhs93.ttf');
Res.Free;
AddFontResource(PChar('Bauhs93.ttf'));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

Теперь вы можете использовать данный шрифт в своем приложении:

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Font.Name := 'Bauhaus 93';
end;

Предостережения:
Приведенный пример не предусматривает никакой проверки и защиты от возможных ошибок.

Обратите внимание - имя файла НЕ такое же, как имя шрифта. Это допускает, что вы знаете имя шрифта и имя его ttf-файла. Вы можете определить это, дважды щелкнув на файле в окне Проводника.

Я рекомендую устанавливать файл шрифта в папку C:\WINDOWS\FONTS. Его легче отыскать потом именно там.

Ваш вновь установленный шрифт может быть удален программным путем, естественно, в случае, когда он никем не используется:

procedure TForm1.FormDestroy(Sender: TObject);
begin
RemoveFontResource(PChar("Bauhs93.ttf"))
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

webpauk (2006-05-24 14:02:00) [10]
засовываешь в ресурс, сохраняешь из ресурса в файла, добавляешь шрифт и устанавливаешь его для нужных компонентов

Мурзилка (2006-05-24 13:50:00) [11]
да да. FontCreator/ ну я не не втом же сохранил файле а в Arial2 сохранил.
как теперь его использовать?

Elen (2006-05-24 13:44:00) [12]
Чем ты его корректировал? Там есть сохранение?

Наверх

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