Formu siyah-beyaza dönüştürme

[uğur alkan]

Formu tıpkı windows un kapanışında olduğu gibi siyah beyaz bir resme nasıl dönüştebiliriz ?

[serkan]

bunun için sanırım hazır bir fonksiyon yoktur.sanırım formun o andaki kordinatlarını alıp jpg.olarak ekran görüntüsünü alıp onuda siyah beyaza çevirip gösterebilirsin.yada mümkünse ekran kartının gama ayarlarını delphiden ayarlayıp siyah beyaz bir görüntü oluşturabilirsin.o zaman komple windows siyah beyaz olur falan filan.bişeler bulbilirsen forma yazarsın bizde faydalanırız.

[kadirkurtoglu]

esasen windowsta birden siyah beyaz olmuyor kademe, kademe oluyor.

arka plan resminizi bir photo editörde kademe, kademe renk ayarlarını düşürüp kaydedin daha sonra Timer de interval 1000 aralığında kademe, kademe resimleri gösterbilirsiniz. resim dışında kalan öğeler içi ise resimlerin kademe renk ayarlarına göre renk ayarlarını değiştirebilirsiniz.

Kolay Gelsin...

[rsimsek]

Zamanında Clipper ile DOS (80x25) ekranında renk paletindeki RGB yi ayrı ayrı azaltarak benzer bir şey yapmıştım

Kod: Tümünü seç

...
PROCEDURE EkrKoru
local i, renk, n, arred, argreen, arblue, c
if !ShowTimeFlag
  KEYSEC()
  tone(1500,1)
  private Rw:=ROW(), Cl:=COL(), osbl:=setblink(.f.)
  private ocol:=setcolor('w+*/b'), ocur:=setcursor(0)

  arred={}
  argreen={}
  arblue={}
  for c=1 to 15
    aadd(arred,_RED(c-1))
    aadd(argreen,_GREEN(c-1))
    aadd(arblue,_BLUE(c-1))
  next
  if 'MONO' $ GETMODE()
  else
  FOR i = 62 TO 25 STEP -9
    n := i / 63
    for c=1 to 15
      VGAPALETTE(c-1, n * arred[c], n * argreen[c], n * arblue[c])
    next
  next
  endif

  Saat_Bas()

  for c=1 to 15
    VGAPALETTE(c-1, arred[c], argreen[c], arblue[c])
  next

  setblink(osbl)
  setcolor(ocol)
  SETPOS(Rw,Cl)
  setcursor(ocur)
endif
KEYSEC(K_SH_F10,KapatSuresi*60,1,.T.)
RETURN
...

[mrmarman]

WinXP ilk çıktığında benim de hoşuma giden bir animasyondu bu. Onun için taa o zamanlar üzerinde çalıştığım kodu makale ve ipucu kısmına ekledim.

viewtopic.php?p=106429

- İnceleyin, geliştirin, kullanın

[rsimsek]

DOS ortamında toplam 16 rengi kontrol etmek daha kolaymış hocam

[mrmarman]

- Hocam pixel sayısı artınca her pixel'in de 24 bitlik derinliği olunca zor oluyor haklısın...

[kadirkurtoglu]

ben yukarda yazdığım örneği test ettim. windows kapanışındaki animasyona yakın bir görüntü elde ettim.

[mrmarman]

@kadirkurtoglu

- Buradaki etkileyici unsur dinamizm. Yani bunun gerçekliği, formun son halindeki, kullanıcının üzerinde yazdığı veya yansıyan bilgilerle birlikte gerçekleşiyor olmasıdır.

- Animatif etki farklı, insanı etkilemesi daha farklı.

[mrmarman]

Arkadaşlar...

- Ref: viewtopic.php?p=106429 yani makale ve ipucu kısmında verdiğim kodu yeniden ele aldım ve geliştirip aynı başlıkta güncelledim.

- Şimdi GDI fonksiyonları ile hem daha hızlı bir AlphaBlend fonksiyonuna kavuşturdum hem de Formun tümünün resmini çekip uygulamaya koydurdum. Hani daha önceki bahsettiğim şeklin uygulamasını koydum.

- Grafik uygulama geliştiricileri için ideal bir örnek oldu.

- Afiyet olsun

[uğur alkan]

Herkese çok teşekkürler........ <<<