[es] - Kako da ulepsam svoju formu u delphi-u?

Vladica Savić
Software Developer
Toronto, Canada

Član broj: 26699
Poruke: 654

+5 Profil

Kako da ulepsam svoju formu u delphi-u?

^{17.05.2004. u 14:54 - pre 242 meseci}

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

My IT View Of Life-BrLOG-Delphi for PHP

» LinkedIn

Odgovor na temu

Kula
Sarajevo

Član broj: 27058
Poruke: 15
*.as58.ob.bih.net.ba.

Profil

Re: Kako da ulepsam svoju formu u delphi-u?

^{24.05.2004. u 01:50 - pre 242 meseci}

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]

Odgovor na temu

Crazy Mix
Nemanja Avramovic
QuadraSoft
Mladenovac

Član broj: 7103
Poruke: 331
*.telekom.yu

ICQ: 266136396
Sajt: www.quadrasoft.co.sr

Profil

Re: Kako da ulepsam svoju formu u delphi-u?

^{24.05.2004. u 21:46 - pre 242 meseci}

Billenium effects: http://www.billeniumsoft.com/

Ako nije ovaj url, ima na http://www.torry.net/, pa tamo... forme, pa efekti...

Avram,
http://www.eyesburn.co.sr/

Odgovor na temu