Add Richtext Delphi line

Question

Good afternoon I have an application that text has to have Bold, Italic and underlined so I’m using a Trichtext. So far so good For the same work in printing I made Rtrlrichtext that gets the values from Trichtext.

However... if I insert blank lines so that the text appears in the middle or to the end of the page in the preview and printing does not come out as on the screen. I mean I can’t add lines.

Does anyone know how ?

Answer 1

Try it like this:

Richedit1.SelAttributes.Color:=clBLue; // Cor Azul
Richedit1.SelAttributes.Style:=[fsBold,fsUnderline]; // Negrito e sublinhado
Richedit1.Lines.Add('Linha'); // Adiciona linha
Richedit1.SelAttributes.Style:=[]; // Volta ao estilo normal
Richedit1.SelAttributes.Color:=clBlack; // Volta à cor normal

I found this in a website