Win98 でタイトルバーのグラデーション色を得る
|
const
COLOR_GRADIENTACTIVECAPTION = 27;
COLOR_GRADIENTINACTIVECAPTION = 28;
という前提で、GetSysColor() API を使用してください。
DWORD の色がかえります。( TColor に代入できます )
どーせやるなら、
const
COLOR_GRADIENTACTIVECAPTION = 27;
COLOR_GRADIENTINACTIVECAPTION = 28;
clGradientActiveCaption = $80000000 + COLOR_GRADIENTACTIVECAPTION;
clGradientInactiveCaption = $80000000 + COLOR_GRADIENTINACTIVECAPTION;
としておくと便利かもしれません。
この状態で、 Delphi4 の ColorToRGB のソースを見るかぎりでは
ColorToRGB(clGradientActiveCaption)
は正常に動作します。
ところで…この定数ですが、、、、Delphi4 にも定義されていないようです。
# たんに、私が未確認なだけでしょうか?
勝手に Graphic.pas (Desktop 版では Graphic.int)に書き足しておいても問題はないと思うのですが…。。。 |
|