Search results for 'RemoveFontResource'. 1 post(s) found.
- 2007/09/25 How to use TTF Font Without Installing
Here's how to use a TTF (true type font) in your Delphi application without having to install it in Windows:
1. In the OnCreate event for the main form in your Delphi application call the AddFontResource API function. The AddFontResource function adds the font resource from the specified file to the system font table.
2. When an application no longer needs a font resource that it loaded by calling the AddFontResource function, it must remove that resource by calling the RemoveFontResource function. Do this in the OnDestroy event for the main form.
procedure TForm1.FormCreate(Sender: TObject) ;
begin
AddFontResource('c:\FONTS\MyFont.TTF') ;
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;
{Before application terminates we must remove our font:}
procedure TForm1.FormDestroy(Sender: TObject; var Action: TCloseAction) ;
begin
RemoveFontResource('C:\FONTS\MyFont.TTF') ;
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;
begin
AddFontResource('c:\FONTS\MyFont.TTF') ;
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;
{Before application terminates we must remove our font:}
procedure TForm1.FormDestroy(Sender: TObject; var Action: TCloseAction) ;
begin
RemoveFontResource('C:\FONTS\MyFont.TTF') ;
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;
Another posts included in "Delphi"
| Window flashing (0) | 2007/09/25 |
| Technology sharing related with software development. Specially content... (0) | 2007/10/02 |
| Creating thumbnail images (0) | 2007/10/04 |
| How to show window contents while dragging (0) | 2007/09/25 |
| How to save text from Clipboard to a file (0) | 2007/09/25 |
| How to send char as message to another application (0) | 2007/09/25 |
| How to restrict mouse movement (0) | 2007/09/25 |
| List Devices (LPT, COM ports, ...) (0) | 2007/09/25 |
Trackback : Cannot send a trackbact to this post.
-
Subject different money making ideas
2010/01/25 08:18
moneyideas
-
Subject different money making ideas
2010/01/28 21:37
moneyideas
-
Subject different money making ideas
2010/01/29 06:09
moneyideas
-
Subject different money making ideas
2010/01/31 16:41
moneyideas
-
Subject Phentermine 37.5 mg online prescription.
2010/03/05 07:58
Phentermine online. Lowest online phentermine price. Online phentermine. Lowes t online phentermine price.
-
Subject Cheap 37 5 phentermine.
2010/03/07 23:04
Cheap phentermine. Phentermine cheap. Cheap phentermine online no rx saturday delivery. Cheap phentermine online. Cheap phentermine cod.
-
Subject Buy phentermine online.
2010/03/09 16:38
Buy phentermine online buy. Buy phentermine. Buy phentermine online without a prescription. Buy phentermine online no prescription. Buy phentermine mexico. Buy phentermine on line to nevada. Buy no phentermine prescription. Buy cheap phentermine.
Prev
Rss Feed