Drag and drop - %dr

In this section:

• Caption - %ca[title]
• Window handle - %hw
• Control handle - %lc
• Leave window open - %lw[option]
• Start-up call-back - %sc
• Child window - %ch
• Control variable - %cv
• Create MDI frame - %fr
• Attach window - %aw
• Drag and drop - %dr
• Set window position - %sp
• Set window size - %sz
• Window style - %ww[options]
• Background colour - %bg[colour]
• ClearWin window - %N.Mcw[options]
• Property sheet - %Nps
• Property sheet child - %sh
• Closure control format - %cc
• Delayed auto recall - %dl
• Wallpaper - %wp[bitmap]
• User window - %uw[class_name]
• Screen saver - %sv
• Disable screen saver - %ns
• Taskbar icon - %ti

%dr (OnDragDrop Callback) takes a call-back function that is called when a file is dropped on to a window. If a collection of files is dropped, the call-back is called for each file in turn. This can be achieved, for example, by the following actions:

· Open the File Manager or Explorer and select one or more files.

· Drag the files to the format window containing %dr.

· Use CLEARWIN_STRING@('DROPPED_FILE') in the call-back associated with %dr.

For example, a text editor could use this feature by opening the droppped file for editing.

The following code illustrates how %dr works:

       WINAPP
       INTEGER i,winio@
       EXTERNAL drop_func
       i=winio@('%ca[Drag and drop]%bg[grey]&')
       i=winio@('Drop files here....&')       
       i=winio@('%dr',drop_func)
       END
c --------------------------------------------------
       INTEGER FUNCTION drop_func()
       INCLUDE <clearwin.ins>
       CHARACTER*129 filename
       INTEGER i
       filename=clearwin_string@('DROPPED_FILE')
       i=winio@('%ca[Dropped file]%bg[grey]&')
       i=winio@('%`20rs&',filename)
       i=winio@('%2nl%cn%tt[Next file]')       
       drop_func=2 
       END