Appendix A: QDIRTREE
Rapid-Q Documentation by William Yu (c)1999 |
Appendix A: 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/QTABCONTROL | W | |
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 directory list | 0 |
FullExpand | SUB | Expand entire directory list (slow!) | 0 |
Reload | SUB | Re-read directories | 0 |
QScrollBar Events
Event | Type | Occurs when... | Params |
|
|
|
|
OnChange | VOID | Current directory changes | 0 |
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
|
|