opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 10:02:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

Focus previous privilege tree node after deletion. Fixes issue #853.

Browse Source
This commit is contained in:
Ansgar Becker
2010-06-13 14:39:56 +00:00
parent 08e40a62d6
commit 15d73678c6
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
source/usermanager.pas
View File

@ -508,14 +508,17 @@ end;
procedure TUserManagerForm.btnDeleteObjectClick(Sender: TObject); procedure TUserManagerForm.btnDeleteObjectClick(Sender: TObject);
var var
Node: PVirtualNode; Node: PVirtualNode;
FocusIndex: Cardinal;
begin begin
case treeObjects.GetNodeLevel(treeObjects.FocusedNode) of case treeObjects.GetNodeLevel(treeObjects.FocusedNode) of
0: Node := treeObjects.FocusedNode; 0: Node := treeObjects.FocusedNode;
1: Node := treeObjects.FocusedNode.Parent; 1: Node := treeObjects.FocusedNode.Parent;
else Raise Exception.Create(SUnhandledTreeLevel); else Raise Exception.Create(SUnhandledTreeLevel);
end; end;
FocusIndex := Node.Index;
Users[listUsers.FocusedNode.Index].Privileges.DeletePrivilege(Node.Index); Users[listUsers.FocusedNode.Index].Privileges.DeletePrivilege(Node.Index);
treeObjects.ReInitNode(Node, True); treeObjects.ReInitNode(Node, True);
SelectNode(treeObjects, FocusIndex-1);
treeObjects.Invalidate; treeObjects.Invalidate;
end; end;