Re: Text Styles & Save methods

Return to index

Author

Message

Sergey Tkachenko

Posted: 08/18/2002 22:45:47

I copied your code in the editor demo and tried - this code works with

hyperlinks.

Hyperlinks are retained as hyperlinks.

(This code has only one problem - it does not use FindSuchStyle method, so

it can add a vast number of new text styles).

Which version of RichView do you use?

> 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?

> > > >

> > > >

> > >

> > >

> >

> >

>

>