trichview.com

trichview.support




Re: textstyles


Return to index


Author

Message

Sergey Tkachenko

Posted: 03/13/2004 11:26:43


Look at the code of Demos\Delphi\Editors\Editor 2\

It shows how to implement Bold, Italic, Underline commands.


For example,


applying "bold" (TForm1.rveStyleConversion)

      TEXT_BOLD:

        if btnBold.Down then

          FontInfo.Style := FontInfo.Style+[fsBold]

        else

          FontInfo.Style := FontInfo.Style-[fsBold];


updating button state (TForm1.rveCurTextStyleChanged)

btnBold.Down      := fsBold      in fi.Style;


Simply change fsBold to fsAllCaps, and Style to StyleEx, and the button will

apply "All Capitals" command (see also where TEXT_BOLD constant appears in

the code)



>

> Yes, how to apply.  Keep coming up with undeclared identifier.

>

> George

>

> "Sergey Tkachenko" <[email protected]> wrote:

> >What's the problem with allcaps?

> >There is only one limitation - it does not work for Unicode text in

> >Win95/98/ME. In all other cases it must work.

> >

> >Or do you ask how to apply it?

> >

> >>

> >> Sergey...thank you so much for your reply.  It is just what I needed.

>  One

> >> more thing though....how to make the StyleEx:=[fsAllcaps] work.  Sorry

> if

> >> this is stupid.

> >>

> >

> >

>





Powered by ABC Amber Outlook Express Converter