drag drop file from Window Explorer to smalltalk pane

This is a discussion on drag drop file from Window Explorer to smalltalk pane within the Smalltalk forums in Programming Languages category; Hi, everyone. I have a problem to create a tool to read file path dragged on my form! I receive a WinDragDropSession object from drag/drop event after create WinDragDropObject object after obtain a IDataObject object. If I try to see available formats from WinDragDropObject I cant see 'CF_HDROP' only Set('FileName' 'DragContext' 'InShellDragLoop' 'Shell IDList Array' 'Shell Object Offsets' 'DragImageBits' 'FileNameW' ) whose contain a OLE interface. Can you help me to solve my problem? A lot of thanks for your attention to my problem...

Go Back   Application Development Forum > Programming Languages > Smalltalk

Object Mix

Register FAQ Calendar Search Today's Posts Mark Forums Read
  #1  
Old 08-15-2008, 09:38 AM
vsedletskiy@gmail.com
Guest
 
Default drag drop file from Window Explorer to smalltalk pane

Hi, everyone.

I have a problem to create a tool to read file path dragged on my
form!
I receive a WinDragDropSession object from drag/drop event after
create WinDragDropObject object after obtain a IDataObject object.
If I try to see available formats from WinDragDropObject I cant see
'CF_HDROP' only Set('FileName' 'DragContext' 'InShellDragLoop' 'Shell
IDList Array' 'Shell Object Offsets' 'DragImageBits' 'FileNameW' )
whose contain a OLE interface.

Can you help me to solve my problem?

A lot of thanks for your attention to my problem
Reply With Quote
  #2  
Old 08-18-2008, 07:07 AM
Reinout Heeck
Guest
 
Default Re: drag drop file from Window Explorer to smalltalk pane

It seems this question concerns Digitalk Release 3.1.

Any takers?


vsedletskiy@gmail.com wrote:
> Hi, everyone.
>
> I have a problem to create a tool to read file path dragged on my
> form!
> I receive a WinDragDropSession object from drag/drop event after
> create WinDragDropObject object after obtain a IDataObject object.
> If I try to see available formats from WinDragDropObject I cant see
> 'CF_HDROP' only Set('FileName' 'DragContext' 'InShellDragLoop' 'Shell
> IDList Array' 'Shell Object Offsets' 'DragImageBits' 'FileNameW' )
> whose contain a OLE interface.
>
> Can you help me to solve my problem?
>
> A lot of thanks for your attention to my problem

Reply With Quote
  #3  
Old 08-20-2008, 04:45 AM
Thomas
Guest
 
Default Re: drag drop file from Window Explorer to smalltalk pane

Do you really need OLE based drag & drop? If not you could use the old
wmDropFiles way.
In preInitWindow register for drag and drop:

...
(tp := self textPane)
when: #dragDropped: send: #droppedFileane: to: self
withArgument: tp;
acceptDragDropOldStyle;
dragTarget: true.
...

with Window method:

acceptDragDropOldStyle

self addExtendedStyle: WsExAcceptfiles "= 16".
self isHandleOk ifTrue: [ |dll|
dll := self classShellDLL open.
dll dragAcceptFiles: self handle asParameter accept: true.
dll close
] ifFalse: [
self whenValid: #acceptDragDropOldStyle
]

- Thomas (looking for VSE developers ...)

On 15 Aug., 15:38, vsedlets...@gmail.com wrote:
> Hi, everyone.
>
> I have a problem to create a tool to read file path dragged on my
> form!
> I receive a WinDragDropSession object from drag/drop event after
> create WinDragDropObject object after obtain a IDataObject object.
> If I try to see available formats from WinDragDropObject I cant see
> 'CF_HDROP' only *Set('FileName' 'DragContext' 'InShellDragLoop' 'Shell
> IDList Array' 'Shell Object Offsets' 'DragImageBits' 'FileNameW' )
> whose contain a OLE interface.
>
> Can you help me to solve my problem?
>
> A lot of thanks for your attention to my problem


Reply With Quote
Reply


Thread Tools
Display Modes


All times are GMT -5. The time now is 04:24 PM.


Powered by vBulletin® Version 3.7.2
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO 3.2.0
vB Ad Management by =RedTyger=

In an effort to better serve ads to our visitors, cookies are used on objectmix.com. For more information, check out our Privacy Policy.