|
monmarni 님이 쓰신 글 :
: 실행 시에 캡션바의 색상을 바꾸는 방법은 없나요?
: 아시는 고수님 부탁 부탁드립니다.
[답변]
API 중에 SetSysColors()가 있군요.
private: // User declarations
int capA[1], capAn[1];
DWORD rgbA[1], rgbAn[1], rgbF[1], rgbFn[1];
void __fastcall TForm1::FormCreate(TObject *Sender)
{
rgbF[0]=GetSysColor(COLOR_ACTIVECAPTION);
rgbFn[0]=GetSysColor(COLOR_INACTIVECAPTION);
capA[0]=COLOR_ACTIVECAPTION;
capAn[0]=COLOR_INACTIVECAPTION;
rgbA[0]=RGB(184, 209, 222);
rgbAn[0]=RGB(223, 237, 244);
SetSysColors(1, capA, rgbA);
SetSysColors(1, capAn, rgbAn);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
SetSysColors(1, capA, rgbF);
SetSysColors(1, capAn, rgbFn);
}
//---------------------------------------------------------------------------
|