Çevrimdışı

Arkadaşlar benim toolbar sıkıntım var. Zannedersem toolbar windows xp temasına uyarlı oldugu için vista ve windows 7 de çalışmıyor düzeltilmiş bir şekilde yardımcı olursanız sevinirim alias aşağıdadır.






on *:start: { dialog -m toolbar toolbar }
alias Temadene { echo -a Temam: $iif($temabul,XP Teması,Klasik Windows Teması) }
alias Temabul { .comreg dll/Tema.dll | .comopen toolbar Tema.buL | var %komut = $com(toolbar,TemaBul,1) | var %komut = $com(toolbar).result | .comclose toolbar | .comreg -u dll/Tema.dll | return %komut }
alias mdx { return $dll(DLL\mdx.dll,$1,$2-) }
alias rebar { dll DLL\rebar.dll $$1- }
alias bars { return DLL\bars.mdx }
on *:connect: {
update.toolbar
}
on *:disconnect: {
update.toolbar
}
on *:close:*: {
update.toolbar
}
alias saat { if ($dialog(toolbar)) { did -a toolbar $1 $time } }

alias update.toolbar {
if (!$dialog(toolbar)) { halt }
else {
scid $activecid
if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) {
did -o toolbar 1 3 +a 2 $chr(32) Bağlantıyı Kes $chr(9) $+ IRC Serverle Bağlantınızı Koparır.
}
else {
did -o toolbar 1 3 +a 1 $chr(32) Servere Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar.
}
}
}
dialog toolbar {
title "x"
size 0 0 550 $iif($temabul,14,17)
option dbu
list 4, 0 -2 550 17, size
list 1, 0 4 550 17, size
text "", 2, 464 6 45 16, center
text "", 3, 467 10 39 11, center
}
on *:dialog:toolbar:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetFont $dname 1 Turkish 14 800 Cyrillic
mdx SetColor $dname 1,2,3,4 background $rgb(113,188,255)
mdx SetColor $dname 3 text $rgb(0,0,0)
mdx SetFont $dname 3 +a 20 600 arial
mdx SetColor $dname 2,3 textbg $rgb(113,188,255)
.timersaat 0 1 saat 3
rebar HideToolbar .
rebar Dock $dialog(toolbar).hwnd > top
mdx SetControlMDX $dname 1,3,4 Progressbar smooth > $ctl
mdx SetControlMDX $dname 1,4 ToolBar flat wrap arrows nodivider > $bars
; mdx SetControlMDX $dname 1,4 ToolBar flat arrows nodivider wrap > $aux.mdx(bars)
mdx SetBorderStyle 1
did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 1 1 bmpsize 27 27
did -i $dname 1 1 setimage icon large icon\baglan.ico
did -i $dname 1 1 setimage icon large icon\kes.ico
did -i $dname 1 1 setimage icon large icon\Ayarlar.ico
did -i $dname 1 1 setimage icon large icon\kanal.ico
did -i $dname 1 1 setimage icon large icon\Msn.ico
did -i $dname 1 1 setimage icon large icon\kontrolpanel.ico
did -i $dname 1 1 setimage icon large icon\gorunum.ico
did -i $dname 1 1 setimage icon large icon\liste.ico
did -i $dname 1 1 setimage icon large icon\oyunlar.ico
did -i $dname 1 1 setimage icon large icon\internet.ico
did -i $dname 1 1 setimage icon large icon\yardım.ico
did -a $dname 1 +a -
did -a $dname 1 +a 1 $chr(32) Server Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar.
did -a $dname 1 +a -
did -a $dname 1 +a 3 $chr(32) Bağlantı $chr(9) $+ Bağlantı Ayarlarını Yapar.
did -a $dname 1 +a -
did -a $dname 1 +a 4 $chr(32) Kanallar $chr(9) $+ Kanallara Giriş Penceresini Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 5 $chr(32) Egitim $chr(9) $+ Eğitim Alabilirsiniz
did -a $dname 1 +a -
did -a $dname 1 +a 6 $chr(32) Away Menü $chr(9) $+ Away Menüsünü Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 7 $chr(32) Radyo $chr(9) $+ Sunucunuzun Radyosunu Winamptan Açar
did -a $dname 1 +a -
did -a $dname 1 +a 8 $chr(32) Düşman List $chr(9) $+ Düşman Listesini Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 9 $chr(32) İdentify Panel $chr(9) $+ İdentify İlgili Diyalogu Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 10 $chr(32) Internet $chr(9) $+ Internet Adreslerinin Olduğu Diyalogu Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 11 $chr(32) Yardım $chr(9) $+ Scriptinizin Yardım Dosyasını Açar.
did -a $dname 1 +a -
}
on *:dialog:toolbar:*:*: {
if $devent == sclick {
if $did == 1 {
if ($did($dname,1).sel = 3) {
if ($scid($activecid).status = connecting || $scid($activecid).status = connected ) { scid $activecid disconnect }
else {
scid $activecid server
}
update.toolbar
did -f $dname 1
scid $activecid window -a "status window"
}
if ($did($dname,1).sel = 5) {
acilis
}
if ($did($dname,1).sel = 7) {
/dll dll\popread.dll mn 142
}
if ($did($dname,1).sel = 9) {
/egi
}
if ($did($dname,1).sel = 11) {
/dialog -ma aways aways
}
if ($did($dname,1).sel = 13) {
/run http://
}
if ($did($dname,1).sel = 15) {
/dialog -ma dusmanlist dusmanlist
}
if ($did($dname,1).sel = 17) {
/dialog -ma identify identify
}
if ($did($dname,1).sel = 19) {
/run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
if ($did($dname,1).sel = 21) {
/dialog -m abouts abouts
}
}
}
}
dialog abouts {
title "Helper Script v4 Hakkında.."
size -1 -1 163 138
option dbu
box "", 1, 3 1 157 115
icon 2, 3 4 155 30, icon/baglantim.jpg
text "Isim :", 3, 11 43 53 10, center
text "Helper Script", 4, 86 43 60 10, center
text "Versiyon :", 5, 11 57 53 10, center
text "v4", 6, 86 57 60 10, center
text " Yapılış Tarihi :", 7, 11 71 53 10
text "02/09/2008", 8, 86 71 60 10, center
text " Yapımcı :", 9, 11 85 53 10
text "deX", 10, 86 85 60 10, center
text " İletişim :", 11, 11 99 53 10
text "***", 12, 86 99 60 10, center
button "Tamam", 13, 53 119 56 15
}
on *:dialog:abouts:sclick:*:{
if ($did == 13) { .dialog -c abouts abouts }
}
on *:dialog:abouts:*:*:{
dll mdx.dll SetMircVersion $version | dll mdx.dll MarkDialog $dname
dll mdx.dll SetFont 1,2,3,4,5,6,7,8,9,10,11,12 12 700 Tahoma
dll mdx.dll SetColor $dname 3,5,7,9,11 text $rgb(100,150,100)
}

 

Çevrimdışı

Forumda konu ile ilgili birçok sorun ve çözümü var.En popüler sorunlardan biri bu.

 

Çevrimdışı

Abi yardım et o zaman ya sana zahmet. Tıkandım kaldım.

 

Çevrimdışı

systec Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Abi yardım et o zaman ya sana zahmet. Tıkandım kaldım.

Öncelikle win 7 de çalışan win7 uyumlu icon bulacaksın. Dersde sunduğum iconlar win xp ye uyumludur.