Re: Text Styles & Save methods

Return to index

Author

Message

Slavi Marinov

Posted: 08/18/2002 22:43:44

Well, I tried but it didn't

the code I use in this function is( for so short time I tried it to work

only with bold) :

Var TF : TFontInfo;

begin

  try

    TF:=TFontInfo.Create(nil);

    TF.Assign(RVS.TextStyles[StyleNo]);

    Case UserData of

     UD_BOLD :

       begin

         if fsBold in TF.Style then

         TF.Style:=TF.Style-[fsBold] else TF.Style:=Tf.Style+[fsBold];

       end;

     end;

    RVStylesCount:=RVS.TextStyles.Count;

    RVS.TextStyles.Add;

    RVS.TextStyles[RVStylesCount]:=TF;

    NewStyleNo:=RVStylesCount;

    RVStylesCount:=RVS.TextStyles.Count;

   finally

     TF.Free;

   end;

end;

After executing the

procedure TRVForm.StyleBoldExecute(Sender: TObject);

which contains :

  RVE.ApplyStyleConversion(UD_BOLD);

I see that all the hyperlinks are gone....

--Slavi

"Sergey Tkachenko" <svt@trichview.com> wrote in message

news:3d60031f$1@support.torry.net...

> Yes, it keeps them

>

> > Does this keep the hyperlinks? Because this is what particularly

interests

> > me....

> >

> > --Slavi

> >

> > "Sergey Tkachenko" <svt@trichview.com> wrote in message

> > news:3d5fee75$1@support.torry.net...

> > > > I have two problems :

> > > > First I want if I have a long text, containing many text styles, and

> > > select

> > > > the whole text, to apply Bold to the text. So, I cannot use

> > > > ApplyTextStyle, because it will discard all the previous changes,

i.e.

> > if

> > >

> > > There is a special method for this: ApplyStyleConversion.

> > > Example is here:

> > > http://www.trichview.com/support/files/redit.zip

> > > It requires some component that can be found in RichView installation,

> > > Demos\Delphi\Assorted\RichEdit\Components

> > >

> > > >

> > > > And secondly, my program throws an exception ( i.e. crashes), when I

> > make

> > > a

> > > > large table ( for example 2*600) and try to save it to stream. I use

> the

> > > > following to save it to stream

> > >

> > > I think that either your computer has low memory or problem is somewhe

re

> > in

> > > another place.

> > > I just tried to create and save table 2*6000, and it works.

> > > Can you send me a small project reproducing this problem?

> > >

> > >

> >

> >

>

>