掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
OfficeXP風メニュー (ID:8824)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
これじゃ無理かなぁ procedure TForm1.ToolBar1CustomDrawButton(Sender: TToolBar; Button: TToolButton; State: TCustomDrawState; var DefaultDraw: Boolean); var R:TRect; begin if (cdsHot in State) and not(cdsSelected in state) then begin R:=Button.BoundsRect; Sender.Canvas.Pen.Color:=clBlue; Sender.Canvas.Rectangle(R.Left,R.Top,R.Right,R.Bottom); Sender.Canvas.Rectangle(R.Left+1,R.Top+1,R.Right-1,R.Bottom-1); Sender.Images.Draw(Sender.Canvas,R.Left+3,R.Top+3,Button.ImageIndex); DefaultDraw:=False; end; end; メニューバーなら文字を描画しなければいけないので変更が必要
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.