paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 00:16:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

Menu designer: formatting.

Browse Source 
git-svn-id: trunk@54374 -
This commit is contained in:
juha 2017-03-08 20:33:56 +00:00
parent 13a7fe6856
commit b77306c3df
2 changed files with 28 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
designer/menueditor.pp
View File

@ -1585,7 +1585,7 @@ begin
if FSelectedMenuItem = nil then if FSelectedMenuItem = nil then
Exit; Exit;
comp:=GlobalDesignHook.GetComponent(FSelectedMenuItem.Name); comp:=GlobalDesignHook.GetComponent(FSelectedMenuItem.Name);
if (comp<>nil) and (comp is TMenuItem) then if comp is TMenuItem then
begin begin
selBox:=SelectedShadowBox; selBox:=SelectedShadowBox;
if (selBox.LastRIValue <> mi.RadioItem) then if (selBox.LastRIValue <> mi.RadioItem) then
@ -1597,8 +1597,7 @@ function TShadowMenu.OnClickIsAssigned(aMI: TMenuItem): boolean;
begin begin
if (aMI = nil) then if (aMI = nil) then
Exit(False); Exit(False);
Result:=(FEditorDesigner.PropertyEditorHook.GetMethodName Result:=(FEditorDesigner.PropertyEditorHook.GetMethodName(GetMethodProp(aMI, 'OnClick'), aMI) <> '');
(GetMethodProp(aMI, 'OnClick'), aMI) <> '');
end; end;
procedure TShadowMenu.Paint; procedure TShadowMenu.Paint;