Re: Using demo Checkpoints 3

Return to index

Author

Message

Sergey Tkachenko

Posted: 05/31/2005 21:27:58

var CheckpointIndex, ItemNo: Integer;

      CheckpointData: TCheckpointData;

begin

  CheckpointIndex := ListBox1.ItemIndex;

  if CheckpointIndex=-1 then exit;

  CheckpointData := RichView1.GetCheckpointByNo(CheckpointIndex);

  ItemNo := RichView1.GetCheckpointItemNo(CheckpointData);

  RichView1.RemoveCheckPoint(ItemNo);

end;

>

> 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