Hallo Delphianer,
wenn ich unterschiedliche Strings in eine RichEdit-Komponente schreibe, möchte ich anschließend diese Strings unterschiedlich farblich darstellen.
Hättest Du einen Tip oder ein Beispiel für mich ?
Gruß Uwe
wie eben…nur mit bunt ;o)
entscheidend ist SelAttributes.
Gruss RQ
var i,X: Integer;
begin
LockWindowUpdate(Richedit1.Handle);
try
Richedit1.Clear;
for i:=1 to 20 do
begin
if i mod 2=0 then X:=0 else X:=Richedit1.Lines.Count-1;
Richedit1.Lines.Insert(X,‚Test‘);
end;
finally
LockWindowUpdate(0);
end;
for i:=0 to 20 do
begin
Richedit1.SelStart:=i+5*i;
Richedit1.SelLength:=5;
Richedit1.SelAttributes.Color:=rgb(i*20,i*10,255);
Richedit1.SelAttributes.Style:=[fsBold];
end;
end;