Trazio sam nesto po netu i slucajno naletio na ovaj SC pa reko ako te zanima. Nema bas vremena za neko objasnjenje ali pregledaj SC valjda ce ti biti jasno. Kod mene radi savrseno jos malo sminke ;) i sve ce biti Cool !!!!
procedure TForm1.FormCreate(Sender: TObject);
Var
R,R2,R3 : HRgn;
P : array[0..11] of TPoint;
begin
Form1.Color:=clBlack;
Form1.Width:=240;
Form1.Height:=120;
//Creating Poligon
P[0]:=Point(0,20); { }
P[1]:=Point(0,100); { P[7] P[6] }
P[2]:=Point(20,120); { ________________ }
P[3]:=Point(220,120); {P[0,8]/ \ }
P[4]:=Point(240,100); { | | P[5] }
P[5]:=Point(240,20); { | | }
P[6]:=Point(220,0); { P[1]| | P[4] }
P[7]:=Point(20,0); { \________________/ }
P[8]:=Point(0,20); { P[2] P[3] }
R:=CreatePolygonRgn(P,9,Alternate);
//Creating Ellipse
R2:=CreateEllipticRgn(50,50,190,70);
//Creating Rectangle
R3:=CreateRectRgn(20,35,220,40);
//P[All]-Ellipse
CombineRgn(R,R,R2,RGN_DIFF);
//(P[All]-Ellipse) - Rectangle
CombineRgn(R,R,R3,RGN_DIFF);
//Turning on the transparency
SetWindowRgn(Handle,R,True);
end;
Heaven & Hell
mailto:
[email protected]