Vcl.AxCtrls.SetOleFont
Delphi
procedure SetOleFont(Font: TFont; OleFont: IFontDisp);
C++
extern DELPHI_PACKAGE void __fastcall SetOleFont(Vcl::Graphics::TFont* Font, _di_IFontDisp OleFont);
Properties
| Type | Visibility | Source | Unit | Parent |
|---|---|---|---|---|
procedure function |
public | Vcl.AxCtrls.pas Vcl.AxCtrls.hpp |
Vcl.AxCtrls | Vcl.AxCtrls |
Description
Connects an OLE font object to a TFont object and copies the properties of the OLE font object to the TFont.
OLE conventions implement fonts as automation objects that contain the properties of the font. This routine associates an OLE font object (the OleFont parameter) with a native VCL font (the Font parameter), allowing the font to be accessed by both OLE programs and VCL programs. The TFont object is initialized to have the same properties as OleFont.
Call this method when you implement an automation method that takes an OLE font as a parameter, and which needs to pass the font along as a native TFont object.