RichEdit Font Probleme
Hallo Liebe Delphi Freunde,
ich habe mal wieder ein Problem und finde trotz Suche keine Lösung. Ich möchte bei einem TRichEdit verschiedene Zeilen mit verschiedenen Font Attributen ändern. Also ich schreibe zeilenweise ins RichEdit mit .Lines.Add('') Nun möchte ich jedoch zum Beispiel die erste Zeile in fett und rot, die 8. Zeile in kursiv und blau, usw. setzen können. Mit Sel.Attributes komme ich irgendwie nicht klar. .SelAttributes.Color:=clRed; geht zwar, jedoch bekomme ich die Styles nicht hin, zB :=fsBold ... Gibt es nicht eine einfache Lösung um zeilenweise die Font Eigenschaften zu ändern ? Vielen Dank für Eure Mühe und Gedult mit mir :) Jasmine :cat: |
Re: RichEdit Font Probleme
Hallo Jasmine!
Was anderes als immer "SelAttributes", "Add", SelAttributes", "Add" wüsste ich gerade nicht. "Fett" stellt man den Text so dar:
Delphi-Quellcode:
Kombinieren tut man die Styles so:
SelAttributes.Style := [fsBold];
Delphi-Quellcode:
SelAttributes.Style := [fsBold,fsItalic,fsUnderline,fsStrikeOut];
|
Re: RichEdit Font Probleme
Ciao Jasmine,
Zitat:
Delphi-Quellcode:
Grüße vom marabu
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; |
Re: RichEdit Font Probleme
Vielen, vielen Dank an Euch !
Klappt nun, wie ich es wünschte. :kiss: Jasmine |
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:35 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz