Delphi Forum

Ö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 ...

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...

Crvabınıza teşekkür ederim.
Bende bu şekilde bir yol izledikten sonra 1280x1024 ekran çözünürlüğüne gelince burada cevap aramak istedim,

1280/1024=1.25 çıkıyor,
1280/768=1.66

bu şekildede tüm çözünürlüklerden emin olamıyorum,

Cevabınız için teşekkür ederim, fakat benim aradığım örneğin 1024/768 oranı değil,
ekran çözünürlüğünü alıp bir işlemden geçirip bu 4:3 kare veya 16:9 WS bir monitör diyebilmeliyim.

Arkadaşlar merhaba;
Delphi ile yazılan bir programımız var, kare ekran ve WS ekran için iki ayrı tasarım yapıldı,

Şimdi sorunum şu;
Ayrı bir exe oluşturup kurulum esnasında o exeyi çalıştırıp monitörün durumuna göre gerekli setup'ın çalıştırılmasını sağlamak. Yani 4:3 ekranlar için 1.exe'yi, 16:9 ...

Yapmak istediğimi söyle açıklayayım;

Program kameradan fotoğraf çekiyor ve bu resim üzerinden ölçülendirme yapıyor,
resmin üzerinde referans noktaları var ve bu noktalar mouse ile belirleniyor zaten fakat kaydırmadan dolayı hatalı ölçüm yapma olasılığı var,
benim derdim bu referans noktalarını ...

jpeg resim tarama için örnek bi kod varsa, çok makbule geçer.

Amaç mouse konumlandırmadan form açılışı esnasında o koordinatları bulmak,
Mümkünse?

Arkadaşlar öncelikle merhaba;

Benim sorum şu, Bir jpeg resmimiz var ve bu resmin farklı yerlerinde 3 adet 7mm çapında beyaz zemin üzerinde siyah renk artı işareti var, Ben bu artıların herbirinin konumlarını (x,y) bulmak istiyorum.
Böyle bişey mümkün mü;

Merhaba arkadaşlar, benim problemim şu;

Delphi formda 5 6 nokta belirleyip bu noktaları çizgilerle birleştirmek istiyorum, fakat bu çizgiler düz değil eğri çizgiler olarak, daha sonrada bu noktalardan birinin yerini değiştirdiğimde aynı oranda eğilip yeni bir şekil olacak. Yani bi nevi elastik ...

Arkadaşlar teşekkür ederim, sorun çözüldü, Battosai arkadaşın gönderdiği son örnek te üzerine tuz biber oldu.

Tekrar teşekkürler.

Arkadaşlar ilginize teşekkür ederim.
Battosai arkadaşın cevabı hesaplama kısmını tam olarak işimi çözdü fakat şöyle bir problemim var.

Paintbox kullanarak iki farklı nokta arasına açılı çizgi çizdiriyorum açısınıda hesaplıyorum, fakat çizginin üst veya alt noktasından tutup yerini değiştiriyorum ...

Arkadaşlar vereceğiniz cevaplara şimdiden teşekkürler.

Şimdi Delphi forma iki ayrı nokta belirleyip (x,y=20 ve x1,y1=90 gibi) bu iki nokta arasında bir çizgi çizdirip bu x,y nin x1,y1 e olan açıcını hesaplamalıyım ama gerektiğinde x,y noktaları 20 değilde sürükleyip bıraktığımdaki yeni nokta olacak ...

İlginiz için teşükkerler;
Son açıklamanızdan sonra sorun hallolmuştu ama başka sorun yaşayan arkadaşlara kaynak olur.

Tekrardan teşekkür ederim.

Sayın mrmarman;

"Dikkatli okursanız tam olarak aradaki inceliği anlayabilirsiniz...." yanlış anlaşıldığı için özür dilerim, kimseyi aşağılamak içim yazmadım, sizin verdiğiniz örnek ile benim sorunum arasındaki inceliği anlatmak için yazmıştım. Sizde bilirsiniz ki bir insanın yazarak derdini tam ...