Main Menu
Home »
D-TNT Forum »
Delphi Tips & Tricks »
Open-TNT »

 Forums

D-TNT Forum »
Off-Topic Forum »
Open-TNT Forum »

 Software
 D-TNT » 

 Be a Member
  Coming Soon

 Comms
 Contact Jason »
Send Feedback »
My Web Portfolio
 

pro·duc·er (pr-dsr, -dy)

n.
One that produces, especially a person or an organization that produces for public presentation of a play, film, program, or similar work.


Why not link to d-tnt.co.uk?
Put this button on your site.

 
How To Use Not Registered Font Types...
Overview:

   How to use not registered font types


The Stuff:
Author: tom 



procedure TForm1.FormCreate(Sender: TObject);
begin
  AddFontResource(pchar(ExtractFilePath(ParamStr(0)+'Irgendwas.TTF')));
  SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;


procedure TForm1.FormDestroy(Sender: TObject);
begin
  RemoveFontResource(pchar(ExtractFilePath(ParamStr(0)+'Irgendwas.TTF')));
  SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;



from
www.swissdelphicenter.ch
developers knowledge base

{
--
Thierry Bodin
http://www.ephemeride.com
}
<%sig=
--
Thierry Bodin
http://www.ephemeride.com
/sig%>
<%uid=1671-1900/uid%>
<%snt=17/05/2001/snt%>


 
 Discuss in forum