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

IDE: Fix ComponentList adding comp with [Ctrl+Enter] on an empty form. Issue #40245, patch by n7800.

Browse Source
This commit is contained in:
Juha 2023-05-09 11:24:50 +03:00
parent 2d059ffef4
commit e36a1b4633
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/componentlist.pas
View File

@ -281,9 +281,15 @@ begin
NewParent := GetSelectedDesignComponent; NewParent := GetSelectedDesignComponent;
// get parent component of neighboring component // get parent component of neighboring component
if AAddNeighboring then if AAddNeighboring and assigned(NewParent) then
if NewParent.HasParent then begin
NewParent := NewParent.GetParentComponent; if (not (NewParent is TCustomForm)) and
(not (NewParent is TCustomFrame)) then
begin
if NewParent.HasParent then
NewParent := NewParent.GetParentComponent;
end;
end;
if NewParent = nil then if NewParent = nil then
Exit; Exit;