RichEdit

[Klaus01]

Hallo Sascha,

ich möchte Dir noch einmal den TWebBrowser ans Herz legen.
Warum, nun den kann man zoomen (kleiner und auch größer).

Den Zoomfaktor kannst Du ja abhänging von der Formgröße ändern.

Delphi-Quellcode:

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  webbrowser1.OleObject.document.body.style.zoom :=0.80;
end;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  source.Visible:=false;
  rtf2html('e:\document.rtf').SaveToFile('e:\test.html');
  webBrowser1.Navigate('e:\test.html');
end;

Den Code rtf2html habe ich von Delphi-Source geklaut und etwas angepasst.
Habe Dir das Demoprojekt einmal angehängt.

Grüße
Klaus