掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TMainMenuに色をつけるには？ (ID：35034)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
背景を変えるには？ と言うお題と同じだと思いますがコピペで手抜きですが MainMenu1のOwnerDrawをTrueにする。 >メニューの表示されていない範囲で書く方法までは >わかりませんでした。。。） 通常描画する範囲がARectに入りますが描画するのはその範囲を 越えてもかまいません。 procedure TForm1.N1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean); begin with ACanvas do begin //通常の描画 if Selected then Brush.Color := clYellow else Brush.Color := clwhite; FillRect(ARect) ; Font.Color := clTeal; Font.Style := [fsItalic]; TextRect(ARect,ARect.Left,2+ ARect.Top, N1.Caption) ; //右部分の描画 Brush.Color := clRed; ARect.Left:=ARect.Right; ARect.Right:=ARect.Right+1000; FillRect(ARect) ; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.