paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 23:16:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed selection

Browse Source 
git-svn-id: trunk@3348 -
This commit is contained in:
lazarus 2002-09-15 13:00:15 +00:00
parent ae98336c93
commit deecb51f4b
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/unitdependencies.pas
View File

@ -606,6 +606,7 @@ begin
TreeNode.Data:=Self; TreeNode.Data:=Self;
TreeNode.HasChildren:=HasChildren; TreeNode.HasChildren:=HasChildren;
TreeNode.ImageIndex:=ImageIndex; TreeNode.ImageIndex:=ImageIndex;
TreeNode.SelectedIndex:=ImageIndex;
end; end;
end; end;
@ -694,6 +695,7 @@ begin
FSourceType:=ASrcType; FSourceType:=ASrcType;
if TreeNode<>nil then begin if TreeNode<>nil then begin
TreeNode.ImageIndex:=ImageIndex; TreeNode.ImageIndex:=ImageIndex;
TreeNode.SelectedIndex:=ImageIndex;
end; end;
end; end;

5
lcl/include/treeview.inc
View File

@ -3316,9 +3316,14 @@ begin
end; end;
procedure TCustomTreeView.SetSelection(Value: TTreeNode); procedure TCustomTreeView.SetSelection(Value: TTreeNode);
var OldNode: TTreeNode;
begin begin
if FSelectedNode=Value then exit; if FSelectedNode=Value then exit;
OldNode:=FSelectedNode;
FSelectedNode:=Value; FSelectedNode:=Value;
if OldNode<>nil then begin
OldNode.Selected:=false;
end;
if Value <> nil then begin if Value <> nil then begin
Value.Selected := True; Value.Selected := True;
Value.MakeVisible; Value.MakeVisible;