Componente QDirTree (Diretórios em árvore)
QDirTree é um componente adaptado usado para fornecer aos usuários
uma lista parecida ao Windows Explorer. Ele absorve muitos recursos,
assim tenha cautela. Você normalmente não precisa de mais de um.
Demais componentes -
Click Barra lateral esquerda
Informações adicionais -
Click propriedades em azul
Propriedades de QDirTree
| Campo |
Tipo |
R/W+ |
Padrão |
Align
|
INTEGER |
RW |
alNone |
BorderStyle
|
INTEGER |
RW |
bsSingle |
Color
|
INTEGER |
RW |
|
Cursor
|
INTEGER |
RW |
crDefault |
Directory
|
STRING |
RW |
False |
Enabled
|
STRING |
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 |
+R = Leittura W = Escrita
Métodos de QDirTree
| Método |
Tipo |
Descrição |
Parâmetros |
AddDriveTypes
|
INTEGER |
Acescenta tipos de drives. |
drtUnknown |
DelDriveTypes
|
INTEGER |
Remove tipos de drives. |
drtUnknown |
FullCollapse
|
SUB |
Encolhe a lista de diretórios. |
0 |
FullExpand
|
SUB |
Expande a lista de diretórios (lento!). |
0 |
Reload
|
SUB |
Relê diretórios. |
0 |
Evento de QDirTree
| Evento |
Tipo |
Ocorre quando... |
Parâmetros |
OnChange
|
VOID |
Diretório Corrente mudou. |
0 |
QDirTree exemplo:
'' Uma Àrvore de Diretório como Windows Explorer.
'' Componente QDIRTREE cortesía de Markus Stephany.
$TYPECHECK ON
$Include "Rapidq.inc"
DECLARE SUB ChangeDirectory
CREATE Form AS QForm
Caption = "Directory Tree"
Center
CREATE DirTree AS QDirTree
InitialDir = CURDIR$
Width = Form.ClientWidth
Height = Form.ClientHeight
adddrivetypes = drtRemovable
'deldrivetypes = drtCDRom
fullCollapse
OnChange = ChangeDirectory
END CREATE
ShowModal
END CREATE
SUB ChangeDirectory
ShowMessage DirTree.Directory
END SUB
Sinta-se à vontade
para dar sugestões e fazer críticas construtivas.