' Rapid-Q by William Yu (c)1999-2000                                             .
' ================================================================================
' Upload_il_tuo_script_su_Rapidq.it

' QFormEx

****** QFormEx Component ******
QFormEx is a a component as QForm with  Drag&Drop of files and tray icon
function.
 
 
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.
QFormEx Methods
Method      Type      Description                                    Params
=========== ========= ============================================== ==========
AddTrayIcon SUB       Add  an icon application inside the desk tool 0
                      bar.
DelTrayIcon SUB       Delete  the icon application of desk  tool   0
                      bar.
QFormEx Events
Event               Type                Occurs when...      Params
=================== =================== =================== ===================
OnDrag              (File$)             Drop file           1
                                        Click right button
OnTrayClick                             on icon application 0
                                        of tool bar
                                        Double click on
OnTrayDblClick                          left button on icon 0
                                        application of tool
                                        bar
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



' ===============================================================================
'                      2003 Holyguard.net - 2007_Abruzzoweb