Çevrimdışı

Script özelliğinde yazı boyutunu ayarlama var bununla alakası olabilir mi? bu Asci karakterlerin ;


alias getfont {
if ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].select)) {
var %i = $input(Baska bir font dialogu açik.,ogw,Hata)
window -a @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].select
}
else {
var %active = $iif($window($1),$1,$iif($window($active),$active) ),%para = -dhn +L,%gf = $true
if (m isincs $2) && (d !isincs $2) { %para = -Bhp +dL }
if (r isincs $2) && (m !isincs $2) { %gf = $false }
window %para @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].select 100 100 1 1
if (%active) { font $iif($window(%active).fontbold,-b) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].select " $+ $window(%active).font $+ " $window(%active).fontsize }
if (%gf) {
window -a @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].select
font
}
var %font = $window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].select).font $+ ; $+ $floor($calc($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].select).fontsize /4*3)) $+ ; $+ $iif($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].select).fontbold,bold,normal)
window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].select
return %font
}
}

alias yazib {
if !$dialog(yazib) {
dialog -m yazib yazib
}
else {
dialog -v yazib
}
}

dialog yazib {
title "Siber; Yazi Büyüklükleri"
size -1 -1 107 125
option dbu
radio "1 - Küçük yazilar", 9, 9 8 91 10
radio "2 - Orta boya yakin yazilar", 10, 9 20 91 10
radio "3 - Orta boy yazilar", 11, 9 32 91 10
radio "4 - Standart boyda yazilar", 12, 9 44 91 10
radio "5 - Büyük-orta boy arasi yazilar", 13, 9 56 91 10
radio "6 - Büyük yazilar", 14, 9 68 91 10
radio "7 - Çok büyük yazilar", 15, 9 80 91 10
radio "8 - Çok büyük yazilar 2", 16, 9 92 91 10
button "Kapat", 99, 66 111 37 10, ok
box "", 100, 4 1 99 105
text "Font", 110, 4 112 60 8
}

on *:dialog:yazib:*:*:{
if $devent == init {
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetBorderStyle 99 staticedge
mdx SetFont 99,110 12 700 tahoma
did -a $dname 110 $getfont($active,r)
if $did($dname,$window($active).fontsize).state == 0 || $did($dname,$window($active).fontsize).state == 1 {
did -c $dname $window($active).fontsize
}
}
if $devent == sclick {
if $did != 110 && $did != 100 && $did != 99 && $did {
font -asgdz $did
did -a $dname 110 $getfont($active,r)
}
}
}