terimakasih banyak atas responnya, sangat membantu saya yang masih sangat awam. hanya saya masih kesulitan mengatasi kasus digitalisasi citra ini. permasalahannya adl sbb: misalkan saya mempunyai data gambar/citra curah hujan, ada 7 "tingkatan warna" pada citra tsb. untuk curah hujan tertinggi (pada citra tersebut) direpresentasikan dengan warna ungu, untuk curah hujan kedua tertinggi direpresentasikan dengan warna nila, untuk curah hujan ketiga tertinggi direpresentasikan dengan warna biru, dst s/d: untuk curah hujan terendah direpresentasikan dengan warna merah.
jadi di dalam citra tersebut ada semacam legend "peta warna" (colormap bar), interval 1 s/d 7. saya ingin setelah citra tersebut (.bmp) ditampilkan dlm program yg saya buat, pada saat mouse diklik di daerah citra tsb, maka sesudahnya warna yg diklik itu dapat digitalisasi sbb: warna ungu (yg notabene adalah curah hujan tertinggi) digitalisasi sebagai angka 7 warna nila (yg notabene adalah curah hujan kedua tertinggi) digitalisasi sebagai angka 6 dst s/d: warna merah (yang notabene adalah curah hujan terendah) digitalisasi sebagai angka 1 dan hasil klik mouse tsb dapat ditampilkan & disimpan pada komponen memo dalam format .txt bagaimana source code delphi-nya (saat mouse di klik pada image, terjadi proses digitalisasi lalu hasilnya disimpan dalam memo berformat .txt??) sbg info: sumbu x pada citra tersebut adl: derajat bujur sumbu y pada citra tersebut adl: derajat lintang mohon bantuan rekan2 milis yth, saya sangat2 membutuhkan bantuan anda untuk bantuan yg sifatnya komersial, silakan hubungi saya via japri: [EMAIL PROTECTED] terima kasih. Misalkan anda mempunyai TImage dengan format bmp, ambil 1 pixel misalnya posisi pixel 1,1. Gunakan fungsi GetRValue(pixel),GetGValue(pixel),GetBValue(pixel). Dengan definisi merah dimana R=255 G=0 dan B=0 maka nilai untuk kombinasi ini =1 dst. Disarankan untuk menggunakan toleransi warna dimana R antara r-255 G=0-g dan B=0-b (sebagai toleransi suatu warna dianggap MERAH) selanjutnya lihat help Win32 Developer's Reference selamat mencoba Mahmud --------------------------------- Do you Yahoo!? Exclusive Video Premiere - Britney Spears [Non-text portions of this message have been removed] ------------------------ Yahoo! Groups Sponsor ---------------------~--> Rent DVDs Online - Over 14,500 titles. No Late Fees & Free Shipping. Try Netflix for FREE! http://us.click.yahoo.com/vhSowB/XP.FAA/3jkFAA/i7folB/TM ---------------------------------------------------------------------~-> Berlangganan: [EMAIL PROTECTED] Stop Berlangganan: [EMAIL PROTECTED] Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED] Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
