paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 03:39:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

designer: menu item align now enabled when one control is selected

Browse Source 
git-svn-id: trunk@15049 -
This commit is contained in:
mattias 2008-05-05 20:14:39 +00:00
parent b7b30e862a
commit 3864f806a5
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/identcompletiontool.pas
View File

@ -740,19 +740,15 @@ var
Item: TIdentifierListItem;
RootNode: TCodeTreeNode;
begin
DebugLn(['TIdentifierList.ToolTreeChange ',Tool.MainFilename,' ',NodesDeleting]);
if (Tool.Tree=nil) then exit;
RootNode:=Tool.Tree.Root;
DebugLn(['TIdentifierList.ToolTreeChange AAA1']);
if FIdentView.Count>0 then CTDumpStack;
if RootNode=nil then exit;
AVLNode:=FIdentView.FindLowest;
DebugLn(['TIdentifierList.ToolTreeChange AAA2 ',FIdentView.Count]);
while AVLNode<>nil do begin
Item:=TIdentifierListItem(AVLNode.Data);
if (Item.Node<>nil) and Item.Node.HasAsRoot(RootNode) then begin
Item.UnbindNode;
DebugLn(['TIdentifierList.ToolTreeChange ',Item.FNodeHash]);
end;
AVLNode:=FIdentView.FindSuccessor(AVLNode);
end;

2
designer/designer.pp
View File

@ -2812,7 +2812,7 @@ begin
AddComponentEditorMenuItems(PopupMenuComponentEditor,true);
DesignerMenuAlign.Enabled := MultiCompsAreSelected;
DesignerMenuAlign.Enabled := CompsAreSelected;
DesignerMenuMirrorHorizontal.Enabled := MultiCompsAreSelected;
DesignerMenuMirrorVertical.Enabled := MultiCompsAreSelected;
DesignerMenuScale.Enabled := CompsAreSelected and not OnlyNonVisualsAreSelected;