Karışık Yazı Tipleri Hazır Kodu
alias yati {
if $dialog(yazitip) = $null { dialog -m yazitip yazitip }
else { halt }
}
dialog yazitip {
title "Yazıtipi"
size 250 150 110 170
radio "Elit",1,10 10 90 20
radio "Full Ascii",2,10 30 90 20
radio "Ters",3,10 50 90 20
radio "Büyük-Küçük",4,10 70 90 20
radio "Renkli",5,10 90 90 20
radio "Normal",19,10 110 90 20
box "",20,5 0 100 135
button "Tamam",21,5 145 100 20,ok
}
on 1:dialog:yazitip:sclick:1:{ .disable #ters | .disable #elit | .enable #turkce | .disable #buykuc | .disable #renkli }
on 1:dialog:yazitip:sclick:2:{ .disable #ters | .enable #elit | .disable #turkce | .disable #buykuc | .disable #renkli }
on 1:dialog:yazitip:sclick:3:{ .enable #ters | .disable #elit | .disable #turkce | .disable #buykuc | .disable #renkli }
on 1:dialog:yazitip:sclick:4:{ .disable #ters | .disable #elit | .disable #turkce | .enable #buykuc | .disable #renkli }
on 1:dialog:yazitip:sclick:5:{ .enable #renkli | .disable #ters | .disable #elit | .disable #turkce | .disable #buykuc }
on 1:dialog:yazitip:sclick:19:{ .disable #renkli | .disable #ters | .disable #elit | .disable #turkce | .disable #buykuc }
on 1:dialog:yazitip:init:0:{
if ($group(#turkce).status == on ) { did -c yazitip 1 }
if ($group(#elit).status == on ) { did -c yazitip 2 }
if ($group(#ters).status == on ) { did -c yazitip 3 }
if ($group(#buykuc).status == on ) { did -c yazitip 4 }
if ($group(#renkli).status == on ) { did -c yazitip 5 }
if ($group(#turkce).status == off ) && ($group(#elit).status == off ) && ($group(#ters).status == off ) && ($group(#buykuc).status == off ) && ($group(#renkli).status == off ) { did -c yazitip 19 }
}
#renkli off
Diğer hazır kodlar için tıklayınız!
