Erro ao expandir o nível das opções de permissão

[Julio Cesar Mazoni]

Boa tarde!

Estou usando o usercontrol no delphi berlin 10.1.2 e tenho observado um situação que ao clicar para expandir a árvore todas as opções já selecionadas são desmarcadas do grupo clicado, isso tem ocasionado um transtorno com clientes.
Uma solução imediata foi expandir toda a árvore.
Não consegui identificar a solução correta.
Por acaso vocês tem observado isso?
Numa versão antiga com delphi 7 isso não ocorria.

att,
Júlio César Mazoni
juliomazoni@yahoo.com.br

[Giovani Da Cruz]

Verdade, outros usuário comentaram a mesma situação.

Precisamos encontrar uma forma para evitar isso.

[Rodrigo Papani]

Olá… estou me deparando com este problema, conseguiu alguma solução ?

[Giovani Da Cruz]

Boa noite.

Sim, a principio foram realizadas modificações que corrigiram o problema.

Se puder, atualize os fontes e reinstale o componente.

Qualquer coisa, poste aqui novamente.

[mariodosreis]

A documentação dizia que esse erro havia sido corrigido, mas também eu encontro o mesmo erro em todas as versões menores e maiores que o XE7.

[Giovani Da Cruz]

Recentemente foram aplicados correções neste sentido.

E nos meus testes, está ok está parte da árvore.

Inclusive se clicar com o direito, agora há opções para
expandir e contrair a árvore.

Tente atualizar seus fontes e reinstalar pelo instalador.

Link do repositório: https://github.com/infussolucoes/usercontrol-sd

[LucianoRM]

Olá,

Tive esse mesmo problema mesmo baixando os fontes de https://github.com/infussolucoes/usercontrol-sd no começo desse ano (2019).
Resolvi o problema modificando a unit UserPermis_U
adicionando os eventos TreeMenuExpanding e TreeMenuCollapsing, no componente TreeMenu, com a seguinte linha: FChangingTree := true;

Essa alteração evita que no evento abaixo (disparado pelo OnClick do TreeMenu) marque ou desmarque ao expandir ou contrair os items.

procedure TUserPermis.ClickTreeView(Sender: TObject; Event: TTreeViewEvent);
var
Node: TTreeNode;
begin
if not FChangingTree then
begin
Node := GetNode(TTreeView(Sender));
if ((Node <> nil) and (Node = TTreeView(Sender).Selected)) then
Event(True);
end;
end;

Abraços,

Luciano RM

[Giovani Da Cruz]

Obrigado @Luciano pelo retorno.

[Autor]

Posts