WebBrowser内の文字を大きくしたいのですが

解決

むにゃ  2008-05-09 01:52:33  No: 30661  IP: [192.*.*.*]

WebBrowserコンポーネントでテキストファイルを表示しています。
ボタンを押して文字の大きさを変えるようにしたいのですが、
どうすればいいんでしょうか？
（該当するようなプロパティが見つからないんですが）

編集    削除
まこと  2008-05-09 06:02:49  No: 30662  IP: [192.*.*.*]

これ？

http://hiderin.air-nifty.com/delphi/2007/09/index.html

編集    削除
むにゃ  2008-05-09 06:31:53  No: 30663  IP: [192.*.*.*]

まさに、これです。
まことさん、ありがとうございます。
参考につくってみます。

編集    削除
むにゃ  2008-05-11 04:51:24  No: 30664  IP: [192.*.*.*]

単純に、ボタンを押すごとに、サイズ１とサイズ４を切り替えようと、
次のようにつくったのですが、ExecWBの多重関数が定義されていませんというエラーが出てコンパイルできません。
どこが間違っているのでしょうか？
（なお、ChrSizeはIntegerです）

------------------------------------------------------
procedure TForm1.ChangeChrSizeClick(Sender: TObject);
begin
  if CharSize = 1 then
  begin
    CharSize := 4;
  end
  else
  begin
    CharSize := 1;
  end;
  WebBrowser1.ExecWB(OLECMDID_ZOOM,OLECMDEXECOPT_DONTPROMPTUSER,CharSize,EmptyParam);
end;
-----------------------------------------

編集    削除
まこと  2008-05-11 05:15:27  No: 30665  IP: [192.*.*.*]

前、こんなので動かしたことがあったので参考までに。
ちょっといじってみましたが、問題なく動くようです。

procedure SetFontSize(Size: Integer);
var
  A, B: OLEVariant;
begin
  A := Size;
  Form1.WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, A, B);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetFontSize(3);
end;

編集    削除
なにはさておき  2008-05-11 05:18:07  No: 30666  IP: [192.*.*.*]

IDEのエディタ上で ExecWB を右クリックして、「定義の検索」を見てごらん。

編集    削除
むにゃ  2008-05-11 06:32:06  No: 30667  IP: [192.*.*.*]

まことさん、ありがとうございます。
うまくサイズが変わるようになりました。

なにはさておきさん、ありがとうございます。
定義の検索方法わかりました。
これからの参考にします。

編集    削除