Resimin Renkini Nasıl Deyişe Bilirim

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
subhan
Üye
Mesajlar: 224
Kayıt: 05 Mar 2008 08:18

Resimin Renkini Nasıl Deyişe Bilirim

Mesaj gönderen subhan »

Sleam

arkadaşlar ben böyle bir şey yapmak istiyorum diyelimki resimde sadece kırmızı ve beyaz renk var şimdi
butona tıklanınca resimde buluana kırmızı renk her hangı bir renk-de olsun (siyah - pempe -yeşil vs.)

bir tane .gif resimi ekliyorum daha iyi anlaşılsın diye
Renk.gif
Renk.gif (7.39 KiB) 2114 kere görüntülendi
Yardımlarınızı bekliyorum
< The Best Boy >
khanco
Üye
Mesajlar: 226
Kayıt: 01 Eki 2007 04:39
Konum: İzmir
İletişim:

Re: Resimin Renkini Nasıl Deyişe Bilirim

Mesaj gönderen khanco »

iki resim kullan butona tıklanınca 2. resmi göster istediğin renkte.
Kullanıcı avatarı
huseyinkucuk
Üye
Mesajlar: 142
Kayıt: 29 Nis 2005 10:03
Konum: İstanbul
İletişim:

Re: Resimin Renkini Nasıl Deyişe Bilirim

Mesaj gönderen huseyinkucuk »

Canvas.FloodFill(); komutunu incelemeni tavsiye ederim...
29.04.2005 tarihi itibariyle Delphi öğrenmeye başlayan yeni bir kullanıcı sayılabilirim.
Kullanıcı avatarı
subhan
Üye
Mesajlar: 224
Kayıt: 05 Mar 2008 08:18

Re: Resimin Renkini Nasıl Deyişe Bilirim

Mesaj gönderen subhan »

huseyinkucuk yazdı:Canvas.FloodFill(); komutunu incelemeni tavsiye ederim...

bu komut ile ilgili bir az bilgi vere bilirmisin
< The Best Boy >
Kullanıcı avatarı
huseyinkucuk
Üye
Mesajlar: 142
Kayıt: 29 Nis 2005 10:03
Konum: İstanbul
İletişim:

Re: Resimin Renkini Nasıl Deyişe Bilirim

Mesaj gönderen huseyinkucuk »

Hocam...
Formun üzerine 1 adet TImage koydum ve paintte çizdiği (3 - 4 renkten oluşan) bir bitmap resmini buraya yükledim.
OnMouseDown özelliğine de şunları yazdım:

Kod: Tümünü seç

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Renk:TColor;
begin
  Renk:=(Sender as TImage).Canvas.Pixels[X,Y];
  (Sender as TImage).Canvas.Brush.Color:=clBlack;
  (sender as TImage).Canvas.FloodFill(X,Y,Renk,fsSurface);
end;
Tıkladığımız yerdeki rengi alıyoruz.
Daha sonra fırçamızın rengini siyah yapıyoruz (Henüz ortalıkta bir değişim yok).
Son olarak da aldığımız renkten (Renk değişkenindeki renkten) oluşan parçayı (parça olduğunu fsSurface ile belirttik) boyuyoruz...

Senin dediğin şeyi timer nenesiyle yapabilirsin sanıyorum.
Kolay gelsin...
29.04.2005 tarihi itibariyle Delphi öğrenmeye başlayan yeni bir kullanıcı sayılabilirim.
Kullanıcı avatarı
subhan
Üye
Mesajlar: 224
Kayıt: 05 Mar 2008 08:18

Re: Resimin Renkini Nasıl Deyişe Bilirim

Mesaj gönderen subhan »

huseyinkucuk kod için teşekürler ben kendime göre ayarlarım
< The Best Boy >
Cevapla