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

Anchor Editor: Don't add "SubLabel:TBoundLabel" when using TLabeledEdit. Issue #41314.

Browse Source
This commit is contained in:
Juha 2025-01-06 14:02:11 +02:00
parent 1964eee87a
commit d248079f4e
2 changed files with 18 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/anchoreditor.lfm
View File

@ -9,12 +9,12 @@ object AnchorDesigner: TAnchorDesigner
ClientWidth = 544
Constraints.MinHeight = 361
Constraints.MinWidth = 544
LCLVersion = '4.99.0.0'
OnActivate = FormActivate
OnCreate = FormCreate
OnDeactivate = FormDeactivate
OnDestroy = FormDestroy
OnShow = FormShow
LCLVersion = '2.1.0.0'
object BorderSpaceGroupBox: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter

40
designer/anchoreditor.pas
View File

@ -948,32 +948,29 @@ end;
procedure TAnchorDesigner.FillComboBoxWithSiblings(AComboBox: TComboBox);
var
sl: TStringListUTF8Fast;
i: Integer;
CurControl: TControl;
j: Integer;
Sibling: TControl;
i, j: Integer;
CurControl, Sibling: TControl;
SelectedControls: TList;
OldText: String;
Kind: TAnchorKind;
HasSelectedSiblings: Boolean;
HasSelSiblings: Boolean;
function AddSibling(AControl: TControl): boolean;
var
NewControlStr: String;
function AddSiblingSkipSelected(AControl: TControl): boolean;
// Return True if AControl was selected and thus skipped.
begin
Result:=false;
if AControl.Name='' then exit;
if SelectedControls.IndexOf(AControl)>=0 then exit;
NewControlStr:=ControlToStr(AControl);
if sl.IndexOf(NewControlStr)>=0 then exit;
sl.Add(NewControlStr);
Result:=true;
// Skip selected siblings and return True.
if SelectedControls.IndexOf(AControl)>=0 then exit(true);
// This can happen with combined controls like TLabeledEdit.
if Assigned(AControl.Owner) and (AControl.Owner<>AControl.Parent) then exit;
sl.Add(ControlToStr(AControl));
end;
begin
sl:=TStringListUTF8Fast.Create;
sl:=TStringListUTF8Fast.Create; // By default sl.Duplicates:=dupIgnore
sl.Add(AnchorDesignerNoSiblingText);
HasSelectedSiblings:=false;
HasSelSiblings:=false;
SelectedControls:=GetSelectedControls;
if SelectedControls<>nil then begin
for i:=0 to SelectedControls.Count-1 do begin
@ -982,21 +979,18 @@ begin
if (CurControl.Parent<>nil)
and not (csDesignInstance in CurControl.ComponentState)
then begin
AddSibling(CurControl.Parent);
AddSiblingSkipSelected(CurControl.Parent);
for j:=0 to CurControl.Parent.ControlCount-1 do begin
Sibling:=CurControl.Parent.Controls[j];
if (Sibling<>CurControl) then begin
AddSibling(Sibling);
if SelectedControls.IndexOf(Sibling)>=0 then
HasSelectedSiblings:=true;
end;
if (Sibling<>CurControl) and AddSiblingSkipSelected(Sibling) then
HasSelSiblings:=true;
end;
end;
break;
end;
end;
end;
if HasSelectedSiblings then
if HasSelSiblings then
for Kind:=akTop to akBottom do
sl.add(AnchorDesignerNeighbourText(Kind));
OldText:=AComboBox.Text;