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

解決

むにゃ 2008-05-09 01:52:33 No: 30661

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

まこと 2008-05-09 06:02:49 No: 30662

これ？

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

むにゃ 2008-05-09 06:31:53 No: 30663

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

むにゃ 2008-05-11 04:51:24 No: 30664

単純に、ボタンを押すごとに、サイズ１とサイズ４を切り替えようと、
次のようにつくったのですが、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

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

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

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

むにゃ 2008-05-11 06:32:06 No: 30667

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

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