Delphi Gecko SDK - кому-нибудь удалось с этим + XULRunner 1.9?

Question

Я сделал проверку d-gecko SDK с sf.net (http://sourceforge.net/projects/d-gecko/). Я хотел попробовать это с Gecko (XULRunner) 1.9, однако при запуске простого приложения каждый раз я получаю сообщение об ошибке в функции stdcall, указывающее на строку WebBrowser.Paint ... У меня вопрос - кому-нибудь удалось запустить приложение GeckoSDK Delphi в XULRunner 1.9? Если так - как? Это сработало для вас?

Спасибо м.

Answer 1

Вам нужно перейти куда-нибудь, прежде чем веб-браузер сначала попытается нарисовать себя. Итак, LoadURI () должен быть вызван до того, как компонент станет видимым.

Самое простое решение: позвоните LoadURI('about:blank') до того, как компонент станет видимым.

Answer 2

У меня была и эта проблема. Я просто нейтрализовал baseWin.Repaint (True);
Ил все работало отлично потом

procedure TCustomGeckoBrowser.Paint;
var
  rc: TRect;
  baseWin: nsIBaseWindow;
begin
  if csDesigning in ComponentState then
  begin
    rc := ClientRect;
    Canvas.FillRect(rc);
  end else
  begin
    baseWin := FWebBrowser as nsIBaseWindow;
    //baseWin.Repaint(True);
  end;
  inherited;
end;