| Teori | 11 Aralık 2007 22:14 |
Yanıt: scriptte yazıları küçük yapmak .
Kod:
dialog afonts {
title "Font Ayarları"
size -1 -1 244 78
option dbu
list 1, 4 10 97 58, sort size
scroll "", 2, 102 31 95 8, range 1 35 horizontal
box "", 3, 103 41 95 19
button "&Ekle", 4, 204 12 31 12
button "&Sil ", 5, 204 28 31 12
button "&Kabul", 6, 204 44 31 12, ok
text "&Font:", 7, 102 12 15 8
text "&Boyut:", 8, 102 22 18 8
text "", 9, 118 12 80 8
text "", 10, 118 22 80 8
box "Fontlar", 11, 1 2 240 70
check "&Set as default", 12, 106 47 44 10
check "Bold", 13, 155 47 23 10
}
on *:dialog:afonts:init:*: {
afonts.list
did -ra $dname 9 $gettok($readini($afonts.spc($mircini),fonts,fstatus),1,44)
did -c $dname 2 $readini($afonts.spc($script),fonts,size)
did -ra $dname 10 $readini($afonts.spc($script),fonts,size)
$iif($readini($afonts.spc($script),fonts,default) = 1,did -c $dname 12)
$iif($readini($afonts.spc($script),fonts,bold) = 1,did -c $dname 13)
$iif($gettok($readini($afonts.spc($mircini),fonts,fstatus),1,44),did -c $dname 1 $didwm($dname,1,$ifmatch))
}
on *:dialog:afonts:scroll:2:{
afonts.set $did(2).sel
did -ra $dname 10 $did(2).sel
}
on *:dialog:afonts:sclick:*: {
if ($did = 4) {
write $afonts.spc($scriptdirafonts.dat) $$input(Font adı giriniz ve enter tuşuna basınız!,129)
afonts.list
}
elseif ($did = 5) {
if ($did(1).sel) {
write $+(-dw,$afonts.spc($did(1).seltext)) $afonts.spc($+($scriptdir,afonts.dat))
afonts.list
}
}
elseif ($did = 12) {
writeini -n $afonts.spc($script) fonts default $iif($did(12).state = 1,1,0)
}
elseif ($did = 13) {
writeini -n $afonts.spc($script) fonts bold $iif($did(13).state = 1,1,0)
}
}
on *:dialog:afonts:dclick:*: { if ($did = 1) { afonts.set $did(1).seltext | did -ra $dname 9 $did($dname,1).seltext } }
; Local aliases
alias afonts { $iif(!$dialog(afonts),dialog -m afonts afonts,echo $color(info) -a - Afonts dialog already open!) }
alias -l afonts.bold { if ($readini($afonts.spc($script),fonts,bold) = 1) { return -b } }
alias -l afonts.chans { var %a = 1 | while ($chan(%a)) { | font $afonts.bold $chan(%a) $1- | inc %a } }
alias -l afonts.querys { var %a = 1 | while ($query(%a)) { | font $afonts.bold $query(%a) $1- | inc %a } }
alias -l afonts.chats { var %a = 1 | while ($chat(%a)) { | font $afonts.bold $chat(%a) $1- | inc %a } }
alias -l afonts.cwins { var %a = 1 | while ($window(%a)) { | font $afonts.bold $window(%a) $1- | inc %a } }
alias -l afonts.spc { return $+($chr(34),$1-,$chr(34)) }
alias -l afonts.list {
if ($isfile($afonts.spc($scriptdirafonts.dat))) {
did -r afonts 1
loadbuf -o afonts 1 $afonts.spc($scriptdirafonts.dat)
}
else {
var %f = 1,%g = Arial,Arial Black,Times,Times New Roman,Webdings,Tahoma,Verdana,Terminal,System,Symbol,Script,Roman,Modern,Lucida Console,Georgia,Fixedsys,Comic Sans Ms,Marlett,Ms Sans Serif
while (%f <= $numtok(%g,44)) {
write $afonts.spc($scriptdirafonts.dat) $gettok(%g,%f,44)
inc %f
}
loadbuf -o afonts 1 $afonts.spc($scriptdirafonts.dat)
}
}
alias -l afonts.set {
if ($1-) {
if ($readini($afonts.spc($script),fonts,default) = 1) {
scid -a font $+(-sd,$afonts.bold) $1-
var %d = $readini($afonts.spc($mircini),fonts,fstatus)
scid -a afonts.chans $1-
scid -a afonts.querys $1-
scid -a afonts.chats $1-
scid -a afonts.cwins $1-
writeini -n $afonts.spc($mircini) fonts fmessage %d
writeini -n $afonts.spc($mircini) fonts ffinger %d
writeini -n $afonts.spc($mircini) fonts fquery %d
writeini -n $afonts.spc($mircini) fonts fchannel %d
writeini -n $afonts.spc($mircini) fonts flist %d
writeini -n $afonts.spc($mircini) fonts flinks %d
writeini -n $afonts.spc($mircini) fonts f
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
writeini -n $afonts.spc($mircini) fonts fnotify %d
writeini -n $afonts.spc($script) fonts size $did(afonts,2).sel
}
else {
scid -a font $+(-s,$afonts.bold) $1-
scid -a afonts.chans $1-
scid -a afonts.querys $1-
scid -a afonts.chats $1-
scid -a afonts.cwins $1-
writeini -n $afonts.spc($script) fonts size $did(afonts,2).sel
}
}
}
[fonts]
size=12
bold=1
default=1
Font Ayar Addon'u Kolay gelsin. |
