Alterar imagem do item do treeview
Pessoal, boa tarde. Tenho um treeview para cadastro de perfil e as configurações desse perfil onde tenho por exemplo:
[+]ADMINISTRATIVO
...Backup(Imagem de permissao)
...Perfil(Imagem de nao permissao)
[+]CADASTROS
...Clientes(Imagem de nao permissao)
...Fornecedores(Imagem de permissao)
Ao lado de cada item do nó tem a imagem correspondente de permissão e não permissão. Até aqui esta funcionando perfeito, agora gostaria que quando desse duplo clique em um item, por exemplo, Backup trocasse a imagem para a
imagem de não permissão e visse versa. Estou tentando com o seguinte codigo:
procedure TFormCadPerfil.TvwTipsDblClick(Sender: TObject);
var
i : integer;
begin
i := TvwTips.Selected.Index;
TvwTips.Items.BeginUpdate;
if TvwTips.Items[i].ImageIndex = 0 then
begin
TvwTips.Items[i].ImageIndex := 1;
TvwTips.Items[i].StateIndex := 1;
end
else
begin
TvwTips.Items[i].ImageIndex := 0;
TvwTips.Items[i].StateIndex := 0;
end;
TvwTips.Items.EndUpdate;
end;
Valeu.
[+]ADMINISTRATIVO
...Backup(Imagem de permissao)
...Perfil(Imagem de nao permissao)
[+]CADASTROS
...Clientes(Imagem de nao permissao)
...Fornecedores(Imagem de permissao)
Ao lado de cada item do nó tem a imagem correspondente de permissão e não permissão. Até aqui esta funcionando perfeito, agora gostaria que quando desse duplo clique em um item, por exemplo, Backup trocasse a imagem para a
imagem de não permissão e visse versa. Estou tentando com o seguinte codigo:
procedure TFormCadPerfil.TvwTipsDblClick(Sender: TObject);
var
i : integer;
begin
i := TvwTips.Selected.Index;
TvwTips.Items.BeginUpdate;
if TvwTips.Items[i].ImageIndex = 0 then
begin
TvwTips.Items[i].ImageIndex := 1;
TvwTips.Items[i].StateIndex := 1;
end
else
begin
TvwTips.Items[i].ImageIndex := 0;
TvwTips.Items[i].StateIndex := 0;
end;
TvwTips.Items.EndUpdate;
end;
Valeu.
Jordelino Santos
Curtidas 0