SetTextColor

色設定  2005-01-27 01:27:02  No: 12885  IP: [192.*.*.*]

SetTextColor/SetBkColorにてclBtnFaceなどのシステムカラーを使うにはどうすればよいのでしょうか？

編集    削除
りおりお  2005-01-27 01:37:40  No: 12886  IP: [192.*.*.*]

ColorToRGB() が使えそうです

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Canvas do
  begin
    SetTextColor(Handle,ColorToRGB(clActiveCaption));
    Windows.TextOut(Handle,20,20,'TEST',4)
  end;
end;

編集    削除