| Код |
STDMETHODIMP CMyTicker::SetClientSite (LPOLECLIENTSITE pSite)
{
........................................
if (m_pFont)
m_pFont.Release();
if (FAILED(GetAmbientFontDisp(static_cast<IFontDisp**>(&m_pFont))))
{
FONTDESC fd;
WCHAR fname[] = { 'A','r','i','a','l',0 };
fd.cbSizeofstruct = sizeof(fd);
fd.lpstrName = fname;
fd.cySize.Lo = 120;
fd.cySize.Hi = 0;
fd.sWeight = 0;
fd.sCharset = 0;
fd.fItalic = 0;
fd.fUnderline = 0;
fd.fStrikethrough = 0;
OleCreateFontIndirect (&fd,
IID_IFontDisp,
reinterpret_cast<void**>(&m_pFont));
}
..............................
return hr;
}
|
|