Ciao Jasmine,
Zitat von
Jasmine:
Gibt es nicht eine einfache Lösung um zeilenweise die Font Eigenschaften zu ändern ?
ist doch gar nicht so schwer:
Delphi-Quellcode:
var
i: integer;
begin
with RichEdit do
for i := 0 to Lines.Count - 1 do begin
// start of line i
SelStart := Perform(EM_LINEINDEX, i, 0);
// select full line
SelLength := Length(Lines[i]);
// use random attributes
if Odd(Random(2))
then SelAttributes.Style := [fsBold]
else SelAttributes.Color := clRed;
end;
end;
Grüße vom marabu