DropMarker/SelectMarker problem

phb

Hi

I am trying to remember cp position and possible text selection. CP position works fine using markers functionality, but I cant seem to get the selection to work. Is it a bug or am I doing something wrong?

Code

var
  nStartID, nSelStartID, nSelEndID: Integer;
  bRestoreSel: Boolean;
begin
  // rember cp position and selection
  nStartID := rteEditor.TextCursor.DropMarker;
  nSelStartID := rteEditor.TextCursor.DropMarkerAtSelStart;
  nSelEndID := rteEditor.TextCursor.DropMarkerAtSelEnd;
  bRestoreSel := rteEditor.HideSelection;
  // do something here
  rteEditor.HideSelection;
  // restore cursor pos and selection
  if bRestoreSel then
    rteEditor.TextCursor.SelectMarker(nSelEndID, nSelStartID);
  rteEditor.TextCursor.GotoMarker(nStartID);
  rteEditor.Refresh;
end;

Alles anzeigen

Code should be almost the same as you described in the WPTools5Upgrade.pdf

Im using WPTOOLS [5.19], Delphi 2005

support

Hi,

SelectMarker uses wrong order.

But the big question is what
"// do something here "
is. If this is a load or erase operation it is possible that the paragraphs which own the markers are deleted, in this case the markers won't work anymore.

The markers are internally implemented as a stack which use paragraph pointers, not positions in the text.

You can also insert bookmarks to save your selection and do inbetween the markes whatever you like.

Julian Ziersch

phb

It doesn't matter wheater I switch order in SelectMarker. I still doesn't work. I use the wrong order because it is that way you wrote it in one of your examples :wink:

Even if "// do something" is nothing like the code i send you it still doesn't work. So maybe there is some kind of bug in WPTools or maybe I have a bug in my code. Can you tell?

support

Hi,

The key is the GotoMarker, an 'else' is missing here:

if bRestoreSel then
rteEditor.TextCursor.SelectMarker(nSelStartID,nSelEndID)
else rteEditor.TextCursor.GotoMarker(nStartID);
rteEditor.TextCursor.CollectAllMarker;

Julian