[manikdepresif]

Genisligi ve yuksekligi elle girilen resimleri tek karede birlestirip kaydetmenizi saglar.
-
Kullanim:
Sag tiklayip menuden @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Birlestirici seciyorsunuz
Genislik, yukseklik ayarini cift tiklayip girip daha sonra resimleri max yazinlan miktar kadar yukluyorsunuz
Picture window penceresine resimler yuklenecektir.
&Kaydet secenegini cift tikladiginizda resimler tek karede bilgisayariniza kaydedilecektir.
-
İleriki zamanlarda kodda birkac degisiklik yapacagimi umuyorum.Extra birseyler

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;Resim Birlestirici - yzr: jeun;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


menu * {
  @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Birlestirici:resimler
}

menu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Birlestirme {
  dclick:{
    if (*Resim*Geni* iswm $sline($_rpen,1)) {
      set %resim_genislik $?="Resim Genisliğini Girin"
      if %resim_genislik  !isnum  {  noop $?*!="rakam girmelisiniz" | return }
      rline -l $_rpen 1 Resim Genisligi: %resim_genislik 
      rline -l $_rpen 3 % $+ Resim Sayisi(max.): $resimleri_yerlestir(j)
      cline -l 3 $_rpen 1
      return
    }
    if (*Resim*Y?ksek* iswm $sline($_rpen,1)) {
      set %resim_yukseklik $?="Resim Yuksekligini Girin"
      if (%resim_yukseklik !isnum)  {  noop $?*!="rakam girmelisiniz" | return }
      rline -l $_rpen 2 Resim Yuksekligi: %resim_yukseklik
      rline -l $_rpen 3 % $+ Resim Sayisi(max.): $resimleri_yerlestir(j)
      cline -l 3 $_rpen 2
      return
    }
    if (*Resimleri*Se?in* iswm $sline($_rpen,1)) {
      if ($line($_rpen,1,1).color == 4 || $line($_rpen,2,1).color == 4) { 
        noop $?*!="once resim genislik ve yukseklik degerlerini girmelisiniz"  | return 
      }
      noop $msfile(.,Resimlere Gözat,Sec)
      var %m = 1
      ;dizinden secim yoksa
      if !$msfile(%m) { return }
      while $msfile(%m) {
        var %f = $msfile(%m)
        if ($regex(%f,(.+)\.(bmp|jpeg|jpg|png|gif)$)) { aline -l $_rpen %f }
        inc %m
      }
      .timer -h 1 300 resimleri_yerlestir
      cline -l 3 $_rpen 4
    }
    if (*Resimleri*Listeden*Kald* iswm $sline($_rpen,1)) {
      dline -l $_rpen 7- $+ $line($_rpen,0,1)
      clear $_rpen
      return
    }
    if (&kaydet* iswm $sline($_rpen,1)) {
      drawsave -q90 $_rpen Resim-Birlestirme $+ - $+ $time(HH-nn-ss) $+ .jpg
      run Resim-Birlestirme $+ - $+ $time(HH-nn-ss) $+ .jpg
    }
  }
  ;mouse:titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]le X: $mouse.x Y: $mouse.y
}
;
alias -l _rpen return @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Birlestirme
;
alias resimler {
  if !$window($_rpen) { window -epl20 $_rpen }
  aline -l 4 $_rpen Resim Genisligi: 250
  aline -l 4 $_rpen Resim Yuksekligi: 250
  aline -l $_rpen % $+ Resim Sayisi(max.): $resimleri_yerlestir(j) 
  aline -l 4 $_rpen Resimleri Secin..
  aline -l 4 $_rpen &Kaydet
  aline -l 4 $_rpen &Resimleri Listeden Kaldir
}

alias -l resimleri_yerlestir {
  var %bwres = $window($_rpen).bw 
  var %bhres = $window($_rpen).bh
  var %bw_kactane_sigar = $int($calc(%bwres / %resim_genislik)) 
  var %bh_kactane_sigar = $int($calc(%bhres / %resim_yukseklik))
  var %toplam_kactane_sigar = $calc(%bw_kactane_sigar * %bh_kactane_sigar)
  if $1 { return %toplam_kactane_sigar } 
  var %z = 1, %n = 1, %x = 1, %y = 1, %t = 7
  ;soldan saga siralama baslangic.
  while (%z <= %toplam_kactane_sigar) {
    if $line($_rpen,%t,1) {
      .timer -h 1 300 drawpic -s $_rpen %x %y %resim_genislik %resim_yukseklik $qt($line($_rpen,%t,1))
      ;echo : x: %x  y: %y bwadet: %bw_kactane_sigar  topkactane: %toplam_kactane_sigar
      if (%bw_kactane_sigar // %z) { var %x = 1 | inc %y %resim_yukseklik  | ;echo -s ok  |  goto atlax }
      inc %x %resim_genislik
      :atlax 
      inc %t
    }
    inc %z
  }
}

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.