Font name oluşturma

[brs]

Selam,


label font özelliklerinde olmaya görsel deki özelliği oluşturmak istiyorum, fakat font ayarlarında bu font yok, manuel olarak denedim olmadı.
Bu özelliği nasıl oluştura bilirim...

Kod: Tümünü seç

LabelSaat.Font.Name := 'mono;

[xozcanx]

Kod: Tümünü seç

  AddFontResource(PWideChar(ExtractFilePath(Application.EXEName)+'Font\LCALLIG.TTF'));
  SendMessage(application.handle, wm_fontchange,0,0);

Yukarıdaki şekilde istediğim fontu yükleyebilirsin. Kolay gelsin.

[brs]

Kod: Tümünü seç

  AddFontResource(PWideChar(ExtractFilePath(Application.EXEName)+'Font\LCALLIG.TTF'));
  SendMessage(application.handle, wm_fontchange,0,0);

Yukarıdaki şekilde istediğim fontu yükleyebilirsin. Kolay gelsin.

Teşekkür ederim, exe yanında bir de TTF sürekli olmalı, daha bir pratik yöntem bulmalıyım...

[speed60]

fontu direk çalıştır a %windir%\fonts yazıp bu klasöre kopyalasan sonrada sağ tıkladığın da yükle çıkması lazım yüklesen delphi de çıkmazmı acaba ? denemende fayda var

[brs]

Çok basitmiş aslında


Kullanmak istediğin fontu c:/windows/fonts klasörünün içine atıp, Delphiyi kapatıp tekrar aç o fontu kullanabilirsiniz...

[ertank]

Windows/fonts dizini altına koyduğun font programın çalışacağı başka bilgisayarlarda yoksa bu defa kurulum uygulaması içine de eklemen gerekir tabi.

Acaba Resource içine koyup EXE içine gömmek mümkün olabilir mi?