paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 15:39:30 +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

8
ide/componentlist.pas
View File

@ -281,9 +281,15 @@ begin
NewParent := GetSelectedDesignComponent;
// get parent component of neighboring component
if AAddNeighboring then
if AAddNeighboring and assigned(NewParent) then
begin
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
Exit;