QFormEx Component

QFormEx Properties

Field	Type	R/W	Default
DragEnable	BOOLEAN	RW	False
	Accept drop file in the application window
DragZone	QRECT	RW
	Zone of drop file
DeskBar	BOOLEAN	RW	False
	If true , application will inside the desk tool bar when the window will minimized. Set to false if the évent WndProc is use.
FormStyle	INTEGER	RW	fsNormal
	Style fsStayOnTop is now supported

QFormEx Methods

Method	Type	Description	Params
AddTrayIcon	SUB	Add  an icon application inside the desk tool bar.	0
DelTrayIcon	SUB	Delete  the icon application of desk  tool bar.	0

QFormEx Events

Event	Type	Occurs when...	Params
OnDrag	(File$)	Drop file	1
OnTrayClick		Click right button on icon application of tool bar	0
OnTrayDblClick		Double click on left button on icon application of tool bar	0
OnMinimise		Window minimized	0

QFormEx Example1

$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 Example2

$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