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

MenuDesigner: Put BeginUpdate / EndUpdate into better places.

Browse Source 
git-svn-id: trunk@52264 -
This commit is contained in:
juha 2016-05-02 11:01:56 +00:00
parent 20bdf22ce4
commit f155e60e36
2 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
designer/menueditor.pp
View File

@ -664,16 +664,13 @@ procedure TShadowMenu.AddOnClick(Sender: TObject);
var
compEditor: TDefaultComponentEditor;
begin
if (FSelectedMenuItem <> nil) then begin
FDesigner.FGui.BeginUpdate;
try
compEditor:=TDefaultComponentEditor.Create(FSelectedMenuItem, FEditorDesigner);
compEditor.Edit;
UpdateSelectedItemInfo;
finally
compEditor.Free;
FDesigner.FGui.EndUpdate;
end;
if FSelectedMenuItem = nil then Exit;
compEditor:=TDefaultComponentEditor.Create(FSelectedMenuItem, FEditorDesigner);
try
compEditor.Edit;
UpdateSelectedItemInfo;
finally
compEditor.Free;
end;
end;

2
designer/menueditorform.pas
View File

@ -669,6 +669,7 @@ var
s: string;
method: TMethod;
begin
BeginUpdate;
if aMenuItem = nil then
begin
Caption:=Format(lisMenuEditorEditingSSNoMenuitemSelected,
@ -686,6 +687,7 @@ begin
ButtonsGroupBox.Enabled:=True;
UpdateSubmenuGroupBox(aMenuItem, aShadowBox, aShadowBox.Level=0);
end;
EndUpdate;
end;
{ TRadioIcon }