paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 15:37:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

Anchor Editor: Don't add (sub)controls with csNoDesignSelectable in ControlStyle. Issue #41314.

Browse Source
This commit is contained in:
Juha 2025-01-07 18:18:04 +02:00
parent ee8e7c13c8
commit f0a9cde060
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
designer/anchoreditor.pas
View File

@ -962,8 +962,7 @@ var
if AControl.Name='' then exit; if AControl.Name='' then exit;
// Skip selected siblings and return True. // Skip selected siblings and return True.
if SelectedControls.IndexOf(AControl)>=0 then exit(true); if SelectedControls.IndexOf(AControl)>=0 then exit(true);
// This can happen with combined controls like TLabeledEdit. if csNoDesignSelectable in AControl.ControlStyle then exit;
if Assigned(AControl.Owner) and (AControl.Owner<>AControl.Parent) then exit;
sl.Add(ControlToStr(AControl)); sl.Add(ControlToStr(AControl));
end; end;