| bedqoq | 07 Aralık 2010 18:43 |
Toolbar Renk Sorunu
Arkadaşlar ALtta verdiğim Toolbar'da ben toolbar renginin yeşil olmasını İstiyorum Bunu Nasıl yaparım yada yapıp verebilirmisiniz bana Kod:
on *:start:{
.dialog -ma tb tb
.dialog -ma tyr tyr
.dialog -ma tyl tyl
.timerram 0 10 .did -ra tb 77,179 $round($remove($gettok($dll($shortfn(dll\moo.dll),meminfo,_),3,32),$chr(40),$chr(41),$chr(37)),0))
}
on *:Server: {
update.tb
title
.timerlags 0 10 baglantine
}
on *:disServer: {
update.tb
title
.timerlags off
}
on *:close:*: {
update.tb
}
on ^*:PONG:{
set %lag $calc(($ticks - %ticks) / 1000)
did -ra tb 73 $round(%lag,0) 0 20
did -ra tb 177 $round(%lag,2) 0 20
unset %ticks
haltdef
}
alias baglantine {
if ($server) {
set %ticks $ticks
.raw ping $scid($activecid).server
}
}
alias update.tb {
if (!$dialog(tb)) { halt }
else {
;scid $activecid
if ($scid($activecid).status = Servering || $scid($activecid).status = Servered ) {
did -o tb 1 3 +a 1 Kopar $chr(9) Bir Sunuya Bağlı / Bağlantıya Geçilmiş | halt
}
if ($scid($activecid).status = disServering || $scid($activecid).status = disServered ) {
did -o tb 1 3 +a 2 KLBK $chr(9) Bir Sunuya Bağlı Değil / Bağlantıya Geçilmemiş | halt
}
}
}
dialog tb {
size 0 0 $window(-1).x 30
list 1,3 5 530 10,size
icon ico\icon.ico
icon 2, 6 62 98 19, resim\bar.jpg
option dbu,pixels
;box "" 12, 3 53 105 31
;box "" 13, 3 -3 531 63
box "" 13, 2 -3 532 87
;box "" 23, 108 53 213 31
;box "" 33, 320 53 213 31
box "" 43, 533 -3 258 42
box "" 53, 790 -3 229 87
text "", 5, 590 6 55 16
text "Saat:", 15, 550 7 32 16
text "", 6, 690 6 80 16
text "Tarih:", 16, 650 7 32 16
text "", 7, 610 22 155 16
text "Aktif Süre:", 17, 550 23 58 14
text "Lag", 75, 330 65 25 16
text "", 73, 412 63 115 16
text "", 177, 384 65 27 17
text "(sn)", 178, 355 65 23 16
text "Ram", 74, 114 65 25 16
text "", 77, 200 63 115 16
text "", 179, 176 65 24 17
text "(%)", 180, 148 65 23 16
text "", 181, 805 10 210 16
text "", 182, 805 28 210 16
text "", 183, 805 46 210 16
text "", 184, 805 64 210 16
combo 40, 580 41 180 25, nodrop nosize edit
text "Google", 41, 540 44 40 16
button "Ara", 45, 760 41 27 22, default
combo 60, 580 62 180 102, vsbar size edit drop
text "http://", 61, 540 65 40 16
button "Git", 65, 760 62 27 22, default
}
alias times { if ($dialog(tb)) { did -a tb $1 $time } }
alias dates { if ($dialog(tb)) { did -a tb $1 $date } }
alias onlines { if ($dialog(tb)) { did -a tb $1 $replace($uptime(mirc ,1),secs,saniye,sec,saniye,mins,dakika,min,dakika,hrs,saat,hr,saat,days,gün,day,gün,wks,hafta,wk,hafta) } }
on *:dialog:tb:*:*: {
if $devent == sclick {
if $did == 65 {
var %site = $did(60).text
if ( %site == $null ) { kweb [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
else { kweb %site }
}
if $did == 45 {
var %google = $did(40)
if ( %google == $null ) { halt }
else { gogle [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]= $+ %google }
}
if $did == 2 { /oner | .echo -a ¿j¿1,15 Kullanmış oldugunuz script İCSC üretimi olup TPE 2006-17589 nolu Marka Tescil Numarası ile tescillidir. }
if $did == 1 {
if ($did($dname,1).sel = 3) {
if ($scid($activecid).status = Servering || $scid($activecid).status = Servered ) { scid $activecid disServer }
else {
scid $activecid server
}
update.tb
did -f $dname 1
scid $activecid window -a "status window"
}
if ($did($dname,1).sel = 5) {
gdg
}
if ($did($dname,1).sel = 7) {
gsgsd
}
if ($did($dname,1).sel = 9) {
sggsg
}
if ($did($dname,1).sel = 11) {
sdgsdg
}
if ($did($dname,1).sel = 13) {
sgsdg
}
if ($did($dname,1).sel = 15) {
gsdg
}
}
}
.timertime 0 1 times 5
.timerdate 0 1 dates 6
.timeronline 0 1 onlines 7
if ($devent == dclick) {
}
if ($devent == init) {
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetBorderStyle 1
rebar HideToolbar .
rebar Dock $dialog(tb).hwnd > top
mdx SetControlMDX $dname 1 toolbar wrap arrows nodivider > $bars
mdx SetControlMDX $dname 73,77 Progressbar smooth > $ctl
mdx SetControlMDX $dname 1 list flat wrap arrows autoarrange nosortheader icon extsel labeltip hottrack flatsb nodivider > $wdx
mdx SetColor 1,74,75,177,178,179,180,60,61,65 text [ $rgb(0,0,0) ]
mdx SetFont $dname 1,74,75,177,178,179,180,40,41,45,60,61,65 13 700 Fixedsys
mdx SetFont $dname 1,74,75,177,178,179,180,40,41,45,60,61,65 13 1200 Tahoma
mdx SetFont $dname 5,6,7 13 1200 Tahoma
mdx SetFont $dname 15,16,17 12 1200 Tahoma
did -i $dname 1 1 setscheme $rgb(224,226,235) $rgb(224,226,235)
did -i $dname 1 1 bmpsize 32 32
did -i $dname 1 1 setimage icon large icon\faf.ico
did -i $dname 1 1 setimage icon large icon\ffad.ico
did -i $dname 1 1 setimage icon large icon\faf.ico
did -a $dname 1 +a -
did -a $dname 1 +a 11 $chr(32) Kopar $chr(9) Marka Tescilli ve Lisanslı Ürün
did -a $dname 1 +a -
did -a $dname 1 +a 6 $chr(32) Bağlan $chr(9) $+ Dialog Bağlantı Paneli
did -a $dname 1 +a -
did -a $dname 1 +a 4 $chr(32) Yetkili PaneLi $chr(9) $+ Kanallar ve Favoriler
did -a $dname 1 +a -
did -a $dname 1 +a 7 $chr(32) KontroL PaneLi $chr(9) $+ Kolay Ulaşım Menusu
did -a $dname 1 +a -
did -a $dname 1 +a 8 $chr(32) Korumalar $chr(9) $+ Korumalar ( Kişisel & Kanal )
did -a $dname 1 +a -
did -a $dname 1 +a 9 $chr(32) Mp3 Çalar $chr(9) $+ Müzik Çalıcısı
did -a $dname 1 +a -
did -a $dname 1 +a 10 $chr(32) Windows $chr(9) $+ Ses Ve Görünüm Ayaları
did -a $dname 1 +a -
did -ca tb 60 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
did -a tb 60 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
did -a tb 60 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
did -a tb 60 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
did -a tb 60 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
if ($appactive) { showmirc -s }
}
}
alias kweb {
if !$window($+(@,$gettok($1,2,46))) {
window -ez $+(@,$gettok($1,2,46))
$dll($shortfn(dll\toolbar.dll)toolbar.dll,attach,$window($+(@,$gettok($1,2,46))).hwnd)
$dll($shortfn(dll\toolbar.dll),navigate,$+([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]))
}
}
alias gogle {
if !$window($+(@,$gettok($1,2,46))) {
window -ez $+(@,$gettok($1,2,46))
$dll($shortfn(dll\toolbar.dll)toolbar.dll,attach,$window($+(@,$gettok($1,2,46))).hwnd)
$dll($shortfn(dll\toolbar.dll),navigate,$+([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-))
}
}
|
