TRibbonの大きなボタンのイメージはないが中心と...そのアイデア?する設計-時間
-
21-09-2019 - |
質問
私が使っているデ2009(更新は1,2,3,4).見かけなども独特なんです。の画像のボタンが中心のボタンをいただいた場合、大きなボタンと大型のグリフの!ことなく、左のグリフのセンターのボタンを押します。
ヒントがい:
- の行編集および選択行動
- 使用のコンボボックスImageIndexにオブジェクト、検査員のリストが空である(通常はい、ご用意の画像のコンボボックス).
れているかのようだが、画像の幅財ったセットまたはimagelist正しく設定されていない.思想のグリフの大きなボタンは32x32.
次のことを試してみてください:
- 貼り付けこれらの部品空形
- 追加32x32画像の画像一覧
- セットのAction1imageindexが0
ちょうか。
(出典: xrw.典型的なモーテルの雰囲気です。ca)
誰でもできるので教えて、なぜかそうです。
おもしろいのは、リボンモアプリ表示しませんこの問題です。もし、同じイメージです。
感謝です。
object ActionManager1: TActionManager
ActionBars = <
item
Items = <
item
Action = Action1
Caption = '&Action1'
ImageIndex = 0
CommandProperties.ButtonSize = bsLarge
end>
ActionBar = RibbonGroup1
end>
LargeDisabledImages = img3232
LargeImages = img3232
Left = 376
Top = 184
StyleName = 'Ribbon - Luna'
object Action1: TAction
Caption = 'Action1'
ImageIndex = 0
end
end
object Ribbon1: TRibbon
Left = 0
Top = 0
Width = 693
Height = 147
ActionManager = ActionManager1
Caption = 'Ribbon1'
Tabs = <
item
Caption = 'RibbonPage1'
Page = RibbonPage1
end>
ExplicitLeft = 232
ExplicitTop = 80
ExplicitWidth = 0
DesignSize = (
693
147)
StyleName = 'Ribbon - Luna'
object RibbonPage1: TRibbonPage
Left = 0
Top = 54
Width = 692
Height = 93
Caption = 'RibbonPage1'
Index = 0
object RibbonGroup1: TRibbonGroup
Left = 4
Top = 3
Width = 54
Height = 86
ActionManager = ActionManager1
Caption = 'RibbonGroup1'
GroupIndex = 0
end
end
end
object img3232: TImageList
Height = 32
Width = 32
Left = 376
Top = 256
end
解決
問題は、真...グリフの不正確な位置決めにつながる=(?デフォルトでは)関連TActionClientsオブジェクトが何らかの形で(構造ビューでそれを見つける。)ということでしたSmallIconsを取得します。オブジェクトインスペクタでそれを変更&それが機能するようになりました。
他のヒント
私は(2010年に姿を消しているように見える)のDelphi 2009でこの問題を持っていたとしても。
IIRC、再び画像リストへ、その後、何もアクションマネージャでの大規模なイメージリストの参照を設定してみてください。
N @
またこの問題を再度です。またの追加グループへ TRibbon
ページ実行してくれてありがとうございますプラグインの枠組みを行っている。を追加した後、グループの追加ボタンを押すと、画像が相殺されました。が のみ XP.
I 考え この問題のグリフの幅はある時点を0、次のFGlyphPosにTCustomActionControlのセンターのボタン(大型ボタンのテキスト位置づけ、左のボタン(小さなボタン)にの幅が、グループより小さくなってます。
迅速かつ簡単な方法でキックのグループの再整列すべてがこの機能を追加のコードのフォーム(こちらを追加したものOnShowイベントがきつかえば直通なので大変助かります):
for LTabIndex := 0 to Ribbon.Tabs.Count - 1 do
for LGroupIndex := 0 to Ribbon.Tabs[LTabIndex].Page.GroupCount - 1 do
Ribbon.Tabs[LTabIndex].Page.Groups[LGroupIndex].AlignGroupControls;
武器agiは、dexで下がらないboxerぐ人がいる。:)