trichview.support
Re: List of Checkpoints |
Author |
Message |
Yernar |
Posted: 12/19/2002 15:44:19 procedure TForm1.FillListBoxesWithCheckpoints; var Tag: Integer; Name: string; CheckPointData: TCheckPointData; RaiseEvent: Boolean; begin CheckpointData := RichViewEdit1.GetFirstCheckPoint; while CheckpointData <> nil do begin RichViewEdit1.GetCheckpointInfo(CheckpointData, Tag, Name, RaiseEvent); NameListBox.Items.Add(Name); TagListBox.Items.Add(IntToStr(Tag)); CheckpointData := RichViewEdit1.GetNextCheckpoint(CheckpointData); end; end; "visitorrr" <[email protected]> wrote: > >I want to make the list of the Checkpoints who are in my RVF file. I have >one list for the tag and one list for the name. Please correct my code : > >procedure TFormGotoCheckpoint.FormCreate(Sender: TObject); >var cp: TCheckpointData; >begin > if FormeCourrante.RichViewEdit1.GetFirstCheckpoint <> nil then > begin > cp := FormeCourrante.RichViewEdit1.GetFirstCheckpoint; > cmbEditNomCheckpoint.Items.Add(cp.Name); > cmbEditTagCheckpoint.Items.Add(IntToStr(cp.Tag)); > while FormeCourrante.RichViewEdit1.GetNextCheckpoint(cp) <> nil do begin > cp := FormeCourrante.RichViewEdit1.GetNextCheckpoint(cp); > cmbEditNomCheckpoint.Items.Add(cp.Name); > cmbEditTagCheckpoint.Items.Add(IntToStr(cp.Tag)); > end; > end; >end; > >Thanks a lot ! |
Powered by ABC Amber Outlook Express Converter