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

LCL: Toolbar with menu, use MenuItem.Bitmap

Browse Source
This commit is contained in:
Martin 2025-01-04 13:07:06 +01:00
parent ed082bc3ec
commit 99e2074a2d
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/toolbar.inc
View File

@ -338,12 +338,18 @@ begin
tmpMenuButton.FMenuItemIndex:= i;
wglyph := 0;
tmpMenuButton.Images := nil;
if Assigned(FMenu.Images) and (FMenu.Items[i].ImageIndex >= 0) then
if Assigned(FMenu.Images) and (FMenu.Items[i].ImageIndex >= 0) then begin
if FMenu.Items[i].ImageIndex < FMenu.Images.Count then
begin
FMenu.Images.GetBitmap(FMenu.Items[i].ImageIndex, tmpMenuButton.Glyph);
wglyph := tmpMenuButton.Glyph.Width + 5;
end;
end
else
if Assigned(FMenu.Items[i].Bitmap) then begin
tmpMenuButton.Glyph := FMenu.Items[i].Bitmap;
wglyph := tmpMenuButton.Glyph.Width + 5;
end;
tmpMenuButton.OnClick := @MenuButtonClick;
tmpMenuButton.Parent := Self;
if FMenu.Items[i].Default then tmpMenuButton.Font.Style := [fsBold];
@ -401,6 +407,7 @@ var
SubMenuItemOut.Items[i].GlyphShowMode := SubMenuItemIn.Items[i].GlyphShowMode;
SubMenuItemOut.Items[i].GroupIndex := SubMenuItemIn.Items[i].GroupIndex;
SubMenuItemOut.Items[i].Hint := SubMenuItemIn.Items[i].Hint;
SubMenuItemOut.Items[i].Bitmap := SubMenuItemIn.Items[i].Bitmap;
SubMenuItemOut.Items[i].ImageIndex := SubMenuItemIn.Items[i].ImageIndex;
SubMenuItemOut.Items[i].RadioItem := SubMenuItemIn.Items[i].RadioItem;
SubMenuItemOut.Items[i].RightJustify := SubMenuItemIn.Items[i].RightJustify;