![]() |
|
|
#1 (permalink) |
|
SO Üyesi
![]() ![]() Üyelik tarihi: 22-11-2007
Nerden: napıcan ziyaretemi geLcen!!
Mesajlar: 4.536
Konular: 2724
Üye No: 11416
Ruh halim:
|
procedure
TForm1.FormCreate(Sender: TObject); var MyRgn, ClientRgn, ButtonRgn: THandle; Margin, X, Y: Integer; begin Margin := (Width - ClientWidth) div 2; MyRgn := CreateRectRgn(0, 0, Width, Height); X := Margin; Y := Height - ClientHeight - Margin; ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight); CombineRgn(MyRgn, MyRgn, ClientRgn, RGN_XOR); X := X + Button1.Left; Y := Y + Button1.Top; ButtonRgn := CreateRectRgn(X, Y, X + Button1.Width, Y + Button1.Height); //-----------!!----------- CombineRgn(MyRgn, MyRgn, ButtonRgn, RGN_XOR); SetWindowRgn(Handle, MyRgn, True); end;
__________________
Büyük bir Derdin oLduğunda ALLah'a dönüp 'Benim büyük bi derdim var' deme. Derdine dönüp 'Benim senden büyük ALLah'ım var'de !!! Yüz Verip AdAm EttsiYsem SıfırLa çaRpar Yok Ederİm
|
|
|
|
![]() |
| Bu konunun kısa yolunu aşağıdaki sitelere ekleyebilirsiniz! |
| Konu Araçları | |
| Stil | |
|
|