Geometrik Formlar Oluşturma

Geometrik Formlar Oluşturmak İçin Gereken Kodlar.


procedure TForm1.FormShow(Sender: TObject);

var

regionhandle:integer;

area:array[0..2] of tpoint;

begin

area[0].x := 0; area[0].y := 0;

area[1].x := 400; area[1].y := 0;

area[2].x := 200; area[2].y := 200;

regionhandle:=CreatePolygonRgn(area,3,ALTERNATE); // 3 polygonda kaç tane nokta olduğunu belirtir

// area ise polygon koordinatlarının bulunduğu dizi.

setwindowrgn(form1.handle,RegionHandle,true);

end;

Area dizisinde verilen x,y koordinatlarına göre polgon hesaplanır. Hesaplanan Handle ile herhangi bir form'a bu polyon şekli verilebilir. Polgon dışında kalan grafikler yarım veya hiç gözükmez.

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

çok basit ve etkili bir yonttem sundugun için teşekürler bunları ıstersen bır tımer ıle baglayıp bu olayı sureklı değışken yapabılmeyi saglar sagolasın
güzel bir çalışma olmuş teşekürler. Peki timer ile nasıl bağlantı kuracaz onun kodunuda verebilirmisiniz

Yukarı Git