Shift-Spacebar increments CPPostion by two

MikeHead

If I type ABC (then press the space bar) the CPPostion will be at 3. If I type the same thing but press the Shift Key and the Spacebar at the same time, the CPPostion will be at 4.

This is causing us an issue in performing certain functions that require us to know the CPPosition.

MikeHead

Is this a known issue? Is there a work around?

support

I tested this with

procedure TWPTBXForm.WPRichText1Change(Sender: TObject);
begin
Caption := IntToStr( WPRichText1.CPPosition );
end;

I have the same result wether I press Shift or not. It is possible
that you have a shortcut or an event in place with changes things?

CPPosition is accurate - it is calculated from ActiveParagraph and ActivePosInPar using this code:

Code

function TWPRTFDataBlock.GetPosition(par: TParagraph; posinpar: Integer): Integer;
var aPar: TParagraph;
begin
  apar := FFirstPar;
  Result := 0;
  if par = nil then exit;
  while apar <> nil do
  begin
    if apar = par then
    begin
      inc(Result, posinpar);
      exit;
    end;
    inc(Result, apar.CharCount + 1);
    apar := apar.next;
  end;
  Result := -1;
end;

Alles anzeigen