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
|
|
搜索
论坛
Home
回顶部
g.yi.org Hits:0 Last modified:2015-12-25 19:42:33
