| manikdepresif | 05 Ekim 2025 19:39 |
Resimlere yazi eklemek
[Aciklama]
Listeden sectiginiz resimlere belirtilen font, belirtilen renk ve belirtilen yazi eklemesi yapmaniza yardimci olur. 100 adet resimde denenmis olup guzel sonuclar alinmistir.
[Kullanim]
Mouse ile sag tik yaparak "Resimlere Yazi Ekle" menusunden islemlerinizi yapabilirsiniz. Kod:
alias resimpen return @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ler-Penceresi
alias _ilkresimciz { clear $resimpen | drawpic -s $resimpen -1 -1 $window($resimpen).bw $window($resimpen).bh $qt($fline($resimpen,/(bmp|jpeg|jpg|png)/i,1,3).text) }
alias _tum_resimleri_ciz_ve_farkli_dosyaya_kaydet {
set -eu30 %resimler_islemede OK
if !$isdir(yaziliresimler) { .mkdir yaziliresimler }
var %j = 1
while $fline($resimpen,/(bmp|jpeg|jpg|png)/i,%j,3).text {
var %dsy = $nopath($v1)
window -a $resimpen
clear $resimpen
drawpic -s $resimpen -1 -1 $window($resimpen).bw $window($resimpen).bh $qt($fline($resimpen,/(bmp|jpeg|jpg|png)/i,%j,3).text)
_resme_yaz %resim-yazi-pozisyon
drawsave -b32q100 $resimpen $qt(yaziliresimler\ $+ %dsy)
inc %j
}
run yaziliresimler
}
alias _resme_yaz {
if ($1 == Alt) {
if ($2 == sag) {
if (%resimler_islemede == $null) { _ilkresimciz }
drawtext $resimpen %resim_yazi_rengi arial %resim_yazi_buyukluk $calc(%ekran_genislik - %yazi_genislik -10) $calc(%ekran_yukseklik - %yazi_yukseklik) %resim_yazisi
}
if ($2 == sol) {
if (%resimler_islemede == $null) { _ilkresimciz }
drawtext $resimpen %resim_yazi_rengi arial %resim_yazi_buyukluk 5 $calc(%ekran_yukseklik - %yazi_yukseklik) %resim_yazisi
}
if ($2 == orta) {
if (%resimler_islemede == $null) { _ilkresimciz }
drawtext $resimpen %resim_yazi_rengi arial %resim_yazi_buyukluk $calc($calc(%ekran_genislik / 2) - $calc(%yazi_genislik / 2)) $calc(%ekran_yukseklik - %yazi_yukseklik) %resim_yazisi
}
}
if ($1 == Ust) {
if ($2 == sag) {
if (%resimler_islemede == $null) { _ilkresimciz }
drawtext $resimpen %resim_yazi_rengi arial %resim_yazi_buyukluk $calc(%ekran_genislik - %yazi_genislik - 5) 1 %resim_yazisi
}
if ($2 == sol) {
if (%resimler_islemede == $null) { _ilkresimciz }
drawtext $resimpen %resim_yazi_rengi arial %resim_yazi_buyukluk 1 1 %resim_yazisi
}
if ($2 == orta) {
if (%resimler_islemede == $null) { _ilkresimciz }
drawtext $resimpen %resim_yazi_rengi arial %resim_yazi_buyukluk $calc($calc(%ekran_genislik / 2) - $calc(%yazi_genislik / 2)) 1 %resim_yazisi
}
}
}
menu * {
dclick:{
if $window($resimpen) {
set %yazi_genislik $width(%resim_yazisi,arial,%resim_yazi_buyukluk)
set %yazi_yukseklik $height(%resim_yazisi,arial,%resim_yazi_buyukluk)
set %ekran_genislik $window($resimpen).bw
set %ekran_yukseklik $window($resimpen).bh
if (*Resimleri Yukle* iswm $sline($resimpen,1)) {
noop $msfile(.,Resimlere Gözat,Sec)
var %m = 1
if !$msfile(%m) { return }
while ($msfile(%m)) {
var %f = $msfile(%m)
if ($regex(%f,(.+)\.(bmp|jpeg|jpg|png)$)) { aline -l $resimpen %f }
inc %m
}
_ilkresimciz
set %resim_yazi_rengi $?="Resime eklenecek yazinin rengini girin [0~15]"
if (%resim_yazi_rengi !isnum) { set %resim_yazi_rengi 1 }
iline -l %resim_yazi_rengi $resimpen 2 Renk Secimi = %resim_yazi_rengi
set %resim_yazi_buyukluk $?="Resime eklenecek yazinin buyuklugunu girin [10~40]"
if (%resim_yazi_buyukluk <= 10 && %resim_yazi_buyukluk !isnum) { set %resim_yazi_buyukluk 10 }
iline -l 3 $resimpen 3 Font Buyuklugu = %resim_yazi_buyukluk
set %resim_yazisi $?="Resime eklenecek yaziyi girin"
if (!%resim_yazisi) { set %resim_yazisi [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | return }
iline -l 3 $resimpen 4 Yazi: %resim_yazisi
iline -l 4 $resimpen 5 Alt sag
iline -l 4 $resimpen 6 Alt sol
iline -l 4 $resimpen 7 Alt orta
iline -l 4 $resimpen 8 Ust sag
iline -l 4 $resimpen 9 Ust sol
iline -l 4 $resimpen 10 Ust orta
cline -l 3 $resimpen 1
iline -l $resimpen 11 &YENIDEN BASLAT
iline -l 4 $resimpen 12 @Tum Resimlere Yaz ve Kaydet
}
if ($regex($sline($resimpen,1),/^(Alt|Ust)\s(sag|sol|orta)/i)) {
set %yazi_genislik $width(%resim_yazisi,arial,%resim_yazi_buyukluk)
set %yazi_yukseklik $height(%resim_yazisi,arial,%resim_yazi_buyukluk)
set %ekran_genislik $window($resimpen).bw
set %ekran_yukseklik $window($resimpen).bh
set %resim-yazi-pozisyon $regml(1) $regml(2)
_resme_yaz %resim-yazi-pozisyon
;
}
}
if (Renk Secimi* iswm $sline($resimpen,1)) {
set %resim_yazi_rengi $?="Resime eklenecek yazinin rengini girin [0~15]"
rline -l $resimpen 2 Renk Secimi = %resim_yazi_rengi
cline -l %resim_yazi_rengi $resimpen 2
_resme_yaz %resim-yazi-pozisyon
}
if (Font Buyuklugu* iswm $sline($resimpen,1)) {
set %resim_yazi_buyukluk $?="Resime eklenecek yazinin buyuklugunu girin [10~40]"
rline -l $resimpen 3 Font Buyuklugu = %resim_yazi_buyukluk
cline -l 3 $resimpen 3
set %yazi_genislik $width(%resim_yazisi,arial,%resim_yazi_buyukluk)
set %yazi_yukseklik $height(%resim_yazisi,arial,%resim_yazi_buyukluk)
_resme_yaz %resim-yazi-pozisyon
}
if (Yazi* iswm $sline($resimpen,1)) {
set %resim_yazisi $?="Resime eklenecek yaziyi girin"
rline -l $resimpen 4 Yazi = %resim_yazisi
cline -l 3 $resimpen 4
set %yazi_genislik $width(%resim_yazisi,arial,%resim_yazi_buyukluk)
set %yazi_yukseklik $height(%resim_yazisi,arial,%resim_yazi_buyukluk)
_resme_yaz %resim-yazi-pozisyon
}
if (&YENIDEN BASLAT == $sline($resimpen,1)) {
window -c $resimpen
window -al20p $resimpen | aline -l 4 $resimpen Resimleri Yukle
}
if (@Tum Resimlere Yaz ve Kaydet == $sline($resimpen,1)) {
if (%resim-yazi-pozisyon == $null) { set %resim-yazi-pozisyon Sag Alt }
_tum_resimleri_ciz_ve_farkli_dosyaya_kaydet
}
}
Resimlere Yazi Ekle: { clear $resimpen | clear -l $resimpen | window -al20p $resimpen | aline -l 4 $resimpen Resimleri Yukle }
}
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] |
