Richedit Font Laufzeit zuweisen

[jaikai]

Hi,

Über den Editor habe ich mir aus einem RTF die "standard"-Schriften geholt.

Beispiel
{\rtf1\ansi\deflang1031{\fonttbl{\f1\fswiss\fchars et0\fprq2 Arial;}{\f248\froman\fcharset0\fprq2 Times NewRoman;}...

Diese setze ich als Header in Sringlisten, füge aus verschiedenen Bauteilen Zeilen hinzu und streame in ein finales Richedit. Die bekommen alle - default 'Arial' zugeteilt.

Aus einer fremden Komponente kopiere ich per Stream die RTF's zwischendurch ebenfalls in das finale Richedit . Nur da sind die Schriften anders - kleiner (kein Problem) und/aber die Schrift ist beispielsweise 'Lucida' (und das ist mein Problem)

Kann ich ohne Font-Combobox per Laufzeit dem kompletten RTF-Richedit einen einheitlichen Font zuweisen? Wenn ja - wie geht das?

Danke

[Lannes]

Hallo,

sollte ich Dich richtig verstanden haben, dann so:

Delphi-Quellcode:

  with FinalRichEdit do
  begin
  SelectAll;
  with SelAttributes do
    begin
    Name := 'Arial';
    Size := 10;
    Charset := ANSI_CHARSET;
    end;
  end;

[jaikai]

Yeah - ich hatte immer mit 'Font' rumgemacht.
Danke