SetTextColor

色設定 2005-01-26 16:27:02 No: 12885

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

りおりお 2005-01-26 16:37:40 No: 12886

ColorToRGB() が使えそうです

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