Formatieren von Zeilen in Rich Edit mit Delphis SelText & SelStart

Das TRichEdit Delphi-Steuerelement ist ein Wrapper für ein Windows-Rich-Text-Bearbeitungssteuerelement. Mit einem Rich-Edit-Steuerelement können Sie RTF-Dateien anzeigen und bearbeiten.

Während Sie eine ansprechende Benutzeroberfläche "um" das Rich Edit-Steuerelement mit Symbolleistenschaltflächen zum Festlegen und Ändern von Textanzeigeattributen erstellen können, ist das programmgesteuerte Hinzufügen formatierter Zeilen zu Rich Edit ziemlich umständlich - wie Sie sehen werden.

So fügen Sie formatierte Linien zu Rich Edit hinzu

Erschaffen Fett gedruckt Text aus einer Auswahl von Text, der im Rich-Edit-Steuerelement angezeigt wird. Zur Laufzeit müssen Sie einen Textabschnitt erstellen und dann die Eigenschaften der Auswahl auf festlegen SelAttributes.

Was ist jedoch, wenn Sie sich nicht mit einer Auswahl von Text befassen und stattdessen möchten hinzufügen (anhängen) formatierter Text zu einem Rich-Edit-Steuerelement? Du denkst vielleicht Linien Diese Eigenschaft kann zum Hinzufügen von fettem oder farbigem Text zu Rich Edit verwendet werden. jedoch, Linien ist ein einfacher TStrings und akzeptiert nur einfachen, unformatierten Text.

Gib nicht auf - natürlich gibt es eine Lösung.

Schauen Sie sich dieses Beispiel an, um Hilfe zu erhalten:

 // richEdit1 vom Typ TRichEdit mit richEdit1 tun Start // Caret zum Ende bewegen SelStart: = GetTextLen; // füge eine unformatierte Zeile hinzu SelText: = 'Dies ist die erste Zeile' + # 13 # 10; // Füge normalen Schriftarttext hinzu SelText: = 'Formatierte Zeilen in RichEdit' + # 13 # 10; // größerer Text SelAttributes.Size: = 13; // füge fett + rot hinzu SelAttributes.Style: = [fsBold]; SelAttributes.Color: = clRed; SelText: = 'About'; // nur fett SelAttributes.Color: = clWindowText; SelText: = 'Delphi'; // Kursiv + Blau hinzufügen SelAttributes.Style: = [fsItalic]; SelAttributes.Color: = clBlue; SelText: = 'Programmierung'; //Neue Zeile SelText: = # 13 # 10; // wieder normal hinzufügen SelAttributes.Size: = 8; SelAttributes.Color: = clGreen; SelText: = 'Denken Sie an die benutzerdefinierte Prozedur AddFormattedLine ...'; Ende; 

Bewegen Sie das Einfügemarke zunächst in der Rich-Bearbeitung an das Ende des Texts. Wenden Sie dann die Formatierung an, bevor Sie den neuen Text tatsächlich anhängen.