Entwickler-Ecke

Sonstiges (Delphi) - nicht registrierte Schriftarten verwenden


hibbert - Fr 27.02.04 16:34
Titel: nicht registrierte Schriftarten verwenden
Hi,
folgendes habe ich bereits zu dem schon oben genannten Theme gafunden:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
 
procedure TForm1.FormCreate(Sender: TObject);
begin
AddFontResource(pchar('Adore64.ttf'));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
RemoveFontResource(pchar('Adore64.ttf'));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

Doch nun möchte ich einem Label diese schriftart zuweisen, aber wie geht dat?

thx hibbert


Delete - Fr 27.02.04 19:45
[url=http://www.delphi-forum.de/viewtopic.php?t=13972#81641]klick[/url] (als Beispiel)


hibbert - Fr 27.02.04 23:30
jo funzt Danke !! :D :D

hibbert


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!