Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Graphic - Resmin Parlaklığını Arttırmak  (Okunma sayısı 2355 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı CMNSOFT

  • Delphi 2 Level 4
  • ****
  • İleti: 82
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.cmnsoft.com
Graphic - Resmin Parlaklığını Arttırmak
« : 13 Ekim 2005 19:53:43 »
Kod:  (Unknown Language)
  1. Procedure Highlight(aSource, ATarget: TBitmap; AColor: TColor);
  2.  
  3. Var
  4.  
  5.    i, j: Integer;
  6.  
  7.    s, t: pRGBTriple;
  8.  
  9.    r, g, b: Byte;
  10.  
  11.    cl: TColor;
  12.  
  13.  
  14.  
  15. Begin
  16.  
  17. cl:= ColorToRGB(AColor);
  18.  
  19. r:= GetRValue(cl);
  20.  
  21. g:= GetGValue(cl);
  22.  
  23. b:= GetBValue(cl);
  24.  
  25. aSource.PixelFormat := pf24bit;
  26.  
  27. ATarget.PixelFormat := pf24bit;
  28.  
  29. ATarget.Width := aSource.Width;
  30.  
  31. ATarget.Height := aSource.Height;
  32.  
  33.  
  34.  
  35. For i:= 0 to aSource.Height - 1 Do
  36.  
  37.   Begin
  38.  
  39.     s:= ASource.Scanline[i];
  40.  
  41.     t:= ATarget.Scanline[i];
  42.  
  43.     For j := 0 to aSource.Width - 1 Do
  44.  
  45.     Begin
  46.  
  47.       t^.rgbtBlue := (b * s^.rgbtBlue) div 255;
  48.  
  49.       t^.rgbtGreen := (g * s^.rgbtGreen) div 255;
  50.  
  51.       t^.rgbtRed := (r * s^.rgbtRed) div 255;
  52.  
  53.       Inc(s);
  54.  
  55.       Inc(t);
  56.  
  57.     End;
  58.  
  59.   End;
  60.  
  61.  
  62.  
  63. End;




Code by K.H. Brenner
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::

Çevrimdışı Ahmet Yeşilçimen

  • Delphi 3 Level 4
  • ****
  • İleti: 131
  • Rep: +1/-0
  • Cinsiyet: Bay
  • Anılar Var Sana Dair
    • Delphi Kılavuzu
Ynt: Graphic - Resmin Parlaklığını Arttırmak
« Yanıtla #1 : 07 Eylül 2009 21:22:46 »
Hocam Nsl Kullanacağımızıda Yazsan Sevinirdik
Kayıtlı
GP

Çevrimdışı solitary

  • Delphi 2 Level 3
  • ***
  • İleti: 75
  • Rep: +0/-0
  • Cinsiyet: Bay
  • " Eşit değiliz "
    • D-Tonkz Opera Blog
Ynt: Graphic - Resmin Parlaklığını Arttırmak
« Yanıtla #2 : 19 Ocak 2010 19:18:22 »
@Ahmet Yeşilçimen
Örneğin bir düğmenin tıklanma olayına yazararak kullanabilirsin.(Button on click)
Bunun için bir forma 2 resim bir düğme koyarsan yeterli olur.

Image1 içine bir resim yerleştir.Denemek için küçük bir resim olsun.
Image2 yide Image1 boturlarında yan yana koy.Image2 nin içine resim koyma yanlız.
Sonra aşağıdaki button1.onClik event ına yerleştir.

Kod:  (Unknown Language)
  1. //.....
  2.  
  3. procedure Form1.Button1OnClick (Sender: TObject);
  4. begin
  5.   Highlight(Image1, Image2,clWhite);
  6. end;
  7. // .....
  8.  
« Son Düzenleme: 19 Ocak 2010 19:19:25 by solitary »
Kayıtlı
D-Tonkz !
(Yazdıklarımdan dolayı bana kızmak yerine, düşünseniz faydanıza olacaktır)

Çevrimdışı Ahmet Yeşilçimen

  • Delphi 3 Level 4
  • ****
  • İleti: 131
  • Rep: +1/-0
  • Cinsiyet: Bay
  • Anılar Var Sana Dair
    • Delphi Kılavuzu
Ynt: Graphic - Resmin Parlaklığını Arttırmak
« Yanıtla #3 : 19 Ocak 2010 20:22:37 »
Sağoll...
Highlight(Image1.Picture.Bitmap, Image2.Picture.Bitmap,clWhite); Olarak Değiştirdim Yazdığınız Şekilde Tip Uyuşmazsızlıgına Neden Oluyor...
Tekrardan Teşekkürler...

Ahmet Yeşilçimen
Kayıtlı
GP

Çevrimdışı solitary

  • Delphi 2 Level 3
  • ***
  • İleti: 75
  • Rep: +0/-0
  • Cinsiyet: Bay
  • " Eşit değiliz "
    • D-Tonkz Opera Blog
Ynt: Graphic - Resmin Parlaklığını Arttırmak
« Yanıtla #4 : 19 Ocak 2010 23:10:31 »
evet, unutmuşum kusura bakmayın.
Uzun süredir ayrıyım bu ortamdan aslında.Fırsat bulmuşken bi ziyarette bulunayım dedim.Ama eksik giderildiğine göre çalışması tamamdır.
Kayıtlı
D-Tonkz !
(Yazdıklarımdan dolayı bana kızmak yerine, düşünseniz faydanıza olacaktır)

Çevrimdışı Ahmet Yeşilçimen

  • Delphi 3 Level 4
  • ****
  • İleti: 131
  • Rep: +1/-0
  • Cinsiyet: Bay
  • Anılar Var Sana Dair
    • Delphi Kılavuzu
Ynt: Graphic - Resmin Parlaklığını Arttırmak
« Yanıtla #5 : 19 Ocak 2010 23:14:29 »
evet teşekkür ederim.
Kayıtlı
GP

Çevrimdışı pibesumse

  • Delphi 5 Level 1
  • *
  • İleti: 206
  • Rep: +0/-0
  • Cinsiyet: Bay
Ynt: Graphic - Resmin Parlaklığını Arttırmak
« Yanıtla #6 : 01 Nisan 2011 20:40:16 »
ben çalıştıramadım butona basınca resim yüklü olan image görüntüsü yok oluyor. image2 zaten boş bişey değişmedi.
Kayıtlı
530 - 430 34 65 [İzmir-Balçova]
Sayfa: [1]   Yukarı git
« önceki sonraki »