| nikayell | 13 Mayıs 2015 18:24 |
Mirc Script Toolbar yazı rengi !!
Merhaba arkadaşlar aşağıdaki scripte toolbar yazı rengini nasıl beyaz yaparım siyah pek okunmuyorda :) yardımcı olursanız sevinirim [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kodlarda bunlardır. Kod:
;
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Yazmak Zordur.. Çalmaksa bi kaç dakika alır..
alias rebar { dll rebar.dll $$1- }
alias bars { return bars.mdx }
alias mdx { return $dll(mdx.dll,$1,$2-) }
alias Temabul { .comreg Tema.dll | .comopen toolbar Tema.buL | var %komut = $com(toolbar,TemaBul,1) | var %komut = $com(toolbar).result | .comclose toolbar | .comreg -u Tema.dll | return %komut }
alias msnsong.dll return $shortfn($Scriptdirmsnsong.dll)
alias msnsong {
if (%sarki) {
var %dll MsnSong.dll
.comreg %dll
.comopen msn Msn.Write
var %i $com(msn,WriteToMsn,1,bstr,$1-,bstr,$null,bstr,$null)
.comreg -u %dll
.comclose msn
}
}
alias splay {
splay $1-
msnsong Sohbetche Script - $remove($nopath($1-),.mp3,.wav,.wmv,mp4,avi)
}
alias saat { if ($dialog(tb)) { did -a tb $1 $time } }
alias kontrol.tb {
if (!$dialog(tb)) { halt }
else {
scid $activecid
if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) {
did -o tb 1 2 +a 2 Kopart
}
else {
did -o tb 1 2 +a 1 Bağlan
}
}
}
alias ttb dialog -m tb tb
dialog tb {
title "Che-v5"
size 0 0 1500 8
option dbu
list 1, 2 2 2978 25, size
text "", 3, 464 2 45 16, center
text "", 4, 467 7 39 12, center
}
on *:dialog:tb:*:*: {
if ($devent == init) {
mdx MarkDialog $dname
mdx SetColor $dname 1 background $rgb(16,78,139)
mdx SetColor $dname 1 textbg $rgb(255,255,255)
mdx SetFont 1 -12 700 Arial
mdx SetDialog $dname style
mdx SetBorderStyle $dname 2 staticedge
mdx SetBorderStyle 1
mdx SetControlMDX $dname 1,3,6 Progressbar smooth > dll\ctl_gen.mdx
mdx SetControlMDX $dname 1 ToolBar list flat wrap arrows nodivider > dll\bars.mdx
mdx SetColor $dname 3,4 background $rgb(16,78,139)
mdx SetColor $dname 3,4 textbg $rgb(16,78,139)
mdx SetColor $dname 4 text $rgb(176,226,255)
mdx SetFont $dname 4 24 700 Arial
.timersaat 0 1 saat 4
dll dll\rebar.dll HideToolbar .
dll dll\rebar.dll Dock $dialog(tb).hwnd > top
did -i $dname 1 1 setbkg stretch icon\ust.bmp
did -i $dname 1 1 bmpsize 32 32
did -i $dname 1 1 setimage icon large icon\baglan.ico
did -i $dname 1 1 setimage icon large icon\kop.ico
did -i $dname 1 1 setimage icon large icon\ayars.ico
did -i $dname 1 1 setimage icon large icon\kapat.ico
did -i $dname 1 1 setimage icon large icon\ayarlar.ico
did -i $dname 1 1 setimage icon large icon\radyos.ico
did -i $dname 1 1 setimage icon large icon\away.ico
did -i $dname 1 1 setimage icon large icon\ınteraktif.ico
did -i $dname 1 1 setimage icon large icon\oyun.ico
did -i $dname 1 1 setimage icon large icon\hakkinda.ico
did -a $dname 1 +a -
did -a $dname 1 +a -
did -a $dname 1 +a 3 Ayarlar
did -a $dname 1 +a -
did -a $dname 1 +a 4 Panel Menü
did -a $dname 1 +a -
did -a $dname 1 +a 5 Korumalar
did -a $dname 1 +a -
did -a $dname 1 +a 6 Radyo Dinle
did -a $dname 1 +a -
did -a $dname 1 +a 7 Mesgul
did -a $dname 1 +a -
did -a $dname 1 +a 8 Oper Menü
did -a $dname 1 +a -
did -a $dname 1 +a 9 Oyunlar
did -a $dname 1 +a -
did -a $dname 1 +a 10 Bilgi
kontrol.tb
}
if ($devent == sclick) {
if $did == 1 {
var %secenekler $did(1).sel
if ($did($dname,1).sel = 2) {
if ($scid($activecid).status = connecting || $scid($activecid).status = connected ) { scid $activecid disconnect }
else {
scid $activecid server
}
kontrol.tb
did -f $dname 1
scid $activecid window -a "status window"
}
if (%secenekler == 4) { dialog -m absolut53 absolut53 }
if (%secenekler == 6) { panelpop }
if (%secenekler == 8) { korumapop }
if (%secenekler == 10) { radyopop }
if (%secenekler == 12) { dialog -m AwaySysDialog AwaySysDialog }
if (%secenekler == 14) { klaspop }
if (%secenekler == 16) { oyunlarpopp }
if (%secenekler == 18) { Bilgi }
}
}
}
on *:connect: { kontrol.tb }
;
on *:start: {
dll dll\BASLIK.DLL SetMircTitle [> SBCHE <]- « Sohbetche Script v5 Live » By BeSiKTaS ©® 2012 »
ttb
}
alias mdx_fullpath { return $+(",dll\mdx.dll,") }
alias mdx { dll $mdx_fullpath $1- }
alias alayinaisyanolumunegfb { return $1- }
alias hata { $input($1-,ohud,Hata!) }
alias $true { .halt }
alias serferkontrol {
if $server == $null {
hata Herhangi Bi Sunucuya Bağlı Değilsiniz
}
}
|
