Re: Using demo Checkpoints 3

Return to index

Author

Message

Richard

Posted: 05/31/2005 0:15:56

I tried using the removecheckpoint method as follows but it does not work:

procedure TForm1.Button2Click(Sender: TObject);

var CheckpointIndex: Integer;

begin

  CheckpointIndex := ListBox1.ItemIndex;

  if CheckpointIndex=-1 then exit;

  RichView1.RemoveCheckPoint(RichView1.GetCheckpointY(CheckpointIndex));

end;

Any help is appreciated

Richard