Add line RichText Delphi

0

Good afternoon I have an application that text has to have Bold, italic and underlined so I am using a TRichText. So far so good For the same to work in print I did RTRLrichText which gets the TRichText values.

However ... if I insert lines in whites so that the text appears from the middle or the bottom of the page in the preview and the printout does not come out as on the screen. That is, I can not add rows.

Does anyone know how?

    
asked by anonymous 08.12.2017 / 16:56

1 answer

1

Try 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 site

    
20.12.2017 / 18:39