View Issue Details

IDProjectCategoryView StatusLast Update
0003019JEDI VCL00 JVCL Componentspublic2005-06-12 07:16
ReporteranonymousAssigned Toobones 
PrioritynormalSeverityminorReproducibilityalways
Status resolvedResolutionfixed 
Product Version3.00 
Target VersionFixed in Version3.10 
Summary0003019: TJvMenus SubmenuImages property of TMenuItem is ignored
DescriptionThe painters do not take account of the SubmenuImages property of TMenuItem. Is this by design?
TagsNo tags attached.

Activities

obones

2005-06-11 03:01

administrator   ~0007421

Yes. I'll investigate if it is possible to take it into account.

obones

2005-06-11 03:13

administrator   ~0007422

This is now in CVS, the demo has been updated as well.

anonymous

2005-06-11 21:09

viewer   ~0007428

This fix uses the SubmenuImages only for the imediate children. Notice the VCL handling below:

function TMenuItem.GetImageList: TCustomImageList;
var
  LItem: TMenuItem;
  LMenu: TMenu;
begin
  Result := nil;
  LItem := Parent;
  while (LItem <> nil) and (LItem.SubMenuImages = nil) do
    LItem := LItem.Parent;
  if LItem <> nil then
    Result := LItem.SubMenuImages
  else
  begin
    LMenu := GetParentMenu;
    if LMenu <> nil then
      Result := LMenu.Images;
  end;
end;

obones

2005-06-12 07:16

administrator   ~0007433

CVS version now has a similar solution

Issue History

Date Modified Username Field Change
2005-06-04 17:01 anonymous New Issue
2005-06-11 03:01 obones Note Added: 0007421
2005-06-11 03:05 obones Status new => acknowledged
2005-06-11 03:13 obones Status acknowledged => resolved
2005-06-11 03:13 obones Resolution open => fixed
2005-06-11 03:13 obones Assigned To => obones
2005-06-11 03:13 obones Note Added: 0007422
2005-06-11 21:09 anonymous Status resolved => feedback
2005-06-11 21:09 anonymous Resolution fixed => reopened
2005-06-11 21:09 anonymous Note Added: 0007428
2005-06-12 07:16 obones Status feedback => resolved
2005-06-12 07:16 obones Resolution reopened => fixed
2005-06-12 07:16 obones Note Added: 0007433