OnOLECompleteDrag (ImageList Control) example for C++ Builder

This example is to be used with the EnableOLEDragMethod (ImageList Control) example.

void __fastcall TForm1::LEADImgList2OLECompleteDrag(TMouseButton Button, TShiftState Shift, int X, int Y)
{
   AnsiString str;

   str= "LEADImgList2: OLE Complete Drag at pos X = " + IntToStr (X) + " and pos Y = " + IntToStr (Y);
   ShowMessage ( str );
}

void __fastcall TForm1::LEADImgList1OLEDragOver(TMouseButton Button, TShiftState Shift, int X, int Y)
{
   AnsiString str;
   str= "LEADImgList1: OLE Drag Over at pos X = " + IntToStr (X) + " and pos Y = " + IntToStr (Y);
   ShowMessage ( str );
}

void __fastcall TForm1::LEADImgList1OLEStartDrag(TMouseButton Button, TShiftState Shift, int X, int Y)
{
   AnsiString str;

   str = "LEADImgList1: OLE Start Drag at pos X = " + IntToStr(X) + " and pos Y = " + IntToStr (Y);
   ShowMessage ( str );
}