Documentation composant par D.Glodt (c)2000-2001 | Appendix A: QFormEx |
|
Champs | Type | L/E | Defaut |
DragEnable | BOOLEAN | LE | False |
Acceptation de depose fichier dans la fenetre d'application | |||
DragZone | QRECT | LE | |
Zone de dépose fichier |
Methode | Type | Description | Parametres |
DragMessage | SUB(Hwnd&,uMsg&,wParam&,lParam&) | Traite les messages de dépose fichier | 4 |
Evenement | Type | Déclenchement | Parametres |
OnDrag | (File$) | Dépose fichier | 1 |
$TYPECHECK ON
$INCLUDE "rapidq.inc"
$INCLUDE "Object\QFormEx.inc"
declare Sub depose(file as string)
declare Sub FormWndProc(Hwnd&, uMsg&, wParam&, lParam&)
CREATE Form AS QFormEx
width=300
Height=200
Caption="Drag and drop files"
center
DragEnable=true
OnDrag=Depose
WndProc=FormWndProc
CREATE Listbox as QLISTBOX
Width=150
height=100
END CREATE
END CREATE
form.DragZone.Left=listbox.left
form.DragZone.Top=listbox.Top
form.DragZone.Right=listbox.Width
form.DragZone.Bottom=listbox.Height
Form.ShowModal
Sub Depose(file as string)
ListBox.AddItems(file)
End Sub
Sub FormWndProc (Hwnd&, uMsg&, wParam&, lParam&)
form.dragmessage(Hwnd&, uMsg&, wParam&, lParam&)
END Sub