如何将拇指图像添加到TRzGroup项目菜单

时间:2013-08-15 15:30:35

标签: delphi

我在TRzGroup的帮助下创建侧边栏图像。我已经使用标题Print Now创建了TRzGroup,并添加了名为Print的项目。我打算在菜单项的左侧添加一个小的打印机图标图像,如下图所示。怎么做?

object RzGroup2: TRzGroup
      Items = <
        item
          Caption = 'Print'
          ImageIndex = 4
          OnClick = RzGroup2Items0Click
        end>
      Opened = True
      OpenedHeight = 47
      DividerVisible = False
      SmallImages = ImageList1
      Special = True
      Caption = 'Print Now'
      ParentColor = False
    end

当代码从代码中的某处提取时,SmallImage属性被分配给ImageList1。我认为这是图像菜单。我在对象检查器中检查了SmallImages属性,但不确定如何创建ImageList1并分配给SmallImages。

enter image description here

1 个答案:

答案 0 :(得分:2)

从Delphi组件面板(Win32页面)中将TImageList放到表单上(或表单使用的数据模块中)。双击新TImageList,点击显示的Add上的ImageList Editor按钮,然后添加图片。关闭`ImageList Editor'。

返回表单。单击RzGroup2项,然后在SmallImages属性的Object Inspector中下拉列表,并选择您在第一步中添加的图像列表。

ImageIndex项的Print设置为您在上一步中分配给ImageList的{​​{1}}中的相应索引。