Fórum Treeview com CheckBox #329381
14/09/2006
0
Bom analizei as units do User control atras de informaçoes mas nao consegui descobrir como é feito esse lance de cada node ali do Treeview ser um CheckBox, independente do node ser root ou filho
como no Turbo delphi nao posso instalar componentes na IDE, estou criando na mão a rotina de privilégio para usuários. se alguem tiver alguma informaçao de como fazer Treeview com CheckBox, seria nao só para mim - como para muitos colegas - uma informaçao de grande valiosidade...
abraços a todos!!
Mahdak
Curtir tópico
+ 0Posts
14/09/2006
Delphi32
TreeView1.Images := ImageList1;
with TreeView1.Items.Add(´Teste´) do
begin
ImageIndex := 1;
end;
E nos eventos OnClick etc, ele vai trocando o Index da Imagem desse item. Se quiser a ImageList já com os ´frames´ da CheckBox, aqui vai:
ps.: basta selecionar esse texto todo, copiar, selecionar o form e dar Ctrl+V.
object ImageList1: TImageList
Left = 12
Top = 450
Bitmap = {
494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000001000000001002000000000000010
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400C6DEC600C6DE
C600C6DEC600C6DEC600C6DEC600C6DEC600C6DEC600C6DEC600C6DEC600C6DE
C600C6DEC6000000000000000000000000000000000084848400C6DEC600C6DE
C600C6DEC600C6DEC600C6DEC600C6DEC600C6DEC600C6DEC600C6DEC600C6DE
C600C6DEC6000000000000000000000000000000000084848400C6DEC600C6DE
C600C6DEC600C6DEC600C6DEC600C6DEC600C6DEC600C6DEC600C6DEC600C6DE
C600C6DEC6000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400848484000000
0000000000000000000000000000000000000000000000000000000000000000
0000C6DEC6000000000000000000000000000000000084848400848484000000
0000000000000000000000000000000000000000000000000000000000000000
0000C6DEC600000000000000000000000000000000008484840084848400C6C6
C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
C600C6DEC6000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400848484000000
0000000000000000000000000000000000000000000000000000000000000000
0000C6DEC6000000000000000000000000000000000084848400848484000000
0000000000000000000000000000000000000000000000000000000000000000
0000C6DEC600000000000000000000000000000000008484840084848400C6C6
C600C6C6C600C6C6C60084848400C6C6C600C6C6C600C6C6C600C6C6C600C6C6
C600C6DEC6000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400848484000000
0000000000000000000000000000000000000000000000000000000000000000
0000C6DEC6000000000000000000000000000000000084848400848484000000
0000000000000000000000000000000000000000000000000000000000000000
0000C6DEC600000000000000000000000000000000008484840084848400C6C6
C600C6C6C600848484008484840084848400C6C6C600C6C6C600C6C6C600C6C6
C600C6DEC6000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400848484000000
0000000000000000000000000000000000000000000000000000000000000000
0000C6DEC6000000000000000000000000000000000084848400848484000000
0000000000000000000000000000000000000000000000000000000000000000
0000C6DEC600000000000000000000000000000000008484840084848400C6C6
C6008484840084848400848484008484840084848400C6C6C600C6C6C600C6C6
C600C6DEC6000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400848484000000
0000000000000000000000000000000000000000000000000000000000000000
0000C6DEC6000000000000000000000000000000000084848400848484000000
0000000000000000000000000000000000000000000000000000000000000000
0000C6DEC600000000000000000000000000000000008484840084848400C6C6
C6008484840084848400C6C6C600848484008484840084848400C6C6C600C6C6
C600C6DEC6000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400848484000000
0000000000000000000000000000000000000000000000000000000000000000
0000C6DEC6000000000000000000000000000000000084848400848484000000
0000000000000000000000000000000000000000000000000000000000000000
0000C6DEC600000000000000000000000000000000008484840084848400C6C6
C60084848400C6C6C600C6C6C600C6C6C600848484008484840084848400C6C6
C600C6DEC6000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400848484000000
0000000000000000000000000000000000000000000000000000000000000000
0000C6DEC6000000000000000000000000000000000084848400848484000000
0000000000000000000000000000000000000000000000000000000000000000
0000C6DEC600000000000000000000000000000000008484840084848400C6C6
C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C6008484840084848400C6C6
C600C6DEC6000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400848484000000
0000000000000000000000000000000000000000000000000000000000000000
0000C6DEC6000000000000000000000000000000000084848400848484000000
0000000000000000000000000000000000000000000000000000000000000000
0000C6DEC600000000000000000000000000000000008484840084848400C6C6
C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C60084848400C6C6
C600C6DEC6000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400848484000000
0000000000000000000000000000000000000000000000000000000000000000
0000C6DEC6000000000000000000000000000000000084848400848484000000
0000000000000000000000000000000000000000000000000000000000000000
0000C6DEC600000000000000000000000000000000008484840084848400C6C6
C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
C600C6DEC6000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400848484008484
8400848484008484840084848400848484008484840084848400848484008484
8400C6DEC6000000000000000000000000000000000084848400848484008484
8400848484008484840084848400848484008484840084848400848484008484
8400C6DEC6000000000000000000000000000000000084848400848484008484
8400848484008484840084848400848484008484840084848400848484008484
8400C6DEC6000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400848484008484
8400848484008484840084848400848484008484840084848400848484008484
8400848484000000000000000000000000000000000084848400848484008484
8400848484008484840084848400848484008484840084848400848484008484
8400848484000000000000000000000000000000000084848400848484008484
8400848484008484840084848400848484008484840084848400848484008484
8400848484000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000424D3E000000000000003E000000
2800000040000000100000000100010000000000800000000000000000000000
000000000000000000000000FFFFFF00FFFFFFFFFFFF0000FFFFFFFFFFFF0000
FFFFFFFFFFFF000080078007800700009FF79FF7800700009FF79DF780070000
9FF798F7800700009FF79077800700009FF79237800700009FF7971780070000
9FF79F97800700009FF79FD7800700009FF79FF7800700008007800780070000
8007800780070000FFFFFFFFFFFF000000000000000000000000000000000000
000000000000}
end
t+!
Gostei + 0
15/09/2006
Mahdak
se alguem puder dar uma mao, o código ta logo abaixo:
procedure TCadLogin.TVClick(Sender: TObject); var i: integer; Nodo : TTreenode; begin Nodo := TV.Selected; for i:= 0 to (TV.Items.Count - 1) do begin if TV.Items[i].Text = TV.Selected.Text then begin if TV.Items[i].ImageIndex = 0 then TV.Items[i].ImageIndex := 1 else TV.Items[i].ImageIndex := 0; TV.Select ( Nodo ); // retorna o foco para o node selecionado end; end; end;
Gostei + 0
15/09/2006
Delphi32
TreeView1.Selected.ImageIndex := 1; //ou 2
Não entendi por que está fazendo esse for...
t+!
Gostei + 0
15/09/2006
Mahdak
desculpe amigo, com o for eu só estava fazendo de forma complicada o que voce resumiu em uma linha, porem com o seu codigo acontece o mesmo do que com o meu... e agora?
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)