checkboxのFont Colorが指定できない。

かんとく 2011-01-23 23:56:05 No: 39887

お世話になっております。

Ｄｅｐｌｈｉ２００７、ＸＰです。

CheckBoxの、FontのColoeが、変更できなくなりました。

以前は変更できていて、プログラムのその部分はまったくいじっていないのに、突然色が変わらなくなりました。

フォームの編集画面で、プロパティを変更したら、その場で色が変更されていたのですが、プログラム編集時も、実行時も、フォントカラーが黒のままです。

前までできていたのに、急にできなくなったので、原因がまったく分かりません。

よろしくお願いします。

かんとく 2011-01-24 00:20:18 No: 39888

自分で調べた結果ですが、
画面のプロパティのテーマを、
Windowsクラシックにすると色が変わるが、
WindowsXPにすると、色が変わらないようです。

まだ調査中ですが、WindowsXPでも色が変わる必要があるので、引き続きよろしくお願いします。

かんとく 2011-01-24 22:20:44 No: 39889

すみません。
「前までできていたのに、急にできなくなった」というのは、間違えだったようです。

開発しているパソコンの画面のプロパティのテーマがWindowsクラシックで、それをインストールして使っているパソコンの画面のプロパティのテーマがWindowsXPでした。

なので、画面のプロパティのテーマがWindowsXPのパソコンで、今までずっと文字の色が黒かったのに気づいていなかっただけかもしれません。

引き続き、よろしくお願いします。

引き続き… 2011-01-25 02:52:11 No: 39890

procedure TCheckBox.WmPaint(var Msg: TMessage);
var
  DC: HDC;
  CV: TCanvas;
begin
  inherited;
  DC := GetDC(Handle);
  CV := TCanvas.Create;
  try
   CV.Handle := DC;
   CV.Font.Assign(Font);
   CV.Brush.Style := bsClear;
   CV.TextOut(16, 3, Caption);
  finally
   CV.Free;
   ReleaseDC(Handle, DC);
  end;

ところで、前の質問は解決したの？
解決できたのならチェックを付けておいてね、
掲示板の質問は皆で共有するものだよ。
https://www.petitmonte.com/bbs/answers?question_id=7209