paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-10 07:30:16 +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; Item: TIdentifierListItem;
RootNode: TCodeTreeNode; RootNode: TCodeTreeNode;
begin begin
DebugLn(['TIdentifierList.ToolTreeChange ',Tool.MainFilename,' ',NodesDeleting]);
if (Tool.Tree=nil) then exit; if (Tool.Tree=nil) then exit;
RootNode:=Tool.Tree.Root; RootNode:=Tool.Tree.Root;
DebugLn(['TIdentifierList.ToolTreeChange AAA1']);
if FIdentView.Count>0 then CTDumpStack; if FIdentView.Count>0 then CTDumpStack;
if RootNode=nil then exit; if RootNode=nil then exit;
AVLNode:=FIdentView.FindLowest; AVLNode:=FIdentView.FindLowest;
DebugLn(['TIdentifierList.ToolTreeChange AAA2 ',FIdentView.Count]);
while AVLNode<>nil do begin while AVLNode<>nil do begin
Item:=TIdentifierListItem(AVLNode.Data); Item:=TIdentifierListItem(AVLNode.Data);
if (Item.Node<>nil) and Item.Node.HasAsRoot(RootNode) then begin if (Item.Node<>nil) and Item.Node.HasAsRoot(RootNode) then begin
Item.UnbindNode; Item.UnbindNode;
DebugLn(['TIdentifierList.ToolTreeChange ',Item.FNodeHash]);
end; end;
AVLNode:=FIdentView.FindSuccessor(AVLNode); AVLNode:=FIdentView.FindSuccessor(AVLNode);
end; end;

2
designer/designer.pp
View File

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