OpenCodes retieved close codes?

In a OnGetAttrColor even, I am using the following command:

OpenCodes(par, lin, cp, TheList, wpcoBookMark);

To check whether I should highlight a bookmark. However, the bookmarks I get in the returned list, includes bookmarks that have been closed several paragraphs before.

How can I get around what appears to be a bug in this function?

I got it but it was not useful at all. I sent you a small project by email

Here is what I am trying to do. I have a document with several bookmarks. I try to highlight specific bookmarks only. I have put in the document HTML like tags to show you where the bookmarks start and end. For example, the following tags:

<Patriotism> </Patriotism>

Indicates the beginning and end of a text segment associated with a bookmark that contains "Patriotism".

I have a combo box at the top of the project file. It allows you to choose which segment to highlight.

See below the code I use.

What am I doing wrong?

Normand

procedure TForm1.WPRichText1GetAttrColor(Sender: TObject;
  CharStyle: TOneWrtStyle; Canvas: TCanvas; var Underline, DoubleUnderline,
  Background: Boolean; HotstyleIsActive: Boolean; par: PTParagraph;
  lin: PTLine; cp: Integer);
var
   N, I: Integer;
  bName: string;
  TheList: TList;


begin
  if CharStyle = afsBookmark then
  begin
    TheList := TLIst.Create;
    BackGround := False;
    N := WPRichText1.OpenCodes(par, lin, cp, TheList, wpcoBookMark);  
    if TheList.Count > 0 then begin
      for I := 0 to TheList.Count - 1 do begin
        bName := WPRichText1.Memo.TxtObjLst.Names[LongInt(TheList.Items[i])];  
        if Pos(ComboBox1.Text, BName) > 0 then begin
          Canvas.Brush.Color := ClYellow;
          Canvas.Font.Color := ClRed;
          BackGround := True;
        end;
      end;
    end;
    TheList.Free;
  end;
end;

Zitat von wpsupport

Hi,

I sent you this method as e-mail. I hope you received it.

Julian