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/ 


Kirim email ke