🚀 go-pugleaf

By looking at this function, can someone advise me on how
to use this in bcb?

The *lpUnk is



void CCEditView::SetBgColor( COLORREF color )
{

 IUnknown* lpUnk = m_pSite->GetObjectUnknown();

 if ( lpUnk != NULL )
 {
     HRESULT         hr;

  // Then, request the "document" object from the object
  IHTMLDocument2* pHTMLDocument2;
  hr = lpUnk->QueryInterface(IID_IHTMLDocument2, (void
**)&pHTMLDocument2);
  if ( SUCCEEDED( hr ) )
  {

   // translate the hex color into a string without using the CRT
   int idx;
   WCHAR   buff[8]=L"#000000";
   WCHAR           HEX[17]=L"0123456789ABCDEF";

   for (int i=0;i<3;i++)
   {
    idx = color&0xF;
    buff[2*i+2] = HEX[idx];
    color >>= 4;
    idx = color&0xF;
    buff[2*i+1] = HEX[idx];
    color >>= 4;
   }

   BSTR bstrColor = SysAllocString( buff );

   // Now, set the background color of the body to be equal to
something
   VARIANT varColor;
   varColor.vt = VT_BSTR;
   varColor.bstrVal = bstrColor;
   hr = pHTMLDocument2->put_bgColor( varColor );
   pHTMLDocument2->Release();
  }
 }
}


This is my measly interpretation of it, but i am missing quite a bit.
Its supposed
to change the background color of a DHTML control.  I cant even tell
what
headers it needs too.

        TComInterface<IHTMLDocument2> HTMLDoc;

     // Now, set the background color of the body to be equal to
something
  VARIANT varColor;
        VariantInit(&varColor);

  varColor.vt = VT_BSTR;
        TColorRef rgbV = ColorToRGB(clInfoBk);
        varColor.lVal =
RGB(GetBValue(rgbV),GetGValue(rgbV),GetRValue(rgbV));

        HTMLDoc->put_bgColor(varColor);
        VariantClear(&varColor);