| LoRDGuaRD | 08 Aralık 2010 09:36 |
Toolbar sorunu
kodun altındaki üç resimde verdıgım toolbar goruntulerınde derdımı anlattım burayada yazayım toolbarıma sonradan 3 buton ekledım ve toolbar dakı buton ayarlarından renklerını degısebılıyorum ama sonradan ekledıgım 3 butonun rengını degısmıyor nasıl halledebılırım resımlerde belırttım nereler oldugunu teşekkür ederim. PHP- Kodu:
dialog tob {
title "New Project"
size -1 -1 237 30
option dbu
}
dialog tbcolor {
title "Toolbar Button'ları Renk Ayarları"
size -1 -1 192 114
option dbu
tab "Border Rengi", 1, 3 1 185 84
box "", 2, 7 17 178 66, tab 1
text "R:", 3, 12 31 6 8, tab 1
edit "", 4, 19 29 25 10, tab 1 read
scroll "", 5, 46 30 136 8, tab 1 range 0 255 horizontal
text "G:", 6, 12 51 6 8, tab 1
edit "", 7, 19 49 25 10, tab 1 read
scroll "", 8, 46 50 136 8, tab 1 range 0 255 horizontal
text "R:", 9, 12 70 6 8, tab 1
edit "", 10, 19 68 25 10, tab 1 read
scroll "", 11, 46 69 136 8, tab 1 range 0 255 horizontal
tab "Light Rengi", 14
box "", 15, 7 17 178 66, tab 14
text "R:", 16, 12 31 6 8, tab 14
edit "", 17, 19 29 25 10, tab 14 read
scroll "", 18, 46 30 136 8, tab 14 range 0 255 horizontal
text "G:", 19, 12 51 6 8, tab 14
edit "", 20, 19 49 25 10, tab 14 read
scroll "", 21, 46 50 136 8, tab 14 range 0 255 horizontal
text "R:", 22, 12 70 6 8, tab 14
edit "", 23, 19 68 25 10, tab 14 read
scroll "", 24, 46 69 136 8, tab 14 range 0 255 horizontal
tab "Dark Rengi", 25
box "", 26, 7 17 178 66, tab 25
text "R:", 27, 12 31 6 8, tab 25
edit "", 28, 19 29 25 10, tab 25 read
scroll "", 29, 46 30 136 8, tab 25 range 0 255 horizontal
text "G:", 30, 12 51 6 8, tab 25
edit "", 31, 19 49 25 10, tab 25 read
scroll "", 32, 46 50 136 8, tab 25 range 0 255 horizontal
text "R:", 33, 12 70 6 8, tab 25
edit "", 34, 19 68 25 10, tab 25 read
scroll "", 35, 46 69 136 8, tab 25 range 0 255 horizontal
tab "Face Rengi", 36
box "", 37, 7 17 178 66, tab 36
text "R:", 38, 12 31 6 8, tab 36
edit "", 39, 19 29 25 10, tab 36 read
scroll "", 40, 46 30 136 8, tab 36 range 0 255 horizontal
text "G:", 41, 12 51 6 8, tab 36
edit "", 42, 19 49 25 10, tab 36 read
scroll "", 43, 46 50 136 8, tab 36 range 0 255 horizontal
text "R:", 44, 12 70 6 8, tab 36
edit "", 45, 19 68 25 10, tab 36 read
scroll "", 46, 46 69 136 8, tab 36 range 0 255 horizontal
tab "Grad Rengi", 47
box "", 48, 7 17 178 66, tab 47
text "R:", 49, 12 31 6 8, tab 47
edit "", 50, 19 29 25 10, tab 47 read
scroll "", 51, 46 30 136 8, tab 47 range 0 255 horizontal
text "G:", 52, 12 51 6 8, tab 47
edit "", 53, 19 49 25 10, tab 47 read
scroll "", 54, 46 50 136 8, tab 47 range 0 255 horizontal
text "R:", 55, 12 70 6 8, tab 47
edit "", 56, 19 68 25 10, tab 47 read
scroll "", 57, 46 69 136 8, tab 47 range 0 255 horizontal
tab "Focus Rengi", 58
box "", 59, 7 17 178 66, tab 58
text "R:", 60, 12 31 6 8, tab 58
edit "", 61, 19 29 25 10, tab 58 read
scroll "", 62, 46 30 136 8, tab 58 range 0 255 horizontal
text "G:", 63, 12 51 6 8, tab 58
edit "", 64, 19 49 25 10, tab 58 read
scroll "", 65, 46 50 136 8, tab 58 range 0 255 horizontal
text "R:", 66, 12 70 6 8, tab 58
edit "", 67, 19 68 25 10, tab 58 read
scroll "", 68, 46 69 136 8, tab 58 range 0 255 horizontal
tab "Yazı Rengi", 13
box "Button'un kenarlık rengi", 71, 7 17 178 66, tab 13
text "R:", 72, 12 31 6 8, tab 13
edit "", 73, 19 29 25 10, tab 13 read
scroll "", 74, 46 30 136 8, tab 13 range 0 255 horizontal
text "G:", 75, 12 51 6 8, tab 13
edit "", 76, 19 49 25 10, tab 13 read
scroll "", 77, 46 50 136 8, tab 13 range 0 255 horizontal
text "R:", 78, 12 70 6 8, tab 13
edit "", 79, 19 68 25 10, tab 13 read
scroll "", 80, 46 69 136 8, tab 13 range 0 255 horizontal
button "Ayarları Kaydet", 69, 3 88 58 12
button "Kapat", 70, 167 88 22 12, cancel
edit "mIRC ToolBar - İstediğin gibi değiştir kullan! ----
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">, 12, 2 102 187 11, read
button "İlk ayarlara geri dön", 81, 114 88 51 12
button "Arka plan ayarları", 82, 64 88 47 12
}
dialog bgcolor {
title "Toolbar Arka Plan Renk Ayarları - Diğer Ayarları"
size -1 -1 168 156
option dbu
tab "Dark Rengi", 1, 2 1 163 85
box "", 5, 5 16 157 68, tab 1
text "R:", 6, 9 25 6 8, tab 1
edit "", 7, 16 23 24 10, tab 1 read
scroll "", 8, 41 24 117 8, tab 1 range 0 255 horizontal
text "G:", 9, 9 46 6 8, tab 1
edit "", 10, 16 44 24 10, tab 1 read
scroll "", 11, 41 45 117 8, tab 1 range 0 255 horizontal
text "B:", 12, 10 67 5 8, tab 1
edit "", 13, 16 65 24 10, tab 1 read
scroll "", 14, 41 66 117 8, tab 1 range 0 255 horizontal
tab "Light Rengi", 2
box "", 15, 5 17 157 67, tab 2
text "R:", 16, 9 26 6 8, tab 2
edit "", 17, 16 24 24 10, tab 2 read
scroll "", 18, 41 25 117 8, tab 2 range 0 255 horizontal
text "G:", 19, 9 47 6 8, tab 2
edit "", 20, 16 45 24 10, tab 2 read
scroll "", 21, 41 46 117 8, tab 2 range 0 255 horizontal
text "B:", 22, 10 68 5 8, tab 2
edit "", 23, 16 66 24 10, tab 2 read
scroll "", 24, 41 67 117 8, tab 2 range 0 255 horizontal
tab "Face Rengi", 3
box "", 25, 6 15 157 68, tab 3
text "R:", 26, 10 24 6 8, tab 3
edit "", 27, 17 22 24 10, tab 3 read
scroll "", 28, 42 23 117 8, tab 3 range 0 255 horizontal
text "G:", 29, 10 45 6 8, tab 3
edit "", 30, 17 43 24 10, tab 3 read
scroll "", 31, 42 44 117 8, tab 3 range 0 255 horizontal
text "B:", 32, 11 66 5 8, tab 3
edit "", 33, 17 64 24 10, tab 3 read
scroll "", 34, 42 65 117 8, tab 3 range 0 255 horizontal
tab "Grad Rengi", 4
box "", 35, 5 16 157 68, tab 4
text "R:", 36, 9 25 6 8, tab 4
edit "", 37, 16 23 24 10, tab 4 read
scroll "", 38, 41 24 117 8, tab 4 range 0 255 horizontal
text "G:", 39, 9 46 6 8, tab 4
edit "", 40, 16 44 24 10, tab 4 read
scroll "", 41, 41 45 117 8, tab 4 range 0 255 horizontal
text "B:", 42, 10 67 5 8, tab 4
edit "", 43, 16 65 24 10, tab 4 read
scroll "", 44, 41 66 117 8, tab 4 range 0 255 horizontal
check "Arka planda resim kullanmak istiyorum", 45, 6 99 102 10
text "Dosya:", 46, 5 114 17 8
edit "", 47, 23 112 122 10, read autohs
button "Seç", 48, 146 111 16 11
box "Arka plan resmi", 49, 2 89 163 38
button "Ayarları Kaydet", 50, 2 130 41 12
button "İlk ayarlara geri dön", 51, 87 130 52 12
button "Kapat", 52, 142 130 23 12, cancel
edit "mIRC ToolBar - İstediğin gibi değiştir kullan! ---
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">, 53, 2 144 164 11, read
button "Button Ayarları", 54, 44 130 40 12
}
alias -l udcdll return $shortfn($scriptdirultradock.dll)
alias udock dll $udcdll $1 $2-
alias -l hosdll return $shortfn($scriptdir)
alias -l mdcdll return $shortfn($scriptdirmdc.dll)
alias -l mdc dll $mdcdll $1 $2-
alias bgval {
tokenize 44 $readini(toolbar.ini,bgcolors,$1)
return $rgb($1,$2,$3)
}
alias -l btval {
tokenize 44 $readini(toolbar.ini,buttoncolors,$1)
return $rgb($1,$2,$3)
}
alias demiddll return $shortfn($scriptdirdemid.dll)
alias tbclose { hos Undock tob | dialog -x tob }
on *:dialog:tob:init:*: {
if ($isfile(toolbar.ini) == $false) { ilk->degerler | bg-ilk->degerler }
if ($dll($udcdll,IsToolbar,) == $true) udock ShowToolbar 0
udock Dock -1 $dialog(tob).hwnd top tob
mdc BitBtn create $dname 50 5 5 64 50 > Bağlan
mdc BitBtn font 50 $rgb(119,81,0) 8 +b > Tahoma
mdc BitBtn icon 50 $shortfn($scriptdirbaglan.ico)
mdc BitBtn iconpos 50 top
mdc BitBtn create $dname 51 75 5 64 50 > Op Menü
mdc BitBtn font 51 $rgb(119,81,0) 8 +b > Tahoma
mdc BitBtn icon 51 $shortfn($scriptdirprotect.ico)
mdc BitBtn iconpos 51 top
mdc BitBtn create $dname 52 145 5 64 50 > Kara Liste
mdc BitBtn icon 52 $shortfn($scriptdirmds.ico)
mdc BitBtn iconpos 52 top
mdc BitBtn font 52 $rgb(119,81,0) 8 +b > Tahoma
mdc BitBtn create $dname 53 215 5 64 50 > Korumalar
mdc BitBtn icon 53 $shortfn($scriptdirmediaplayer.ico)
mdc BitBtn iconpos 53 top
mdc BitBtn font 53 $rgb(119,81,0) 8 +b > Tahoma
mdc BitBtn create $dname 54 285 5 64 50 > Yardım
mdc BitBtn font 54 $rgb(119,81,0) 8 +b > Tahoma
mdc BitBtn icon 54 $shortfn($scriptdirhelp.ico)
mdc BitBtn iconpos 54 top
mdc BitBtn create $dname 55 355 5 64 50 > Görünüm
mdc BitBtn icon 55 $shortfn($scriptdirrenk.ico)
mdc BitBtn iconpos 55 top
mdc BitBtn font 55 $rgb(119,81,0) 8 +b > Tahoma
mdc BitBtn create $dname 56 425 5 64 50 > Away
mdc BitBtn icon 56 $shortfn($scriptdiravay.ico)
mdc BitBtn iconpos 56 top
mdc BitBtn font 56 $rgb(119,81,0) 8 +b > Tahoma
mdc BitBtn create $dname 57 495 5 64 50 > NickList
mdc BitBtn icon 57 $shortfn($scriptdirweb.ico)
mdc BitBtn iconpos 57 top
mdc BitBtn font 57 $rgb(119,81,0) 8 +b > Tahoma
mdc BitBtn create $dname 58 565 5 64 50 > Ayarlar
mdc BitBtn font 58 $rgb(119,81,0) 8 +b > Tahoma
mdc BitBtn icon 58 $shortfn($scriptdirayarlar.ico)
mdc BitBtn iconpos 58 top
mdc BitBtn create $dname 59 635 5 64 50 > Anasayfa
mdc BitBtn font 59 $rgb(119,81,0) 8 +b > Tahoma
mdc BitBtn icon 59 $shortfn($scriptdirhome.ico)
mdc BitBtn iconpos 59 top
mdc BitBtn create $dname 60 717 5 64 50 > Google
mdc BitBtn font 60 $rgb(119,81,0) 8 +b > Tahoma
mdc BitBtn icon 60 $shortfn($scriptdirinternet.ico)
mdc BitBtn iconpos 60 top
mdc BitBtn create $dname 61 787 5 77 50 > Media Player
mdc BitBtn font 61 $rgb(119,81,0) 8 +b > Tahoma
mdc BitBtn icon 61 $shortfn($scriptdirmmc.ico)
mdc BitBtn iconpos 61 top
mdc BitBtn create $dname 62 870 5 64 50 > Tarama
mdc BitBtn font 62 $rgb(119,81,0) 8 +b > Tahoma
mdc BitBtn icon 62 $shortfn($scriptdirara.ico)
mdc BitBtn iconpos 62 top
if ($readini(toolbar.ini,bgcolors,bgpic) == none) {
mdc Panel create $dname 51 0 0 $dialog($dname).w $dialog($dname).h
mdc Panel color 51 $bgval(dark) $bgval(light) $bgval(face) $bgval(grad)
}
else {
mdc Panel create $dname 51 0 0 $dialog($dname).w $dialog($dname).h
mdc Panel color 51 $bgval(dark) $bgval(light) $bgval(face) $bgval(grad)
mdc Panel visible 51 $false
dll $demiddll SetBkImage $dname $shortfn($readini(toolbar.ini,bgcolors,bgpic))
}
degerleri->yukle
}
alias tbset if (!$dialog(tbcolor)) dialog -m tbcolor tbcolor
alias tbgset if (!$dialog(bgcolor)) dialog -m bgcolor bgcolor
alias -l btcol {
did -a $1 $2 $gettok($readini(toolbar.ini,buttoncolors,$4),$5,44)
did -c $1 $3 $gettok($readini(toolbar.ini,buttoncolors,$4),$5,44)
}
alias -l degerleri->yukle {
if ($dialog(tob)) {
if ($dialog(tob)) {
var %i = 50
while (%i <= 59) {
mdc BitBtn color %i $btval(border) $btval(dark) $btval(light) $btval(face) $btval(grad) $btval(focus)
inc %i
}
}
}
}
alias -l bg->yukle {
if ($dialog(tob)) {
if ($readini(toolbar.ini,bgcolors,bgpic) == none) {
mdc Panel visible 51 $true
mdc Panel color 51 $bgval(dark) $bgval(light) $bgval(face) $bgval(grad)
}
else dll $demiddll SetBkImage tob $shortfn($readini(toolbar.ini,bgcolors,bgpic))
}
}
alias ilk->degerler {
var %s writeini toolbar.ini buttoncolors
%s border 128,86,0
%s light 255,231,185
%s dark 232,156,0
%s face 255,236,198
%s grad 255,190,55
%s focus 255,128,64
%s text 119,81,0
}
alias -l bg-ilk->degerler {
var %bg writeini toolbar.ini bgcolors
%bg dark 155,105,0
%bg light 213,143,0
%bg face 255,255,255
%bg grad 255,225,164
%bg bgpic none
}
on *:dialog:tbcolor:init:*: {
btcol $dname 4 5 border 1
btcol $dname 7 8 border 2
btcol $dname 10 11 border 3
btcol $dname 17 18 light 1
btcol $dname 20 21 light 2
btcol $dname 23 24 light 3
btcol $dname 28 29 dark 1
btcol $dname 31 32 dark 2
btcol $dname 34 35 dark 3
btcol $dname 39 40 face 1
btcol $dname 42 43 face 2
btcol $dname 45 46 face 3
btcol $dname 50 51 grad 1
btcol $dname 53 54 grad 2
btcol $dname 56 57 grad 3
btcol $dname 61 62 focus 1
btcol $dname 64 65 focus 2
btcol $dname 67 68 focus 3
btcol $dname 73 74 text 1
btcol $dname 76 77 text 2
btcol $dname 79 80 text 3
}
alias -l save->settings {
var %s = writeini toolbar.ini buttoncolors
%s border $+($did(4),$chr(44),$did(7),$chr(44),$did(10))
%s dark $+($did(28),$chr(44),$did(31),$chr(44),$did(34))
%s light $+($did(17),$chr(44),$did(20),$chr(44),$did(23))
%s face $+($did(39),$chr(44),$did(42),$chr(44),$did(45))
%s grad $+($did(50),$chr(44),$did(53),$chr(44),$did(56))
%s focus $+($did(61),$chr(44),$did(64),$chr(44),$did(67))
}
on *:dialog:tbcolor:scroll:*: {
did -ra $dname $calc($did - 1) $did($did).sel
if (!$dialog(tob)) did -ra $dname 12 Toolbar açık olmadığından yeni değerler yansıtılamadı!
else {
var %i = 50
while (%i <= 59) {
mdc BitBtn color %i $rgb($did(4),$did(7),$did(10)) $rgb($did(28),$did(31),$did(34)) $rgb($did(17),$did(20),$did(23)) $rgb($did(39),$did(42),$did(45)) $rgb($did(50),$did(53),$did(56)) $rgb($did(61),$did(64),$did(67))
mdc BitBtn font %i $rgb($did(73),$did(76),$did(79)) 8 +b > Tahoma
inc %i
}
}
}
on *:dialog:tbcolor:sclick:*: {
if ($did == 69) { save->settings | did -ra $dname 12 Ayarlar kaydedilmiştir. }
if ($did == 81) { ilk->degerler | degerleri->yukle }
if ($did == 82) tbgset
}
on *:dialog:tbcolor:close:*: degerleri->yukle
on *:dialog:bgcolor:close:*: bg->yukle
alias -l bgcol {
did -a $1 $2 $gettok($readini(toolbar.ini,bgcolors,$4),$5,44)
did -c $1 $3 $gettok($readini(toolbar.ini,bgcolors,$4),$5,44)
}
on *:dialog:bgcolor:init:*: {
if ($readini(toolbar.ini,bgcolors,bgpic) != none) {
did -a $dname 47 $readini(toolbar.ini,bgcolors,bgpic)
did -c $dname 45
}
bgcol $dname 7 8 dark 1
bgcol $dname 10 11 dark 2
bgcol $dname 13 14 dark 3
bgcol $dname 17 18 light 1
bgcol $dname 20 21 light 2
bgcol $dname 23 24 light 3
bgcol $dname 27 28 face 1
bgcol $dname 30 31 face 2
bgcol $dname 33 34 face 3
bgcol $dname 37 38 grad 1
bgcol $dname 40 41 grad 2
bgcol $dname 43 44 grad 3
}
on *:dialog:bgcolor:scroll:*: {
did -ra $dname $calc($did - 1) $did($did).sel
if (!$dialog(tob)) did -ra $dname 53 Toolbar açık olmadığından yeni değerler yansıtılamadı!
elseif ($dll($mdcdll,GetPanel,visible 51) == $true) mdc Panel color 51 $rgb($did(7),$did(10),$did(13)) $rgb($did(17),$did(20),$did(23)) $rgb($did(27),$did(30),$did(33)) $rgb($did(37),$did(40),$did(43))
}
alias -l bg->sec {
var %f = $sfile($mircdir,Arka plan resmini seçin)
if (%f) {
if ($right(%f,3) != png) return $input(Arka plan resminin uzantısı png olmalıdır.,ohud,Hata)
else { dll $demiddll SetBkImage tob $shortfn(%f) | did -ra bgcolor 47 %f }
}
}
alias -l save->bgsets {
var %a = writeini toolbar.ini bgcolors
%a dark $+($did(7),$chr(44),$did(10),$chr(44),$did(13))
%a light $+($did(17),$chr(44),$did(20),$chr(44),$did(23))
%a face $+($did(27),$chr(44),$did(30),$chr(44),$did(33))
%a grad $+($did(37),$chr(44),$did(40),$chr(44),$did(43))
if ($did(45).state == 1) && ($did(47)) %a bgpic $did(47)
elseif ($did(45).state == 0) %a bgpic none
}
on *:dialog:bgcolor:sclick:*: {
if ($did == 45) {
if ($dialog(tob)) {
if ($did(45).state == 1) mdc Panel visible 51 $false
else { mdc Panel visible 51 $true | dll $demiddll SetBkImage tob $shortfn($did(47)) }
}
}
if ($did == 48) bg->sec
if ($did == 50) save->bgsets
if ($did == 51) { bg-ilk->degerler | bg->yukle }
}
on *:start: dialog -m tob tob
on *:load: if ($isfile($scriptdirmie.mrc) == $true) .load -rs $shortfn($scriptdirmie.mrc)
;Button komutları burda yer almaktadır.
on *:signal:mdc: {
if ($2 == tob) && ($3 == sclick) {
if ($4 == 57) { dialog -m nicklist nicklist }
if ($4 == 50) { dialog -m baglanti baglanti }
if ($4 == 51) { dialog -m console console }
if ($4 == 52) { dialog -m blist blist }
if ($4 == 53) { dialog -m korumalar korumalar }
if ($4 == 54) plsyardim
if ($4 == 55) { /dialog -m görünüm görünüm }
if ($4 == 56) away.s
if ($4 == 58) tbset
if ($4 == 59) url -na
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.mynet.com
if ($4 == 60) explorer
if ($4 == 61) mmc
if ($4 == 62) kk
}
}
|
