how to work with UnderlineType?

[alexandreq]

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

[Sergey Tkachenko]

Code: Select all

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

[alexandreq]

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

have a nice day
Alex