TRichView.com

Posted: **Tue Jan 31, 2012 2:41 pm**

Hello Sergey

I inserted a code in DBSRichViewEdit1StyleConversion to add this, but it didn't work.

TEXT_SUBLINHADO_ESP: Begin
FontInfo.UnderlineType := SubTipoLinha;
FontInfo.UnderlineColor := SubTipoCor;
end;

this is from my button:

SubTipoLinha := rvutThickDashDotDotted;
SubTipoCor := clRed;
DBSRichViewEdit1.RichViewEdit.ApplyStyleConversion(13);

Could you give me an example how to work with it in your example?

http://www.trichview.com/support/files/reditss.zip

thanks
ALex

Posted: **Thu Feb 02, 2012 7:04 pm**

Code: Select all

TEXT_SUBLINHADO_ESP: Begin 
  FontInfo.UnderlineType := SubTipoLinha; 
  FontInfo.UnderlineColor := SubTipoCor; 
  [color=red]FontInfo.Style := FontInfo.Style+[fsUnderline];[/color]
end;

Posted: **Fri Feb 03, 2012 10:30 am**

thanks very much. Now I understood where was my mistake.

have a nice day
Alex

TRichView.com

how to work with UnderlineType?

how to work with UnderlineType?