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

IDE: designer menu: disable Align/Mirroring for single selections

Browse Source 
git-svn-id: trunk@12634 -
This commit is contained in:
mattias 2007-10-29 23:29:59 +00:00
parent e3da21c00b
commit 353a56f452
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
designer/designer.pp
View File

@ -2737,6 +2737,7 @@ var
LookupRootIsSelected,
OnlyNonVisualsAreSelected,
CompsAreSelected: boolean;
MultiCompsAreSelected: boolean;
OneControlSelected: Boolean;
SelectionVisible: Boolean;
@ -2796,12 +2797,13 @@ begin
CompsAreSelected:=ControlSelIsNotEmpty and SelectionVisible
and not LookupRootIsSelected;
OneControlSelected := ControlSelIsNotEmpty and ControlSelection[0].IsTControl;
MultiCompsAreSelected := CompsAreSelected and (ControlSelection.Count>1);
AddComponentEditorMenuItems(PopupMenuComponentEditor,true);
DesignerMenuAlign.Enabled := CompsAreSelected;
DesignerMenuMirrorHorizontal.Enabled := CompsAreSelected;
DesignerMenuMirrorVertical.Enabled := CompsAreSelected;
DesignerMenuAlign.Enabled := MultiCompsAreSelected;
DesignerMenuMirrorHorizontal.Enabled := MultiCompsAreSelected;
DesignerMenuMirrorVertical.Enabled := MultiCompsAreSelected;
DesignerMenuScale.Enabled := CompsAreSelected and not OnlyNonVisualsAreSelected;
DesignerMenuSize.Enabled := CompsAreSelected and not OnlyNonVisualsAreSelected;