seçilen noktalarla poligon çizimi

[adasis]

Arkadaşlar merhaba;

Benim sorum şu;
image üzerinde mouse ile bir kaç nokta belirleyip bu noktalarda poligon çizmek istiyorum, fakat seçilen noktaların adedi belli değil 5 te olabilir 20 de olabilir.

Cevaplarınız için şimdiden teşekkürler...

[sabanakman]

Üç noktaya göre üçgen çizen garip bir örnek. Buradaki 3 nokta yerine istenildiği kadar nokta belirtebilir..

Kod: Tümünü seç

Image1.Canvas.Polygon([Point(10,10),Point(20,120),Point(55,75)]);

[adasis]

Öncelikle ilginize teşekkür ederim,
verdiğiniz örnekteki gibi koordinatları elle belirterek istenildiği kadar nokta tanımlamak değil yapmaya çalıştığımız.
x,y mouse ile tıklanarak bulunacak ve koddaki yerine yazılacak a1,a2 - b1,b2 olan yerler tıklamak suretiyle doldurulacak.

Image1.Canvas.Polygon([Point(a1,a2),Point(b1,b2),Point(c1,c2)]);

[emin_as]

Aşagıdakine benzer kod işini görebilir.

Kod: Tümünü seç

var
  Noktalar : array [0..30] of TPoint;
...
Noktalar[0]:=Point(15,35);
Noktalar[1]:=Point(43,22);
...
// ilk 5 noktaya göre polygon çizilebilir
Image1.Canvas.Polygon(Slice(Noktalar,5)); 

[ikra]

: ))
abiler, adam bagira bagira MOUSE ile bunlari belirlemem lazim demis, hala sabit sayi örnekleri veriyorsunuz.

kardes!
aradaki koordinatlari sanirim

Kod: Tümünü seç

Mouse.CursorPos.X
Mouse.CursorPos.Y

ile doldurabilirsin.
kolay gelsin.