Welkom bij de Tweaking4All gemeenschapsforums!
Voor je gaat deelnemen, bekijk de Forum Regels!
Specifieke onderwerpen: Start het onderwerp met de naam van het programma of systeem.
Bijvoorbeeld “MacOS X – Jouw vraag“, of bijvoorbeeld “MS Word – Jouw Tip of Truc“.
Merk op: Omschakelen naar een andere taal zal niet werken als je een post aan het lezen bent aangezien er waarschijnlijk geen vertaling beschikbaar is.
Hier een truc om je eigen TTF font (true type font) in jouw eigen Delphi applicatie te gebruiken zonder dat je het font onder Windows hoeft te installeren:
In de OnCreate event kun je de AddFontResource functie gebruiken. De AddFontResource functie voegt het font aan de font tabel toe van Windows.
Bij het OnDestroy event wel even weghalen natuurlijk.
procedure TForm1.FormCreate(Sender: TObject) ;
begin
AddFontResource('c:FONTSMyFont.TTF') ;
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;
{Font verwijderen als het programma sluit}
procedure TForm1.FormDestroy(Sender: TObject; var Action: TCloseAction) ;
begin
RemoveFontResource('C:FONTSMyFont.TTF') ;
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;
