掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
PageControlのタブにImageを使用した場合の色変更について (ID:30799)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
OwnerDrawがTrueならImageが描画されないのは当然です。 Imageを自前で描画しましょう。 procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); begin if Active then begin //アクティブ色 Control.Canvas.Brush.Color :=clRed; Control.Canvas.FillRect(Rect); end; //TabIndex = ImageIndexだと仮定して ImageList1.Draw(Control.Canvas, Rect.Left, Rect.Top, TabIndex); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.