Guidance
指路人
g.yi.org

software / rapidq / Examples / QObject / Object / Doc French / QFormEx.html

Software

Upload

回顶部

⇑

2003-10-07 23:55

Appendix A: QFormEx

Documentation composant par D.Glodt (c)2000-2001	Appendix A: QFormEx

QFormEx Composant

QFormEx est identique a un composant QForm avec la fonctionnalité Drag&Drop de fichier et la fonctionnalité tray icon.

QFormEx Proprietés

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
DeskBar	BOOLEAN	LE	False
	Si true , l'application sera dans la barre outil du bureau lorsque la fenetre sera reduite. Mettre a false si l'évenement WndProc est utilisé.
FormStyle	INTEGER	LE	fsNormal
	le style fsStayOnStop est supporté

QFormEx Methodes

Methode	Type	Description	Parametres

AddTrayIcon	SUB	Additionne l'icone application dans la barre outil du bureau	0
DelTrayIcon	SUB	Supprime l'icone application de la barre outil du bureau	0

QFormEx Evenements

Evenement	Type	Déclenchement	Parametres

OnDrag	(File$)	Dépose fichier	1
OnTrayClick		Click bouton droit sur icone application de la barre outil	0
OnTrayDblClick		Double click sur bouton gauche sur icone application de la barre outil	0
OnMinimise		Mise en réduction de la fenetre	0

QFormEx Exemple1

$TYPECHECK ON
$INCLUDE "rapidq.inc"
$INCLUDE "Object\QFormEx.inc"

declare Sub depose(file as string)

CREATE Form AS QFormEx
width=300
Height=200
Caption="Drag and drop files"
center
DragEnable=true
OnDrag=Depose
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

QFormEx Exemple2

$TYPECHECK ON
$INCLUDE "rapidq.inc"
$INCLUDE "Object\QFormEx.inc"
declare sub close
declare sub show
declare sub menu
declare sub hide

CREATE Form AS QFormEx
OnClose=Close
OnTrayDblClick=Show
OnTrayClick=Menu
OnMinimise=Hide
END CREATE

CREATE PopUpMenu AS QPOPUPMENU
    Alignment = 1
    CREATE Open AS QMENUITEM
        Caption = "&Open"
        OnClick =show
    END CREATE
    CREATE Seperator AS QMENUITEM
        Caption = "-"
    END CREATE
    CREATE MeExit AS QMENUITEM
        Caption = "&Exit"
        OnClick =Close
    END CREATE
END CREATE
form.addtrayicon
form.showmodal

sub close
form.deltrayicon
Application.terminate
end sub

sub show
form.visible=true
end sub

sub Hide
form.visible=false
end sub

sub menu
popupmenu.popup(screen.MouseX,screen.MouseY)
end sub

2003-10-07 23:55

掌柜推荐