Formatarea liniilor în editarea bogată folosind SelText și SelStart Delphi

Controlul TRichEdit Delphi este un înveliș pentru un control de editare a textului bogat din Windows. Puteți utiliza un control Editare bogată pentru a afișa și edita fișiere RTF.

În timp ce puteți crea o interfață de utilizator plăcută „în jurul” controlului Rich Edit cu butoane din bara de instrumente pentru a seta și schimba atributele afișajului textului, adăugarea de linii formatate în programul Rich Edit este destul de greoaie - așa cum veți vedea.

Cum să adăugați linii formatate la Editarea Rich

A crea îndrăzneţ text dintr-o selecție de text afișată în controlul Editare bogată, la runtime, trebuie să creați o secțiune de text și apoi să setați proprietățile selecției la SelAttributes.

Cu toate acestea, ce se întâmplă dacă nu aveți de-a face cu o selecție de text și doriți în schimb adăugați (anexa) text formatat la un control Rich Edit? Ai putea crede Linii proprietatea poate fi utilizată pentru a adăuga text cu caractere aldine sau colorate la Editarea Rich. in orice caz, Linii este un TStrings simplu și va accepta doar text simplu, neformatat.

Nu renunțați - desigur, există o soluție.

Uită-te la acest exemplu pentru ceva ajutor:

 // richEdit1 de tip TRichEdit cu richEdit1 do începe // mutați îngrijit până la capăt SelStart: = GetTextLen; // adăugați o linie neformatată SelText: = 'Aceasta este prima linie' + # 13 # 10; // adăugați niște text de font normal SelText: = 'Linii formatate în RichEdit' + # 13 # 10; // text mai mare SelAttributes.Size: = 13; // adăugați bold + roșu SelAttributes.Style: = [fsBold]; SelAttributes.Color: = clRed; SelText: = 'Despre'; // numai îndrăzneț SelAttributes.Color: = clWindowText; SelText: = 'Delphi'; // adăugați italic + albastru SelAttributes.Style: = [fsItalic]; SelAttributes.Color: = clBlue; SelText: = 'Programare'; //linie nouă SelText: = # 13 # 10; // adauga din nou normal SelAttributes.Size: = 8; SelAttributes.Color: = clGreen; SelText: = 'gândește-te la procedura personalizată AddFormattedLine ...'; Sfârșit; 

Pentru a începe, mutați îngrijirea la sfârșitul textului în Editarea bogată. Apoi, aplicați formatarea înainte de a adăuga efectiv noul text.