Kako da ulepsam svoju formu u delphi-u?

Caos ljudi ako neko zna kako da ulepsam formu u delphi-u, pre svega mislim na njen obik javi te.

Potpis

My IT View Of Life-BrLOG-Delphi for PHP

» LinkedIn

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;

Potpis

Heaven & Hell
mailto:[email protected]