шрифты

← →
Мурзилка (2006-05-24 13:42) [0]

открыл Arial.ttf немного подкорректировал. как сдлеать чтобы всё четко сохранилось. и в дэлфи я мог использовать потом этот шрифт.

← →
Elen © (2006-05-24 13:44) [1]

Чем ты его корректировал? Там есть сохранение?

← →
Мурзилка (2006-05-24 13:50) [2]

да да. FontCreator/ ну я не не втом же сохранил файле а в Arial2 сохранил.
как теперь его использовать?

← →
webpauk (2006-05-24 14:02) [3]

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

← →
webpauk (2006-05-24 14:03) [4]

Используйте ваш любимый текстовый редактор, создайте *.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;

← →
Мурзилка (2006-05-27 19:25) [5]

> webpauk

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

← →
Мурзилка (2006-05-27 19:44) [6]

всё создал.
только всё равно чето н ето. шрифт не используется

← →
ZV © (2006-05-27 23:56) [7]

Я менял шрифты в Font Creator, отредактировал, сохранил в WINDOWS/Fonts . В Delphi в TFont ставил мой шрифт,всё работает нормально. Я так понял что при открытие TFont ты не находишь шрифта Arial2 или если находишь и ставишь его то он не такой как сохранял ты . Если ты редактировал уже установленный в Windows шрифт в FontCreat и затем сохранил изменение то ничего не получится. Делай так :отредактируй шрифт, сохрани его в отдельной папке, открой её копируй шрифт и перенеси её в Windows/Fonts.При попытке вставить будет сообщение что такой шрифт установлен.Удаляй установленный и вставляй редактированный.Всё должно работать в Delphi и не только. Если так не получится пиши есть другие варианты.

← →
Мурзилка (2006-05-28 16:34) [8]

> ZV ©

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

← →
Мурзилка (2006-05-28 16:43) [9]

>
> > ZV ©

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

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

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

← →
Мурзилка (2006-05-28 16:47) [11]

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

как?

← →
Мурзилка (2006-05-28 17:05) [12]

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

шрифты Найти похожие ветки