🚀 go-pugleaf

While I discuss with Mr Gambit about the rules of posting via email I try to 
help you anyway:

here are the main changes I made to Mr. Chandler's code:

in the function CanAcceptText I changed
  if (format.cfFormat == CF_TEXT)
with
 if (format.cfFormat == CF_HDROP)

In the BasicDataObject:::OnGetData event handler

 UINT uBuffSize = 0;
 DROPFILES* pDrop;
 for(int i=0;i<FilesList->Count;i++) //FilesList is a TStringList with the 
files names we have to drag&drop
 {
   uBuffSize += FilesList->Strings[i].Length() + 1;
 }
 uBuffSize = sizeof(DROPFILES) + sizeof(TCHAR) * (uBuffSize + 1);
  // allocate memory
    HGLOBAL const hMem = GlobalAlloc(
    GHND | GMEM_SHARE, uBuffSize
    );
  if (hMem != NULL)
  {
    pDrop = (DROPFILES*) GlobalLock ( hMem );
    // Fill in the DROPFILES struct.
    pDrop->pFiles = sizeof(DROPFILES);
    TCHAR* pszBuff;
    pszBuff = (TCHAR*) (LPBYTE(pDrop) + sizeof(DROPFILES));
    //copy all the filesnames
    for(int i=0;i<FilesList->Count;i++)
    {
      lstrcpy ( pszBuff, (LPCTSTR) FileList->Strings[i].c_str() );
     //pszBuff = 1 + _tcschr ( pszBuff, '\0' );
     pszBuff += (FileList->Strings[i].Length()+1);
    }
    GlobalUnlock ( hMem );

Hope this may help, anyway if Mr. Gambit allow us, I will be glad to send 
You my code!
See You

"Stefano Bonifazi" <stefboombastic@libero.it> ha scritto nel messaggio 
news:42ebf94b@newsgroups.borland.com...
> Hi again!
> I modified the sample code to work with a files list ... if anyone needs 
> it, feel free to email me!
>
> To Mr Chandler: I read You wrote for the BCB5 developers guide, GREAT that 
> book has been my best investment ever!! It introduced me to BCB changing 
> my life :-)
>
> "Damon Chandler (TeamB)" <editor@_REMOVE_THIS_SPAM_GUARD_bcbjournal.com> 
> ha scritto nel messaggio news:42ea4ca4@newsgroups.borland.com...
>> Hi Stefano,
>>   I covered OLE-based drag sources in the December 2002 issue of the 
>> C++Builder Developer's Journal.  You can access the article (in 
>> particular, see Figure A) and source code here...
>>
>> http://bcbjournal.com/free_issue/December02-01.htm
>> http://bcbjournal.com/free_issue/December02Code.zip
>>
>> The code comes with two components, TBasicDropSource and 
>> TBasicDataObject, which are VCL-based descendants of IDropSource and 
>> IDataObject; there's also an example BCB project.
>>
>> HTH,
>> --
>> Damon (TeamB)
>>
>> C++Builder Developer's Journal
>>  http://bcbjournal.com
>> BCB Commonly Asked Questions
>>  http://bcbjournal.com/bcbcaq
>>
>>
>> Stefano Bonifazi wrote:
>>> I guess COleDropSource is the Microsoft implemented class for 
>>> IDropSource and IDataObjetc ... Why did not we have something like that 
>>> with BCB? Where may I see how to implement that my own?
>
>