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

Menu designer: Refactor TShadowMenu.AddImageListIcon more.

Browse Source 
git-svn-id: trunk@53082 -
This commit is contained in:
juha 2016-10-08 17:44:59 +00:00
parent 4336f9fe8c
commit 6625ac8e9c
1 changed files with 10 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
designer/menueditor.pp
View File

@ -201,7 +201,6 @@ type
procedure SetupPopupMenu;
procedure StopEditingCaption;
procedure UpdateButtonGlyphs(isInBar: boolean);
function UpdateImageIndex(anImageList: TCustomImageList): Boolean;
// user actions
procedure AddFromTemplate(Sender: TObject);
procedure AddImageListIcon(Sender: TObject);
@ -1447,35 +1446,25 @@ begin
end;
end;
function TShadowMenu.UpdateImageIndex(anImageList: TCustomImageList): Boolean;
var
idx: integer;
begin
idx := ChooseIconFromImageListDlg(anImageList);
if idx = -1 then Exit(False);
FSelectedMenuItem.ImageIndex := idx;
Result := True;
end;
procedure TShadowMenu.AddImageListIcon(Sender: TObject);
var
idx: integer;
selected: TShadowItem;
UpdOk: Boolean;
begin
if FSelectedMenuItem = nil then Exit;
UpdOk := False;
idx := -1;
selected:=SelectedShadowItem;
if (FMenu.Images <> nil) then
UpdOk := UpdateImageIndex(FMenu.Images)
idx := ChooseIconFromImageListDlg(FMenu.Images)
else if (selected.Level > 0)
and (FSelectedMenuItem.Parent.SubMenuImages <> nil) then
UpdOk := UpdateImageIndex(FSelectedMenuItem.Parent.SubMenuImages);
if UpdOk then begin
selected.Invalidate;
UpdateActionsEnabledness;
FEditorDesigner.PropertyEditorHook.RefreshPropertyValues;
FEditorDesigner.Modified;
end;
idx := ChooseIconFromImageListDlg(FSelectedMenuItem.Parent.SubMenuImages);
if idx = -1 then Exit;
FSelectedMenuItem.ImageIndex := idx;
selected.Invalidate;
UpdateActionsEnabledness;
FEditorDesigner.PropertyEditorHook.RefreshPropertyValues;
FEditorDesigner.Modified;
end;
procedure TShadowMenu.DeleteTemplate(Sender: TObject);