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