Delphi:功能区快速访问工具栏-小图像不';我没有出现
我不知道为什么,但是使用Delphi2009的ribbon控件,快速访问工具栏中的小图像不会显示 我有一个图像列表,图像设置为16x16像素,当我使用它们作为常规图像列表时,它不起作用,只显示菜单标题。如果我切换到使用大图像列表,它会工作,但会添加额外的填充,看起来很糟糕Delphi:功能区快速访问工具栏-小图像不';我没有出现,delphi,delphi-2009,ribbon,Delphi,Delphi 2009,Ribbon,我不知道为什么,但是使用Delphi2009的ribbon控件,快速访问工具栏中的小图像不会显示 我有一个图像列表,图像设置为16x16像素,当我使用它们作为常规图像列表时,它不起作用,只显示菜单标题。如果我切换到使用大图像列表,它会工作,但会添加额外的填充,看起来很糟糕 知道发生了什么吗?需要配置众多选项中的哪一个才能使此功能按预期运行 在Delphi 2010和XE中,步骤如下: 将TRibbon、ImageList和ActionManager添加到空白表单中。将ImageList链接到A
知道发生了什么吗?需要配置众多选项中的哪一个才能使此功能按预期运行 在Delphi 2010和XE中,步骤如下:
object Form5: TForm5
Left = 0
Top = 0
Caption = 'Form5'
ClientHeight = 337
ClientWidth = 527
Color = clBtnFace
DoubleBuffered = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
GlassFrame.Enabled = True
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Ribbon1: TRibbon
Left = 0
Top = 0
Width = 527
Height = 143
ActionManager = ActionManager1
ApplicationMenu.Menu = RibbonApplicationMenuBar1
Caption = 'Ribbon1'
QuickAccessToolbar.ActionBar = RibbonQuickAccessToolbar1
ExplicitLeft = 272
ExplicitTop = 120
ExplicitWidth = 0
StyleName = 'Ribbon - Luna'
object RibbonQuickAccessToolbar1: TRibbonQuickAccessToolbar
Left = 49
Top = 1
Width = 99
Height = 24
ActionManager = ActionManager1
end
object RibbonApplicationMenuBar1: TRibbonApplicationMenuBar
ActionManager = ActionManager1
OptionItems = <>
RecentItems = <>
end
end
object ImageList1: TImageList
Left = 288
Top = 184
Bitmap = {
494C010105000800080010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
....
}
end
object ActionManager1: TActionManager
ActionBars = <
item
Items = <
item
Action = EditCopy1
ImageIndex = 1
ShowCaption = False
ShortCut = 16451
end
item
Action = EditCopy1
ImageIndex = 1
ShowCaption = False
ShortCut = 16451
end
item
Action = EditPaste1
ImageIndex = 2
ShowCaption = False
ShortCut = 16470
end>
ActionBar = RibbonQuickAccessToolbar1
AutoSize = False
end
item
Items = <
item
ChangesAllowed = [caModify]
Items = <
item
Action = EditCopy1
ImageIndex = 1
ShortCut = 16451
end
item
Caption = 'ActionClientItem1'
end>
Caption = 'ActionClientItem0'
KeyTip = 'F'
end>
ActionBar = RibbonApplicationMenuBar1
AutoSize = False
end>
Images = ImageList1
Left = 288
Top = 120
StyleName = 'Ribbon - Luna'
object EditCut1: TEditCut
Category = 'Edit'
Caption = 'Cu&t'
Hint = 'Cut|Cuts the selection and puts it on the Clipboard'
ImageIndex = 0
ShortCut = 16472
end
object EditCopy1: TEditCopy
Category = 'Edit'
Caption = '&Copy'
Hint = 'Copy|Copies the selection and puts it on the Clipboard'
ImageIndex = 1
ShortCut = 16451
end
object EditPaste1: TEditPaste
Category = 'Edit'
Caption = '&Paste'
Hint = 'Paste|Inserts Clipboard contents'
ImageIndex = 2
ShortCut = 16470
end
object EditSelectAll1: TEditSelectAll
Category = 'Edit'
Caption = 'Select &All'
Hint = 'Select All|Selects the entire document'
ShortCut = 16449
end
object EditUndo1: TEditUndo
Category = 'Edit'
Caption = '&Undo'
Hint = 'Undo|Reverts the last action'
ImageIndex = 3
ShortCut = 16474
end
object EditDelete1: TEditDelete
Category = 'Edit'
Caption = '&Delete'
Hint = 'Delete|Erases the selection'
ImageIndex = 4
ShortCut = 46
end
end
end
对象格式5:t格式5
左=0
Top=0
标题='Form5'
ClientHeight=337
ClientWidth=527
颜色=clBtnFace
双缓冲=真
Font.Charset=默认字符集
Font.Color=clWindowText
字体高度=-11
Font.Name='Tahoma'
Font.Style=[]
GlassFrame.Enabled=True
OldCreateOrder=False
OnCreate=FormCreate
PixelsPerInch=96
text高度=13
对象Ribbon1:TRibbon
左=0
Top=0
宽度=527
高度=143
ActionManager=ActionManager 1
ApplicationMenu.Menu=RibbonApplicationMenu 1
标题='Ribbon1'
QuickAccessToolbar.ActionBar=RibbonQuickAccessToolbar 1
ExplicitLeft=272
显式t p=120
ExplicitWidth=0
StyleName='Ribbon-Luna'
对象RibbonQuickAccessToolbar 1:TRibbonQuickAccessToolbar
左=49
Top=1
宽度=99
高度=24
ActionManager=ActionManager 1
结束
对象RibbonApplicationMenuBar1:TRibbonApplicationMenuBar
ActionManager=ActionManager 1
OptionItems=
最近事项=
结束
结束
对象ImageList1:TImageList
左=288
Top=184
位图={
494C01010500080008010001000FFFFFFFF00FFFFFFFFFFFF424D3600
....
}
结束
对象ActionManager 1:TActionManager
操作栏=<
项目
项目=<
项目
Action=EditCopy1
ImageIndex=1
ShowCaption=False
快捷方式=16451
结束
项目
Action=EditCopy1
ImageIndex=1
ShowCaption=False
快捷方式=16451
结束
项目
动作=1
ImageIndex=2
ShowCaption=False
快捷方式=16470
结束>
ActionBar=RibbonQuickAccessToolbar1
自动调整大小=错误
结束
项目
项目=<
项目
ChangesAllowed=[caModify]
项目=<
项目
Action=EditCopy1
ImageIndex=1
快捷方式=16451
结束
项目
标题='ActionClientItem1'
结束>
标题='ActionClientItem0'
KeyTip='F'
结束>
ActionBar=RibbonaApplicationMenuBar1
自动调整大小=错误
结束>
Images=ImageList1
左=288
顶部=120
StyleName='Ribbon-Luna'
对象EditCut1:TEditCut
类别='编辑'
标题='Cu&t'
提示=“剪切|剪切所选内容并将其放在剪贴板上”
ImageIndex=0
快捷方式=16472
结束
对象EditCopy1:TEditCopy
类别='编辑'
标题=“&复制”
提示='Copy |复制所选内容并将其放入剪贴板'
ImageIndex=1
快捷方式=16451
结束
对象编辑粘贴1:TEditPaste
类别='编辑'
标题=“&粘贴”
提示='粘贴|插入剪贴板内容'
ImageIndex=2
快捷方式=16470
结束
对象编辑器SelectAll1:TEditSelectAll
类别='编辑'
标题='Select&All'
提示='全选|选择整个文档'
快捷方式=16449
结束
对象EditUndo1:TEditUndo
类别='编辑'
标题=“&Undo”
提示='Undo |还原最后一个操作'
ImageIndex=3
快捷方式=16474
结束
对象EditDelete1:TEditDelete
类别='编辑'
标题=“&删除”
提示='Delete |删除所选内容'
ImageIndex=4
快捷方式=46
结束
结束
结束
下面是它在运行时的样子:
在Delphi 2010和XE中,步骤如下: