Olá Flávio, Infelizmente estou deixando de usar este maravilhoso componente, é que no momento não possuo de tempo para ficar vasculhando a internet e reaprender a usa-lo, pois preciso terminar minha monografia... o tempo ruge... com certeza na segunda versão do meu sistema, quem sabe, eu consiga implementar esta TreeView...
Obrigado pelos esclarecimentos, foi de grande valia.. []s Fellipe H. Em 23/06/06, Flávio Granero Maltempe <[EMAIL PROTECTED]> escreveu: > > Ola Felipe, nunca tive esse problema de images ai, setando a propriedade > "Images" na treeview. Tenta achar uma opcaum em Options que pode estar > fazendo isso.. > uma coisa que eu uso e senti falta eh a linha > > if Data.ChildCount > 0 then > Node.States := Node.States + [vsHasChildren]; > > no evento onInitNode... acho que deve ser necessario.. > Mas o resto esta como eu faco.. > > Proveitando para responder o Hayalon, a VT pode ser baixada em > http://www.delphi-gems.com/VirtualTreeview/ > > Abraco > > Flavio Maltempe > www.speedcase.com.br > > > ----- Original Message ----- > From: Fellipe Henrique > To: delphi-br@yahoogrupos.com.br > Sent: Thursday, June 22, 2006 11:03 AM > Subject: Re: [delphi-br] VirtualTreeView - Alguem usa? > > > Cara, consegui fazer.. coloquei os 8 elementos lá... segue como eu fiz: > > > type > PtvItensPrincipais = ^TtvItensPrincipais; > TtvItensPrincipais = record > Texto: string[30]; > ImageIdx: integer; > end; > > > procedure TFrmPrincipal.tvProjetoInitNode(Sender: TBaseVirtualTree; > ParentNode, Node: PVirtualNode; > var InitialStates: TVirtualNodeInitStates); > var > DadosPri: PtvItensPrincipais; > Level: integer; > begin > > //============================================================================== > //= Monto a estrutura da TreeList > > //============================================================================== > > DadosPri := Sender.GetNodeData(Node); > if not Assigned(DadosPri) then Exit; > > Level := Sender.GetNodeLevel(Node); > > with DadosPri^ do > begin > if Level = 0 then > begin > Texto := 'Projeto de TESTE'; > ImageIdx := 0; > end > else > begin > case Node.Index of > 0: > begin > Texto := 'Propriedades do Projeto'; > ImageIdx := 8; > end; > 1: > begin > Texto := 'Requisitos'; > ImageIdx := 1; > end; > 2: > begin > Texto := 'Erros (Bugs)'; > ImageIdx := 10; > end; > 3: > begin > Texto := 'Validações'; > ImageIdx := 6; > end; > 4: > begin > Texto := 'Fórum de Discussão'; > ImageIdx := 5; > end; > 5: > begin > Texto := 'Rastreabilidade'; > ImageIdx := 3; > end; > 6: > begin > Texto := 'Histórico'; > ImageIdx := 2; > end; > 7: > begin > Texto := 'Aprovações'; > ImageIdx := 7; > end; > end; > end; > end; > end; > > > procedure TFrmPrincipal.tvProjetoGetText(Sender: TBaseVirtualTree; > Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; > var CellText: WideString); > var > DadosPri: PtvItensPrincipais; > begin > DadosPri := Sender.GetNodeData(Node); > if Assigned(DadosPri) then > with DadosPri^ do > begin > CellText := Texto; > end; > end; > > procedure TFrmPrincipal.tvProjetoGetImageIndex(Sender: TBaseVirtualTree; > Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex; > var Ghosted: Boolean; var ImageIndex: Integer); > var > DadosPri: PtvItensPrincipais; > begin > DadosPri := Sender.GetNodeData(Node); > ImageIndex := DadosPri.ImageIdx; > end; > > > > Só que tem um probleminha.. ao fazer isso, blz.. jogou lá meus 8 filhos.. > com as imagens blz.. soh que simplemente nao sei porque algumas imagens, a > imagem do root fica sobreposta a ela.. ou seja... alguns filhos ficam com > a > imagem perfeita, outros ficam com as imagens deles, mas com a do root em > cima... > > Estranho... > > > To fazendo algo errado? > > > []s > > > [As partes desta mensagem que não continham texto foram removidas] > > > > [As partes desta mensagem que não continham texto foram removidas] > > > -- _________________________________ Fellipe Henrique [EMAIL PROTECTED] Borland Developer Studio 2006 Certified "Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram." (Guillaume Apollinaire) [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html