Türkiye haritası resmi üzerinde form tasarlayan ?

[conari]

Bu şekilde bir çalışma yapan varmı?
resimde hangi bölge veya hangi ile tıklandığını söylecek var ise örnek verebilirmi.

Flash sonraki seçenek.

[G.Arkas]

küçük butonlar ile yapabilirsiniz? yada labellerle.Türkiye haritasını timage nesnesi ile forma koyun.Daha sonra 81 label ekleyin ve captionlarını boş bırakın click olaylarına da o illerin isimlerini koyun örneğin

lbadana.click;
begin
edit1.text:='Adana';
end;

gibi iyi çalışmalar.

[Lost Soul]

biraz uğraştıracak ama illerin sınırlarını tpoint türünden tanımlarsın
bkz:viewtopic.php?f=1&t=25782&hilit=point

Kod: Tümünü seç

type Til = array of tpoint;

type  Tiller = array of Til; gibi

sonra haritayı timage nesnesine atıp

onclick olayında x,y koordinatlarının point sınırları içerisinde olup olmadığını kontrol eden bir fonksiyon yazarsın.

Kod: Tümünü seç

var Iller : Tiller;
Result:=-1
For i = Low(iller) to high(iller) do
  if Bu_Il_Mi_Acaba(iller[i] ,x,y) then Result:=i;

ve il bulma fonksiyonu

Kod: Tümünü seç

Function Bu_Il_Mi_Acaba(HangisiKanki:Til ,x,y : integer):boolean;
Begin
  For yumusak_g:=low(HangisiKanki) to high(HangisiKanki) do
  Begin
  buraya ilin pointi sağa mı düşüyor sola mı düşüyor yukarda mı aşaşğıda mı  ona göre limtleri belirttikten sonra ya da pointler arası mantıksal çizgiler çizip çizginin içinde de mi dışında mı kontrol edersin.
içindeyse true değilse false döndürürsün.
  End;
End;

buna benzer bi yapı olur. İçini artık sen doldurursun

[qamyoncu]

Merhabalar..

-Her ilin sınırları içerisinden 1 ve ya 2 noktayı bir değişkene not edebiliriz, not ederken her noktanın sonucuna o ilin adı gelecek şekilde not edelim.
-Fare tıklandığında veyahut üstünde dolaştığında bir ilin;
-Örneğin o ilin rengi kırmızı ise(image1.canvas.pixel[x,y] ile bulabilirsin rengi) çevresindeki tüm 8 pixelin renklerine baksın programımız ve daha sonra o 8 pixelin her birinin çevresinde ki renklere de ... ... ... taa ki, renk kırmızı olmayana kadar. Ve bakılan her noktayı bir kenara not etsin tabii. Böylelikle tıklanan veya fare ile dolaşılan ilin tüm koordinatlarını elde etmiş oluruz.
-Daha sonra ilk not edilen veriler ile karşılaştırılır bu son verilerimiz. Bir nokta uyuşacaktır elbette. Çünkü ilk yaptığımız ile 81 ilden 1er nokta aldık. ikinci yaptğımız ile 1 ildeki tüm noktaları aldık. Bu sayede hangi il olduğunu anlayabilirsin.

** Yazım yanlışları düzenlemesi

[conari]

Bilgiler için teşekkürler.
Tam sınırları dolduramasakta en basiti label olacak sanırım.

[emin_as]

http://www.dmi.gov.tr/sondurum/turkiye.aspx

[aslangeri]

s.a.
delphi 3 de bir button vardı jbutton muydu netdi tam hatırlamıyorum adını. o buttona verdiğimiz resmin şeklini alıyordu.
o tarz bi bileşen sanırım işini görür.
kolay gelsin.

[conari]

s.a.
delphi 3 de bir button vardı jbutton muydu netdi tam hatırlamıyorum adını. o buttona verdiğimiz resmin şeklini alıyordu.
o tarz bi bileşen sanırım işini görür.
kolay gelsin.

Ozaman şu linki bir aktif edeyim.
viewtopic.php?f=1&t=1645

[conari]

Citi buton diye bir compenet buldum işe yarıyor ama ücretli.
Free compenent lazım.
JEdi deki butonları deneyeceğim.

[Lost Soul]

Citi buton diye bir compenet buldum.

linkini verebilir misiniz.?

[conari]

http://www.chithai.com/delphi/citibutto ... uttons.htm

[mrmarman]

Merhaba.


Sorduğunuz soruyu daha önce http://kontrol.armantr.com/ linkindeki projede uygulamıştım. Dilersen sorunu nasıl çözdüğümü kısaca anlatayım.

Forumda yazdığım yazılarda tekrar tekrar "ilüzyon yeteğinimizi kullanalım" diyorum. Çünkü yazdığımız kodlarla aslında kullanıcı ekranında 1 işlem yapılıyormuş gibi görüyorken perde arkasında belki de 100 işlem yaptırıyoruz, haberi bile olmuyor.

İki tane Türkiye Haritası hazırlayarak işe başladım. Birisi tümüyle kullanıcının ekranda göreceği türden boyanmış, resimlenmiş ve isimlendirilmiş halde olanı. Diğeri ise ilki ile bire bir boyutlarda ancak iller farklı renk kodları ile boyanmış halde.

Bu iki resimden birisini kullanıcının görebileceği bir TImage nesnesine (Image1 diyelim) koyuyoruz, referans olacak diğerini (Image2 diyelim) ise Visible değeri false olan veya görünür olanın tam arkasında gizlenmiş olarak tutulan diğer TImage nesnesine.

Şimdi Image1'in MouseUP olayında X,Y değerini alıyoruz, Image2'nin Canvasındaki X,Y konumundaki Pixels yani o pixel'in renk kodunu okuyoruz. Bu kod ile ilişkilendirilmiş İl hangisi ise ona tıklanmış olduğu şeklinde yorumlayıp işimizi yapıyoruz.

Anlamadıysanız uygun bir zamanda bir örnek hazırlarım.

İyi çalışmalar.

[deltas]

M uharrem Hocam bu konuda küçük bir örnek verirseniz çok mükemmel olur. En azında *.shp formatiyla uğraşmaktan kurtulurum.

[conari]

Yok Hocam güzel anlatmışsınız. Alternatif olabilir.
Ben olaya Jvtransparanbuton ile şu anda başladım. Fakat buda 81 tane buton forma koymak demek. İlk olarak bunlar için global bir click eventi yapabilirmiyim diye soracaktım siteye.

Dün bir flash buldum. Kodlarını geliştirip, sanırım bu flasha döneceğim.
Flashın Fscommand eventininden faydalanarak Delphide hangisine tıklandığını yakalayacağım. Buna geçmeyi düşünüyorum.

Teşekkürler

[mrmarman]

Dün bir flash buldum. Kodlarını geliştirip, sanırım bu flasha döneceğim.
Flashın Fscommand eventininden faydalanarak Delphide hangisine tıklandığını yakalayacağım. Buna geçmeyi düşünüyorum.

Evet ben de bir tane swf bulmuştum. Belki de aynısını buşmuşsundur. Aklında olsun Kıbrıs için giriş orada yapılmamış SWFDecompiler ile açıp kıbrıs için de fscommand erişimi eklemen gerekiyor. İl olarak da 83 diyebilirsin sadece bir hatırlatma.

@deltas
İtiraf edeyim bu bahsettiğim swf'deki çizimi WMF (Windows Metafile) formatı haline dönüştürüp öyle kullandım. İstanbul ve Çanakkale boğazlarını 3 pixel genişliğinde koridor olacak şekilde birleştirdim ki bir floodfill ile boyadığım bölge boğazın karşısındaki diğer kısmına da erişebilsin.

Uygun bir zaman bulursam kaynak kodlarını ana projeden ayırıp müstakil bir örnek hazırlarım. WMF'ler resource olarak gömülü olduğundan WMF'leri resourcehacker gibi bişey ile açmam gerekecek. Biraz yoğunum az boşluklarda sadece mesajlara bakıp mümkünse cevap yazabiliyorum. Yedek HDD'si yanımda önce oradan bakar bulursam hemen haritayı yollarım.