Merhaba Arkadaşlar;
Systemde kurulu olmayan bir fontu delphide kullanmak için önce font dosyasını kurmalıyız.
Bunun için aşağıdaki kodlar işinize yarayabilir:
formun create olayına
AddFontResource('fontlar\myfont.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
Ancak bu yöntemle fontumuz programımızı kapatıp açtıktan sonra etkin hale gelir.
bu sorunu Forumlara sormuştum bana programını yeniden başlat dediler.
Tahmin ederseniz formun create programı yeniden başlatmak mantıksız(program başlarken yeniden başlatmak)
dosyaya kurulduğunu yazıp okuma işlemi ise zahmetli.
Ben daha kolay ve etkin bir yöntemle bu işi yaptım
biz fontu program calışmadan once kurarsak sorun ortadan kalkıyor;
programın proje dosyasına formlar create edilmeden önce
kodlarını ekleyin
örneğin:
program myprog;
uses
Forms,windows, /// font procedurleri için windows ibaresini ekleyin
main in 'main.pas' {ana};
{$R *.res}
begin
AddFontResource('fontlar\myfont.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
Application.Initialize;
Application.CreateForm(Tana, ana);
Application.Run;
end.
buFontu kaldırmak için formun close olayına
RemoveFontResource('C:\FONTS\MyFont.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
SAYGILAR...