void __fastcall TMainForm::ApplicationEvents1Idle(TObject *Sender,
bool &Done)
{
VARIANT fn, fs;
fn.vt = VT_BSTR;
fs.vt = VT_I4;
CComQIPtr<IOleCommandTarget, &IID_IOleCommandTarget> OleCmd(WB->ControlInterface);
OleCmd->Exec(&CGID_MSHTML, IDM_FONTNAME, Shdocvw_tlb::OLECMDEXECOPT_PROMPTUSER, NULL, &fn);
OleCmd->Exec(&CGID_MSHTML, IDM_FONTSIZE, Shdocvw_tlb::OLECMDEXECOPT_PROMPTUSER, NULL, &fs);
FontName->Text = fn.bstrVal;;
FontH->ItemIndex = fs.intVal-1;
}
Глюк OleCommandTarget
Код:
при нажатии на Enter (перевод строки и создание нового параграфа) вылетает AV
в чем дело???
заменил на WB->Document и все ок!!!