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
Yardımlarınızı bekliyorum
Resimin Renkini Nasıl Deyişe Bilirim
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Resimin Renkini Nasıl Deyişe Bilirim
< The Best Boy >
Re: Resimin Renkini Nasıl Deyişe Bilirim
iki resim kullan butona tıklanınca 2. resmi göster istediğin renkte.
- huseyinkucuk
- Üye
- Mesajlar: 142
- Kayıt: 29 Nis 2005 10:03
- Konum: İstanbul
- İletişim:
Re: Resimin Renkini Nasıl Deyişe Bilirim
Canvas.FloodFill(); komutunu incelemeni tavsiye ederim...
29.04.2005 tarihi itibariyle Delphi öğrenmeye başlayan yeni bir kullanıcı sayılabilirim.
Re: Resimin Renkini Nasıl Deyişe Bilirim
huseyinkucuk yazdı:Canvas.FloodFill(); komutunu incelemeni tavsiye ederim...
bu komut ile ilgili bir az bilgi vere bilirmisin
< The Best Boy >
- huseyinkucuk
- Üye
- Mesajlar: 142
- Kayıt: 29 Nis 2005 10:03
- Konum: İstanbul
- İletişim:
Re: Resimin Renkini Nasıl Deyişe Bilirim
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:
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...
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;
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.
Re: Resimin Renkini Nasıl Deyişe Bilirim
huseyinkucuk kod için teşekürler ben kendime göre ayarlarım
< The Best Boy >