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: Resmi Kabartmalı Göstermek  (Okunma sayısı 2134 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
Resmi Kabartmalı Göstermek
« : 13 Ekim 2005 19:50:02 »
Kod:  (Unknown Language)
  1. Procedure Emboss(ABitmap: TBitmap; AMount: Integer);
  2.  
  3. Var
  4.  
  5.    x, y, i: Integer;
  6.  
  7.    p1, p2: PByteArray;
  8.  
  9.  
  10.  
  11. Begin
  12.  
  13. For i:= 0 To AMount Do
  14.  
  15.     Begin
  16.  
  17.     For y:= 0 To ABitmap.Height-2 Do
  18.  
  19.         Begin
  20.  
  21.         p1:= ABitmap.ScanLine[y];
  22.  
  23.         p2:= ABitmap.ScanLine[y+1];
  24.  
  25.  
  26.  
  27.         For x:= 0 To ABitmap.Width Do
  28.  
  29.             Begin
  30.  
  31.             p1[x*3]  := (p1[x*3]+(p2[(x+3)*3]     xor $FF)) Shr 1;
  32.  
  33.             p1[x*3+1]:= (p1[x*3+1]+(p2[(x+3)*3+1] xOr $FF)) Shr 1;
  34.  
  35.             p1[x*3+2]:= (p1[x*3+1]+(p2[(x+3)*3+1] xOr $FF)) Shr 1;
  36.  
  37.             End;
  38.  
  39.         End;
  40.  
  41.     End;
  42.  
  43. End;
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::

Çevrimdışı 1olk

  • Delphi 1 Level 3
  • ***
  • İleti: 26
  • Rep: +0/-0
  • Cinsiyet: Bay
    • Birol Köklü Kişisel Weblogu
Ynt: Resmi Kabartmalı Göstermek
« Yanıtla #1 : 22 Temmuz 2008 10:46:54 »
buradaki XOR komutu ne işe yarıyor ?
ve AND komutuda vardı sanırım..

bu ilk sorum :) ben forumda yeniyim..
Kayıtlı
golll..

Çevrimdışı geveze_Ercan

  • Delphi 1 Level 1
  • *
  • İleti: 7
  • Rep: +0/-0
Ynt: Resmi Kabartmalı Göstermek
« Yanıtla #2 : 29 Temmuz 2008 09:37:49 »
xor koşullu veya komutudur
and ise ve komutudur.
frumda yeni olabilirsin bunda bir sakınca yok ama bence sen delphidede yenisin.unutmayın copy-paste ile programcı olunmaz... biraz mantık yürütün.
Kayıtlı

Çevrimdışı 1olk

  • Delphi 1 Level 3
  • ***
  • İleti: 26
  • Rep: +0/-0
  • Cinsiyet: Bay
    • Birol Köklü Kişisel Weblogu
Ynt: Resmi Kabartmalı Göstermek
« Yanıtla #3 : 29 Temmuz 2008 10:01:36 »
afferim sana
bi öğrenmişsiniz copy paste copy paste.. ne bu ya.. ben neyini kopyalayacağım kardeşim "xor" komutunun neye yaradığını..
üye oldum insanlarla konuşabilmek için ortamın içinde olmak için bişeyler sorduk..

ayrıca çok merak ediyorsan, bilgisayar teknik meslek mezunuyum, iki yıllım bilgisayar teknolojileri ve programlama bitirdim ist. üni.de...

öğrenmek için buradayım. belki xor bilmiyorum ama.. ukala ve önyargılı değilim.. kocatürk isimli kullanıcıyı örnek almalısın kendine.. sadece programcı olmakla adam olunmaz...
Kayıtlı
golll..
Sayfa: [1]   Yukarı git
« önceki sonraki »