|
안녕하세요?
메인 폼 위에 TImage콘트롤을 올려놓고 TImage내의 영역을 FillRect로 소거 하였습니다.
그리고나서 마우스로 메인 폼의 크기를 수시로 변경시키면 TImage크기도 따라서 크기가
바뀌도록 했는데 이전의 클리핑영역을 기억하고 있는지 모르겠지만 예전 영역으로만 색이
채워지더군요 이를 변경된 크기에 따라 TImage의 모든 영역으로 채울 수 없는지 궁금합니다.
아마도 클리핑 문제인거 같은데 말이죠...고수님들의 고견 부탁드립니다.
감사합니다.
HRGN MyRgn;
MyRgn = ::CreateRectRgn(Image1->Left, Image1->Top, Image1->Width, Image1->Height);
::SelectClipRgn(Image1->Canvas->Handle, MyRgn);
Image1->Canvas->Brush->Color = clBlack;
Image1->Canvas->FillRect(Image1->Canvas->CliptRect);
::SelectClipRgn(Image1->Canvas->Handle, NULL);
::DeleteObject(MyRgn);
|