Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Плоский Webbrowser

Автор: namra 7.1.2009, 22:50

Привет всем! Хочу сделать плоский Webbrowser, но не получается выдает ошибки. Подскажите что исправить?

Код


procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Doc : IHTMLDocument2;
  Element : IHTMLElement;
begin
  Doc := IHTMLDocument2(TWebBrowser(Sender).Document);
  if Doc = nil then
    Exit;
  Element := Doc.body;
  if Element = nil then
    Exit;
  case Make_Flat of
    TRUE : Element.style.borderStyle := 'none';
    FALSE : Element.style.borderStyle := '';
  end;
end;

Автор: hkdkest 7.1.2009, 23:02

модуля наверное не хватает )

Автор: namra 7.1.2009, 23:28

Да оказывается забыл подключить модуль, спс hkdkest. А какой тип данных у этой переменной - Make_Flat. Если определяю как boolean, выдает:

Код


Unit1.pas(45): Variable 'Make_Flat' might not have been initialized

Автор: namra 7.1.2009, 23:45

Вот нашел еще один пример, делает браузер и скроллбар плоским, только не знаю где эту функцию прописать:

Код


function TCustomizedWebBrowser.GetHostInfo(
  var pInfo: TDocHostInfo): HRESULT; stdcall; 
begin
  with pInfo do
    dwFlags := dwFlags or DOCHOSTUIFLAG_NO3DBORDER or 
      DOCHOSTUIFLAG_FLAT_SCROLLBAR;
  Result := S_OK;
end;

Автор: Данкинг 7.1.2009, 23:53

Цитата(namra @ 7.1.2009, 23:28

)

А какой тип данных у этой переменной - Make_Flat.

Это ты ответа телепатов ждёшь? smile

Цитата(namra @ 7.1.2009, 23:28

)

Код


Unit1.pas(45): Variable 'Make_Flat' might not have been initialized

Ну пусть выдаёт, это же не ошибка. smile

Цитата(namra @ 7.1.2009, 23:45

)

Вот нашел еще один пример, делает браузер и скроллбар плоским, только не знаю где эту функцию прописать:

А TCustomizedWebBrowser - это что? smile

Автор: namra 8.1.2009, 00:14

Цитата(Данкинг @ 7.1.2009, 23:53

)

Ну пусть выдаёт, это же не ошибка.

Данкиг когда выдает эту ошибку

Код


Variable 'Make_Flat' might not have been initialized

проект компилируется, но браузер остается 3D, так как эта переменная не скомпилирована.

А на счет TCustomizedWebBrowser вот нашел док один но что-то у меня не получилось

Автор: Данкинг 8.1.2009, 00:34

Цитата(namra @ 8.1.2009, 00:14

)

так как эта переменная не скомпилирована.

Цитата(namra @ 8.1.2009, 00:14

)

А на счет TCustomizedWebBrowser вот нашел док один но что-то у меня не получилось

Ты документ этот хорошо читал? Это какая-то самодельная функция для самодельного же браузера. smile

Код


function GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT; 
      stdcall;

Автор: namra 8.1.2009, 00:39

все разобрался smile