Delphide Resim Rengini Bulma!

   Bir projemde gerek duyduğum bir sebepten dolayı kullandığım resmin rengini bulmaya ihtiyaç duydum.Ama photoshop ve indirdiğim bu işi gören programlarla bulduğum renk kodlarını delphide 7 kullanamadım çünkü farklıydı.
Ve Murat abinin : 

edit.Color:=image1.Picture.Bitmap.Canvas.Pixels[0,0];// {Teşekkürler Murat abi :) }

Koduyla istediğimi yaptım.Bu koddaki pixels kısmına girdiğiniz değerler imagedeki renk değerini alacağınız yerin kordinatlarını ifade ediyor.Ve image kesinlikle bmp olmalı!

Ben herzaman böyle uğraşmamak için bu işlemi yapan bir uygulama geliştirdim.
Varsayalım ki başka bir programın veya başka herhangi bir resmin,cismin rengi hoşumuza gitti ve programımızda kullanmak istiyoruz;
öncelikle rengini alacağımız şeyin ekran görüntüsünü alarak bmp olarak kaydediyoruz.
Sonra basettiğim uygulamayı(Resimci1.0) açıyoruz ve çift tıklama ile resim açma penceresi açılıyor ve renk değerini alacağımız bmp uzantılı dosyamızı seçip tamam diyoruz.Sonra resimde tıkladığımız noktanın zaten otematik olarak rengi ve delphi renk kodu alınıyor :) :)

Delphi içerisinde kullanımınına örnek verecek olursak :

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Color:= $003b7771;
end;

Programı indirmek için tıklayınız

Yazar	Mesaj Konuyu Paylaş Konuyu Yazdır Google Delicious Digg StumbleUpon Windows Live Yahoo Bookmarks reddit Facebook MySpace Newsvine Furl Konu Bilgi Ara Konu Ayarları Yanıt Yaz Yeni Konu
Deadly_scorpion Üye Profili Özel Mesaj Yolla Bu kullanıcıya ait mesajları bul Üyenin Web Sitesie Git Arkadaş Listeme Ekle Newbie YaŞaYan Ölü Kayıt Tarihi: 21.Temmuz.2007 Bulundugu Yer: Hüzün Adası Online: Sitede Değil Gönderilenler: 166	Alıntı Cevapla Konu: Delphide Resim Rengini Bulma! Gönderim Zamanı: 28.Ocak.2009 Saat 18:44
	Bir projemde gerek duyduğum bir sebepten dolayı kullandığım resmin rengini bulmaya ihtiyaç duydum.Ama photoshop ve indirdiğim bu işi gören programlarla bulduğum renk kodlarını delphide 7 kullanamadım çünkü farklıydı. Ve Murat abinin : edit.Color:=image1.Picture.Bitmap.Canvas.Pixels[0,0];// {Teşekkürler Murat abi :) } Koduyla istediğimi yaptım.Bu koddaki pixels kısmına girdiğiniz değerler imagedeki renk değerini alacağınız yerin kordinatlarını ifade ediyor.Ve image kesinlikle bmp olmalı! Ben herzaman böyle uğraşmamak için bu işlemi yapan bir uygulama geliştirdim. Varsayalım ki başka bir programın veya başka herhangi bir resmin,cismin rengi hoşumuza gitti ve programımızda kullanmak istiyoruz; öncelikle rengini alacağımız şeyin ekran görüntüsünü alarak bmp olarak kaydediyoruz. Sonra basettiğim uygulamayı(Resimci1.0) açıyoruz ve çift tıklama ile resim açma penceresi açılıyor ve renk değerini alacağımız bmp uzantılı dosyamızı seçip tamam diyoruz.Sonra resimde tıkladığımız noktanın zaten otematik olarak rengi ve delphi renk kodu alınıyor :) :) Delphi içerisinde kullanımınına örnek verecek olursak : procedure TForm1.FormCreate(Sender: TObject); begin form1.Color:= $003b7771; end; Programı indirmek için tıklayınız
	Belki bir parça tuhafım...