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

IDE: designer: enable Reset only if there are ancestors

Browse Source 
git-svn-id: trunk@59554 -
This commit is contained in:
mattias 2018-11-16 11:00:40 +00:00
parent 300fac7486
commit 34dbf4fe70
1 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
designer/designer.pp
View File

@ -3999,9 +3999,13 @@ var
OneControlSelected: Boolean;
SelectionVisible: Boolean;
SrcFile: TLazProjectFile;
UnitIsVirtual, DesignerCanCopy, HasChangeParentCandidates: Boolean;
UnitIsVirtual, DesignerCanCopy, HasChangeParentCandidates,
HasAncestorComponent: Boolean;
PersistentSelection: TPersistentSelectionList;
ChangeParentCandidates: TFPList;
i: Integer;
Item: TSelectedControl;
AComponent, AncestorComponent: TComponent;
begin
SrcFile:=LazarusIDE.GetProjectFileWithDesigner(Self);
ControlSelIsNotEmpty:=(Selection.Count>0)
@ -4017,9 +4021,23 @@ begin
PersistentSelection:=TPersistentSelectionList.Create;
try
Selection.GetSelection(PersistentSelection);
ChangeParentCandidates:=GetChangeParentCandidates(GlobalDesignHook,PersistentSelection);
HasChangeParentCandidates:=ChangeParentCandidates.Count>0;
FreeAndNil(ChangeParentCandidates);
HasAncestorComponent:=false;
for i:=0 to Selection.Count-1 do
begin
Item:=Selection[i];
AComponent:=TComponent(Item.Persistent);
AncestorComponent:=TheFormEditor.GetAncestorInstance(AComponent);
if AncestorComponent<>nil then
begin
HasAncestorComponent:=true;
break;
end;
end;
finally
FreeAndNil(PersistentSelection);
end;
@ -4031,7 +4049,7 @@ begin
DesignerMenuMirrorVertical.Enabled := MultiCompsAreSelected and not OnlyNonVisualsAreSelected;
DesignerMenuScale.Enabled := CompsAreSelected and not OnlyNonVisualsAreSelected;
DesignerMenuSize.Enabled := CompsAreSelected and not OnlyNonVisualsAreSelected;
DesignerMenuReset.Enabled := CompsAreSelected;
DesignerMenuReset.Enabled := HasAncestorComponent;
DesignerMenuAnchorEditor.Enabled := (FLookupRoot is TWinControl) and (TWinControl(FLookupRoot).ControlCount > 0);
DesignerMenuTabOrder.Enabled := (FLookupRoot is TWinControl) and (TWinControl(FLookupRoot).ControlCount > 0);