Adding special characters

General TRichView support forum. Please post your questions here
Post Reply
BennieC
Posts: 28
Joined: Sat Jun 18, 2011 7:00 pm

Adding special characters

Post by BennieC »

Hi,
I wish to allow editors to add reference numbers to documents eg (123), in superscript and a special colour, at specific locations.
However, I would like to have the ability to display or not display such numbers. Is there an easy way to do this or must the document be parsed fully to allow or disallow display. Also, how do I insert a special character to identify the location of such text.
Bennie
Sergey Tkachenko
Site Admin
Posts: 17253
Joined: Sat Aug 27, 2005 10:28 am
Contact:

Post by Sergey Tkachenko »

The simplest solution is to mark this text as hidden (adding rvteoHidden in TextStyle.Options). They can be shown only if you include rvoShowHiddenText in RichViewEdit.Options.
This text will have a special dotted underline when displayed.

If you do not want to use a hidden text, then yes, you need to search and delete them. You can assign some special tag value to these items to distinguish them from the rest of text.
BennieC
Posts: 28
Joined: Sat Jun 18, 2011 7:00 pm

Post by BennieC »

Thanks.
I am struggling to identify positions.
I click in the document and use insertText(InsertedText,true) to place the reference text in the location. I now need to change the format of the reference text to superscript, red and hidden, but I can't locate the specific string. I assume I need to select it to change it but to select it (SetSelection) I need to know the Item number which I can't locate.
I assume I should do the following

Click in the document at the insert location
Insert the text string (InsertText)
Select the text string (SetSelection)
Change it's style (??)

And then when displaying it I need to toggle hidden on or off as desired

Is this more or less correct and how do I achieve this
Sergey Tkachenko
Site Admin
Posts: 17253
Joined: Sat Aug 27, 2005 10:28 am
Contact:

Post by Sergey Tkachenko »

It's simpler.
All inserted text use the style defined in RichViewEdit.CurTextStyleNo.
Assign it before calling InsertText.
Do you use RichViewActions?
BennieC
Posts: 28
Joined: Sat Jun 18, 2011 7:00 pm

Post by BennieC »

OK, I have tried setting the style and it does work. However, when adding my new style, using textstyles.add, how do I know what the index of the addition is. I tried to use .count, but there appears to be an offset of 2 ie count would say there are 8 styles, but styleno 10 is the one I added.
Is there a default styleset?

Answer to the other question - yes I do use Richview actions as my editor is basically the sample as provided by you - for now at least.
Bennie
Sergey Tkachenko
Site Admin
Posts: 17253
Joined: Sat Aug 27, 2005 10:28 am
Contact:

Post by Sergey Tkachenko »

Collection items are indexed from 0 to Count-1, so, after calling TextStyles.Add, the new style has the index TextStyles.Count-1.

You need to make sure that you do not create a style identical to the style that already exists. Use TextStyles.FindSuchStyle to find an existing style with the required properties. Add a new style only if FindSuchStyle returns -1.
The example can be found in Demos\*\Editors\Editor 2\

If you use RichViewActions, you can use TrvActionFontEx instead of working directly with styles.
For example, you want to retain all the properties of the current text style, but make it all-caps, red, arial, 10pt:

Code: Select all

rvActionFontEx1.UserInterface := False;
rvActionFontEx1.ValidProperties := [rvfimFontName, rvfimSize, rvfimAllCaps, rvfimColor];
rvActionFontEx1.Font.Name := 'Arial';
rvActionFontEx1.Font.Size := 10;
rvActionFontEx1.Font.Color := clRed;
rvActionFontEx1.FontStyleEx := [rvfsAllCaps];
rvActionFontEx1.ExecuteTarget(RichViewEdit1);
rvActionFontEx1.UserInterface := True;
BennieC
Posts: 28
Joined: Sat Jun 18, 2011 7:00 pm

Post by BennieC »

Well there is some progress. I can add a new style consistently. The next problem is that, when I use aTRichview component to display the edited text, it does not recognise the same style. I then proceeded to save the style after creation in a ini file but finding the style in the saved file always returns -1 and hence a new style is always created.

Code: Select all


unit EditUtils;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, ImgList, ContNrs,
  RVEdit, RVStyle;

procedure CreateUserStyles(CurrStyle : integer; var AStyle: TRVStyle);
procedure GetRefFont(CurrStyle : integer; var FontInfo: TFontInfo;
                      var AStyle: TRVStyle; var StyleNo : integer);

var
  RefStyleNo : integer;    // The style number for references

implementation

uses L5_Globals;

procedure GetRefFont(CurrStyle : integer; var FontInfo: TFontInfo;
                      var AStyle: TRVStyle; var StyleNo : integer);
begin
  // creating text style with the desired attributes
  FontInfo := TFontInfo.Create(nil);
  try
    FontInfo.Assign(AStyle.TextStyles[CurrStyle]);
    FontInfo.FontName := 'Arial';
    FontInfo.Size := 12;
    FontInfo.Color := clBlue;
    FontInfo.SubSuperScriptType := rvsssSuperScript;
    // if such text style already exists, reusing it
    StyleNo := AStyle.TextStyles.FindSuchStyle(CurrStyle, FontInfo, RVAllFontInfoProperties);
  finally
    FontInfo.Free;
  end;
end;

procedure CreateUserStyles(CurrStyle : integer; var AStyle: TRVStyle);
var
  FontInfo : TFontInfo;
begin
  // First check if a Style.ini exists, if so load it, else create a new one and save it
  if FileExists(ApplicationPath + '\EdtStyle.ini') then
  begin
    AStyle.LoadINI(ApplicationPath + '\EdtStyle.ini', 'TextStyles');
    GetRefFont(CurrStyle, FontInfo, AStyle, RefStyleNo);
  end
  else
  begin
    GetRefFont(CurrStyle, FontInfo, AStyle, RefStyleNo);
  end;

  if RefStyleNo < 0 then
  try
    begin
      // if not, adding it
      AStyle.TextStyles.Add;
      RefStyleNo := AStyle.TextStyles.Count - 1;
      AStyle.TextStyles[RefStyleNo].Assign(FontInfo);
      AStyle.TextStyles[RefStyleNo].Standard := False;
    end;
  finally
    AStyle.SaveINI(ApplicationPath + '\EdtStyle.ini', 'TextStyles');
  end;

end;


end.
The above is called with

Code: Select all

     
      myEdStyle := TRVStyle.Create(self);
      myEdStyle := aRVComponent.Style;
      myEditor.RichViewEdit1.Style := myEdStyle;
      CreateUserStyles(myEditor.RichViewEdit1.CurItemStyle, myEdStyle);
      myEditor.RichViewEdit1.Format;

Hope my code is readable
Sergey Tkachenko
Site Admin
Posts: 17253
Joined: Sat Aug 27, 2005 10:28 am
Contact:

Post by Sergey Tkachenko »

Can you reproduce this problem in a simple project?
Send it to richviewgmailcom.
Post Reply