Code: Select all
Type DragDropType
Title As zString * 20
hHandle As Dword
End Type
Code: Select all
Static DragDrop As DragDropType
Dim ptrDragDrop As DragDropType Ptr = @DragDrop
DragDrop.Title = "Drag and Drop"
DragDrop.hHandle = Cast(Dword, hWnd )
............., Cast( Dword_Ptr, ptrDragDrop ) )
In the Drag&Drop function ptrDragDrop is coming in via RefData.
Compilation-wise I cannot get past the hDlg statement. I have tried everything that I can think of and this is my latest attempt.
Code: Select all
............., RefData As Dword_Ptr ) As Winbool
Dim Dummy as Uinteger Ptr
Dummy = Cast( Uinteger Ptr, RefData )
hDlg = Dummy->hHandle
Code: Select all
.................., ByVal RefData As DragDropType Ptr) As Long
hDlg = @RefData.hHandle