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.
applying "bold" (TForm1.rveStyleConversion)
if btnBold.Down then
FontInfo.Style := FontInfo.Style+[fsBold]
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
> Yes, how to apply. Keep coming up with undeclared identifier.
> "Sergey Tkachenko" <email@example.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.
> >> more thing though....how to make the StyleEx:=[fsAllcaps] work. Sorry
> >> this is stupid.
Powered by ABC Amber Outlook Express Converter