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" <svt@trichview.com> 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.

> >>

> >

> >

>