Apply_XXX_Conversion

Return to index

Author

Message

Alexander Fatykhov

Posted: 02/02/2004 17:56:10

Hello!

I want to set specific text style to selected part. I do this:

void __fastcall TMainFrm::AppStyle(TObject *Sender)

{

      TFontInfo* FontInfo   = new TFontInfo(NULL);

      FontInfo->FontName    = "Arial";

      FontInfo->Size        = 14;

...

      int StyleNo = RVStyle->TextStyles->FindSuchStyle(0, FontInfo,

RVAllFontInfoProperties);

      if (StyleNo < 0)

      {

        RVStyle->TextStyles->Add();

        RVStyle->TextStyles->Items[StyleNo]->Assign(FontInfo);

        RVStyle->TextStyles->Items[StyleNo]->Standard = false;

        StyleNo = RVStyle->TextStyles->Count - 1;

      }

      delete FontInfo; FontInfo = NULL;

      Editor->ApplyStyleConversion(StyleNo);

and it has no effect - style was no changed!!!

if I call this function several times - StyleNo will always increase.

what is wrong?

}