Formattazione di linee in Rich Edit utilizzando SelText & SelStart di Delphi

Il controllo TRichEdit Delphi è un wrapper per un controllo di modifica Rich Text di Windows. È possibile utilizzare un controllo Rich Edit per visualizzare e modificare i file RTF.

Sebbene sia possibile creare una bella interfaccia utente "attorno" al controllo Rich Edit con i pulsanti della barra degli strumenti per impostare e modificare gli attributi di visualizzazione del testo, l'aggiunta di linee formattate a Rich Edit a livello di codice è abbastanza ingombrante - come vedrai.

Come aggiungere linee formattate a Rich Edit

Creare grassetto testo da una selezione di testo visualizzato nel controllo Rich Edit, in fase di esecuzione è necessario creare una sezione di testo e quindi impostare le proprietà della selezione su SelAttributes.

Tuttavia, cosa succede se non hai a che fare con una selezione di testo e invece vuoi farlo aggiungi (aggiungi) testo formattato in un controllo Rich Edit? Potresti pensare Linee La proprietà può essere utilizzata per aggiungere testo in grassetto o colorato a Rich Edit. tuttavia, Linee è un TString semplice e accetta solo testo semplice, non formattato.

Non mollare, ovviamente c'è una soluzione.

Guarda questo esempio per un aiuto:

 // richEdit1 di tipo TRichEdit con RichEdit1 fare inizio // sposta il cursore alla fine SelStart: = GetTextLen; // aggiunge una riga non formattata SelText: = 'Questa è la prima riga' + # 13 # 10; // aggiungi del testo normale SelText: = 'Linee formattate in RichEdit' + # 13 # 10; // testo più grande SelAttributes.Size: = 13; // aggiungi grassetto + rosso SelAttributes.Style: = [fsBold]; SelAttributes.Color: = clRed; SelText: = 'Informazioni'; // solo grassetto SelAttributes.Color: = clWindowText; SelText: = 'Delphi'; // aggiungi corsivo + blu SelAttributes.Style: = [fsItalic]; SelAttributes.Color: = clBlue; SelText: = 'Programmazione'; //nuova linea SelText: = # 13 # 10; // aggiungi di nuovo normale SelAttributes.Size: = 8; SelAttributes.Color: = clGreen; SelText: = 'pensa alla procedura personalizzata AddFormattedLine ...'; fine; 

Per iniziare, sposta il cursore alla fine del testo in Rich Edit. Quindi, applicare la formattazione prima di aggiungere effettivamente il nuovo testo.