paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 22:20:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 49289 #6b5589a1c7 from trunk:

Browse Source 
IDE: Don't select the first component in ComponentList at startup. Issue #28260, patch from Ondrej Pokorny
........

git-svn-id: branches/fixes_1_4@49298 -
This commit is contained in:
maxim 2015-06-09 00:02:46 +00:00
parent c89fc75712
commit 402af0b195
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/componentlist.pas
View File

@ -130,8 +130,6 @@ begin
if Assigned(IDEComponentPalette) then if Assigned(IDEComponentPalette) then
begin begin
UpdateComponentSelection; UpdateComponentSelection;
with ListTree do
Selected := Items.GetFirstNode;
TreeFilterEd.InvalidateFilter; TreeFilterEd.InvalidateFilter;
IDEComponentPalette.AddHandlerComponentAdded(@ComponentWasAdded); IDEComponentPalette.AddHandlerComponentAdded(@ComponentWasAdded);
end; end;
@ -160,6 +158,13 @@ begin
end end
else else
PageControl.AnchorSideBottom.Side := asrBottom; PageControl.AnchorSideBottom.Side := asrBottom;
if not Assigned(Parent) then//only in undocked IDE
begin
if TreeFilterEd.CanFocus then
TreeFilterEd.SetFocus;
TreeFilterEd.SelectAll;
end;
end; end;
procedure TComponentListForm.FormActivate(Sender: TObject); procedure TComponentListForm.FormActivate(Sender: TObject);