掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
XPスタイル表示でTGroupBoxのフォントカラーを設定するには?(Delphi2007) (ID:29453)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
BDS2006だけど GroupBoxの描画は TCustomGroupBox の Paint で行なわれています そして Paint で if ThemeServices.ThemesEnabled then で Manifest があるかどうか判断してある場合と無い場合で描画を分けています Manifest ありのときの描画 if Text <> '' then ThemeServices.DrawText(Handle, Details, Text, CaptionRect, DT_LEFT, 0); を if Text <> '' then begin Brush.Color := Color; DrawText(Handle, PChar(Text), Length(Text), CaptionRect, Flags); end; と書きえ変えればフォントの色を変化させる事はできますが・・・・ D5で色を変化するのは、GroupBox内でテーマ判定がなく単純に描画されているので XPManifestがあってもフォントの色が変わるのでしょう
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.