저도 해보진 않아서 잘될진 모르겠는데.
QT.pas를 보면
function QRegion_create(p1: PPointArray; winding: Boolean);
이 함수를 사용하면 될꺼 같네요..
참고로 타원형으로 폼에 구멍내는 소스를 올립니다.
procedure TForm1.FormCreate(Sender: TObject);
VAR Region1,Region2:QRegionH;
begin
Region1 := QRegion_create(0,0,Width,Height,QRegionRegionType_Ellipse);
Region2 := QRegion_create(50,50,Width-100,Height-100,QRegionRegionType_Ellipse);
QRegion_eor(Region1,Region1,Region2);
QWidget_setMask(Handle,Region1);
end;
그럼 즐프하세요..
jimba 님이 쓰신 글 :
: Window Api에는 Polypolygon이 있어서 쉽게 구현 가능했는데 ...
:
: Kylix (QT)에는 없네요.
:
: 혹시 아시는 분이 계시다면 부탁드리겠습니다.
:
: 이만.
|