김정규 님이 쓰신 글 :
: 궁금이 님이 쓰신 글 :
: : PageControl에서 각TabSheet를 누를때 눈에 확띠도록 누른 TabSheet의 색깔을 바꿔 주는방법을 좀 알려주세요. TabSheet가 눌러졌을때 너무 민숭맹숭해서리......
: : 그 TabSheet가 눌러졌다는것 확 보여주는 다른 방법이라도....
: : 고수님들 부탁드립니다.
:
:
: 질문에서 Tab Sheet의 색깔이라는 것이 선택한 Tab의 색깔을 의미하는건가요?
: 만약 그렇다면 PageControl의 OnwerDraw 를 True로 하시고, OnDrawTab()에서 선택한 Tab을 직접 그려주면 될 것 같은데... (제가 질문을 제대로 이해한건지... :)
:

//Source
void __fastcall TForm1::PageControl1DrawTab(TCustomTabControl *Control,
      int TabIndex, const TRect &Rect, bool Active)
{
    TCanvas* TargetCanvas = Control->Canvas;
    if(Active)
    {
        TargetCanvas->Brush->Color = clRed;
        TargetCanvas->Font->Color = clBlack;
    }
    else
    {
        TargetCanvas->Brush->Color = clBlue;
        TargetCanvas->Font->Color = clWhite;
    }
    TargetCanvas->FillRect(Rect);
    TargetCanvas->TextOutA(Rect.Left + 6, Rect.Top + 3, PageControl1->Pages[TabIndex]->Caption);

}
//---------------------------------------------------------------------------