Mehrere Zeilen mit verschiedene Fonts

[waschlap]

Hallo Zusammen,

ich habe mal wieder ne Frage und zwar ich Benutze die Komponente Richedit für eine Ausgabe von einem text, der soll aber verschiedenen formatiert sein prinzipiell auch kein Prob, nur wenn ich einen Textteil mit voranstehende Tabs, kan ich ihn nicht sagen ab wann die formatierung starten soll, ein kleines beispiel:

Delphi-Quellcode:

  Richedit1.Lines.add(#9#9#9#9 + 'Summe von ' + #9 + 'Euro');
  Richedit1.Lines.add(#9#9#9#9 + 'blabla ' + #9 + 'Euro');

  for i:=0 to RichEdit1.Lines.Count -1 do
  begin
    with RichEdit1 do
    begin
      SelStart := Perform(EM_LINEINDEX, i, 0);
      SelLength := 60;
      if i= 1 then
      begin

        SelAttributes.Style:= [fsUnderline];
      end;
    end;

Sieht dann folgt aus ____________________blabla______Euro

Ich habe in meinem Reichedit zwei Zelien die Zweite würde ich gerne ab 'blabla' unterstreichen, nur des funzt überhaupt net.
wenn ich nur eine Zeile habe, funzt es aber sofern zwei oder mehr drin stehen und ich
Selstart := Perform(EM_LINEINDEX, i, 0);
benutze geht es nimmer.

Habe diese Frage schon mal gestellt, bitte beachtet das ich mehrere Zeilen in meinem Richedit habe und diese Zeilenweise durchgehe, somit funzt Selstart := 40 , SelLength 60 (das die letzten 20 Zeilen makiert sind) nicht!!


Kann mir da jmd helfen?
Wäre super Danke

Manu

[waschlap]

Delphi-Quellcode:

  Richedit1.Lines.add(#9#9#9#9 + 'Summe von ' + #9 + 'Euro');
  Richedit1.Lines.add(#9#9#9#9 + 'blabla ' + #9 + 'Euro');

  for i:=0 to RichEdit1.Lines.Count -1 do
  begin
    with RichEdit1 do
    begin
      SelStart := Perform(EM_LINEINDEX, i, 0) + Zahl(z.b.:4);
      SelLength := 60;
      if i= 1 then
      begin

        SelAttributes.Style:= [fsUnderline];
      end;
    end;

Das ist die Lösung , trotzdem DANKE für eure Hilfe.