From 75349695d6bc2b2ba87c5f014309b0d746070cf1 Mon Sep 17 00:00:00 2001 From: mattias Date: Wed, 20 Apr 2016 09:47:03 +0000 Subject: [PATCH] IDE: designer: menu editor: less overhead git-svn-id: trunk@52225 - --- designer/menueditor.pp | 50 +++++++++++++++++++++--------------------- 1 file changed, 25 insertions(+), 25 deletions(-) diff --git a/designer/menueditor.pp b/designer/menueditor.pp index 778e0c6f96..a93ca793fd 100644 --- a/designer/menueditor.pp +++ b/designer/menueditor.pp @@ -1864,33 +1864,33 @@ begin FInitialSelectedMenuItem := aSelect; SetInitialBounds(0, 0, aWidth, aHeight); Name := 'ShadowMenu'; - FItemsPopupMenu := TPopupMenu.Create(Self); - FItemsPopupMenu.Name := 'ItemsPopupMenu'; - FActionList := TActionList.Create(Self); - SetupPopupMenu; - FAddItemFake := TAddSiblingFake.Create(Self); - FAddItemFake.OnClick := @AddItemAfter; - FAddItemFake.Caption := lisMenuEditorAddMenuItem; - FAddItemFake.Name := 'AddItemFake'; - FAddSubmenuFake := TAddSubmenuFake.Create(Self); - FAddSubmenuFake.OnClick := @AddSubMenu; - FAddSubmenuFake.Caption := lisMenuEditorAddSubmenu; - FAddSubmenuFake.Name := 'AddSubmenuFake'; - FAddFirstItemFake := TAddFirstFake.Create(Self); - FAddFirstItemFake.OnClick := @AddFirstMenu; - FAddFirstItemFake.Caption := lisMenuEditorAddMenuItem; - FAddFirstItemFake.Name := 'AddFirstItemFake'; - FAddFirstItemFake.Left := Popup_Origin.x; - FAddFirstItemFake.Top := Popup_Origin.y; - FInPlaceEditor := TEdit.Create(Self); - FInPlaceEditor.OnKeyDown := @InPlaceEditKeyDown; - FInPlaceEditor.Visible := False; - ConnectSpeedButtonOnClickMethods; - GlobalDesignHook.AddHandlerObjectPropertyChanged(@OnObjectPropertyChanged); - GlobalDesignHook.AddHandlerModified(@OnDesignerModified); - GlobalDesignHook.AddHandlerRefreshPropertyValues(@OnDesignerRefreshPropertyValues); DisableAutoSizing; try + FItemsPopupMenu := TPopupMenu.Create(Self); + FItemsPopupMenu.Name := 'ItemsPopupMenu'; + FActionList := TActionList.Create(Self); + SetupPopupMenu; + FAddItemFake := TAddSiblingFake.Create(Self); + FAddItemFake.OnClick := @AddItemAfter; + FAddItemFake.Caption := lisMenuEditorAddMenuItem; + FAddItemFake.Name := 'AddItemFake'; + FAddSubmenuFake := TAddSubmenuFake.Create(Self); + FAddSubmenuFake.OnClick := @AddSubMenu; + FAddSubmenuFake.Caption := lisMenuEditorAddSubmenu; + FAddSubmenuFake.Name := 'AddSubmenuFake'; + FAddFirstItemFake := TAddFirstFake.Create(Self); + FAddFirstItemFake.OnClick := @AddFirstMenu; + FAddFirstItemFake.Caption := lisMenuEditorAddMenuItem; + FAddFirstItemFake.Name := 'AddFirstItemFake'; + FAddFirstItemFake.Left := Popup_Origin.x; + FAddFirstItemFake.Top := Popup_Origin.y; + FInPlaceEditor := TEdit.Create(Self); + FInPlaceEditor.OnKeyDown := @InPlaceEditKeyDown; + FInPlaceEditor.Visible := False; + ConnectSpeedButtonOnClickMethods; + GlobalDesignHook.AddHandlerObjectPropertyChanged(@OnObjectPropertyChanged); + GlobalDesignHook.AddHandlerModified(@OnDesignerModified); + GlobalDesignHook.AddHandlerRefreshPropertyValues(@OnDesignerRefreshPropertyValues); AutoSize := False; Color := clBtnFace; BorderStyle := bsNone;