TRichView.com

Code: Select all

function TForm1.CheckPointNumber(rve: TCustomRichViewEdit): Integer;
var
  i: Integer;
begin
  Result := -1;
  rve := rve.TopLevelEditor;
  i := rve.CurItemNo;

  while not rve.IsParaStart(i) do
  begin
    if rve.RVData.GetItemCheckpoint(i) <> nil then
    begin
      Result := i;
      exit;
    end;
    dec(i);
  end;

  if rve.RVData.GetItemCheckpoint(i) <> nil then
    Result := i;
end;

Code: Select all

procedure TForm1.miRemoveCheckpointClick(Sender: TObject);
begin
  if Self.CheckPointNumber(rve) > -1 then
  begin
    rve.RemoveCheckpointEd(CheckPointNumber(rve));
    //rve.Invalidate;
  end;
end;

Code: Select all

procedure TForm1.miRemoveCheckpointClick(Sender: TObject);
var
  Editor: TCustomRichViewEdit;
  CPNumber: Integer;
begin
  Editor := rve.TopLevelEditor;
  CPNumber := CheckPointNumber(Editor);
  if CPNumber >= 0 then
    Editor.RemoveCheckpointEd(CPNumber);
end;