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

' Qdirtree

****** QDIRTREE Component ******
QDirTree is a custom component used to provide users with a Windows Explorer
like directory list. It eats up a lot of resources, so use with caution. You
don't usually need more than one of these.

QDirTree Properties
Field               Type                R/W                 Default
=================== =================== =================== ===================
Align               INTEGER             RW                  alNone
BorderStyle         INTEGER             RW                  bsSingle
Color               INTEGER             RW
Cursor              INTEGER             RW                  crDefault
Directory           STRING              RW                  False
Enabled             INTEGER             RW                  True
FastLoad            INTEGER             RW                  False
Font                QFONT               W
Height              INTEGER             RW
HideSelection       INTEGER             RW                  False
Hint                STRING              RW
InitialDir          STRING              RW
Left                INTEGER             RW                  0
Parent              QFORM/QPANEL/       W
                    QTABCONTROL
PopupMenu           QPOPUPMENU          W
ReadOnly            INTEGER             RW                  False
ReadOnStart         INTEGER             RW                  False
ShowHint            INTEGER             RW                  False
TabOrder            INTEGER             RW
Top                 INTEGER             RW                  0
Width               INTEGER             RW
Visible             INTEGER             RW                  True

QScrollBar Methods
Method              Type                Description         Params
=================== =================== =================== ===================
AddDirTypes         SUB                 Add directory types 0
AddDriveTypes       SUB                 Add drive types     0
DelDirTypes         SUB                 Del directory types 0
DelDirTypes         SUB                 Del drive types     0
FullCollapse        SUB                 Collapse entire     0
                                        directory list
                                        Expand entire
FullExpand          SUB                 directory list      0
                                        (slow!)
Reload              SUB                 Re-read directories 0

QScrollBar Events
Event               Type                Occurs when...      Params
=================== =================== =================== ===================
OnChange            VOID                Current directory   0
                                        changes


QDirTree Examples
'' A Directory Tree like Windows Explorer.
'' QDIRTREE Component courtesy of Markus Stephany.
'' I took out removable drives because it doesn't work properly.
'' So you won't be able to view your floppy disk drives.  CD-ROM drives
'' are fine, as far as I know...

$TYPECHECK ON

DECLARE SUB ChangeDirectory

CREATE Form AS QForm
  Caption = "Directory Tree"
  Center
  CREATE DirTree AS QDirTree
    InitialDir = CURDIR$
    Width = Form.ClientWidth
    Height = Form.ClientHeight
    OnChange = ChangeDirectory
  END CREATE
  ShowModal
END CREATE

SUB ChangeDirectory
  ShowMessage DirTree.Directory
END SUB



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