How to dragdrop from a TreeView??

Return to index

Author

Message

Pieter E.

Posted: 10/13/2004 15:41:57

I'd like to dragdrop the text of a selected TreeNode to the RichViewEdit.

I've got the following code:

void __fastcall TForm1::rveDragOver(TObject *Sender, TObject *Source,

      int X, int Y, TDragState State, bool &Accept)

{

  Accept = Source->ClassNameIs("TTreeView");

}

//---------------------------------------------------------------------------

void __fastcall TForm1::rveDragDrop(TObject *Sender, TObject *Source,

      int X, int Y)

{

  if(Sender->ClassNameIs("TRichViewEdit") && Source->ClassNameIs("TTreeView"))

  {

    AnsiString aURL = ((TTreeView *)Source)->Selected->Text;

    int StartNo, EndNo, StartOffs, EndOffs;

    TCustomRichViewEdit *Customrve = rve->TopLevelEditor;

    Customrve->GetSelectionBounds(StartNo, StartOffs, EndNo, EndOffs, true);

    if(StartOffs >= Customrve->GetOffsAfterItem(StartNo)) StartNo++;

    if(EndOffs <= Customrve->GetOffsBeforeItem(EndNo)) EndNo--;

    Customrve->BeginUndoGroup(rvutTag);

    Customrve->SetUndoGroupMode(true);

    for(int i=StartNo; i<=EndNo; i++)

    Customrve->SetItemTagEd(i, (int)StrNew(aURL.c_str()));

    Customrve->SetUndoGroupMode(false);

  }

}

//---------------------------------------------------------------------------

The problem is that it doesn't work. I get the following error message: 'List

index out of bounds(-1)'

I can't find the problem...

Could you help me?

Thanks.

Pieter E.