[teandr]

Доброго времени суток !!!

Возникла необходимость в своем браузере. В качестве исходника взял Mini-webbrowser (прилагается).Отредактировал его для собственных нужд.
Всё устраивает,но есть один ,в моем случае,очень большой недостаток. Дело в том, что браузер не поддерживает изменение размера шрифта.Это нужно для чата ,работающего на flash. Так-вот, в этом чате
есть возможность менять FRONT SIZE.

В моём случае, при нажатии на стрелочки,размер не изменяется и перестаёт работать Back Space в окне чата.
На форумах нашел возможное решение проблемы:

Код:

procedure TWebBrowserXXX.SetFontSize(nSize: OleVariant);
begin
  if (nSize >= 0) and (nSize <= 4) then
    ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, nSize)
end;

Но куда вставить этот код ?(программирую на PHP,с Delphi мало знаком).
Помогите пожалуйста !!!!!!! Очень нужно.

[url="http://delphiexpert.ru/load/source/mini_webbrowser.zip"]

[lmikle]

Подозреваю, что надо вставлять в компонент.
Но можно попробовать вот так:

Код:

// Увеличить шрифт на 1
procedure TForm1.Button1Click(Sender: TObject);
begin
  Inc(AFontSize);
  if (AFontSize >= 0) and (AFontSize <= 4) then
    WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, AFontSize);
end;