| rewal | 13 Aralık 2014 05:07 |
mirc toolbar yardım
Kod:
dialog tob {
title "New Project"
size -1000 -1000 237 30
option dbu
}
dialog tbcolor {
title "Toolbar Button'ları Renk Ayarları"
size -1000 -1000 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! ---- ", 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 -1000 -1000 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! --- ", 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 50 25 > 1
mdc BitBtn font 50 $rgb(119,81,0) 8 > Tahoma
mdc BitBtn create $dname 51 56 5 50 25 > 2
mdc BitBtn font 51 $rgb(119,81,0) 8 > Tahoma
mdc BitBtn create $dname 52 107 5 50 25 > 3
mdc BitBtn font 52 $rgb(119,81,0) 7 > Tahoma
mdc BitBtn create $dname 53 158 5 50 25 > 4
mdc BitBtn font 53 $rgb(119,81,0) 7 > Tahoma
mdc BitBtn create $dname 54 209 5 50 25 > 5
mdc BitBtn font 54 $rgb(119,81,0) 8 > Tahoma
mdc BitBtn create $dname 55 260 5 50 25 > 6
mdc BitBtn font 55 $rgb(119,81,0) 8 > Tahoma
mdc BitBtn create $dname 56 311 5 50 25 > 7
mdc BitBtn font 56 $rgb(119,81,0) 8 > Tahoma
mdc BitBtn create $dname 57 362 5 50 25 > 8
mdc BitBtn font 57 $rgb(119,81,0) 7 > Tahoma
mdc BitBtn create $dname 58 413 5 50 25 > 9
mdc BitBtn font 58 $rgb(119,81,0) 8 > Tahoma
mdc BitBtn create $dname 59 464 5 50 25 > 10
mdc BitBtn font 59 $rgb(119,81,0) 8 > Tahoma
mdc BitBtn create $dname 81 5 31 50 25 > 11
mdc BitBtn font 81 $rgb(119,81,0) 8 > Tahoma
mdc BitBtn create $dname 82 56 31 50 25 > 12
mdc BitBtn font 82 $rgb(119,81,0) 7 > Tahoma
mdc BitBtn create $dname 83 107 31 50 25 > 13
mdc BitBtn font 83 $rgb(119,81,0) 8 > Tahoma
mdc BitBtn create $dname 84 158 31 50 25 > 14
mdc BitBtn font 84 $rgb(119,81,0) 8 > Tahoma
mdc BitBtn create $dname 85 209 31 50 25 > 15
mdc BitBtn font 85 $rgb(119,81,0) 8 > Tahoma
mdc BitBtn create $dname 86 260 31 50 25 > 16
mdc BitBtn font 86 $rgb(119,81,0) 7 > Tahoma
mdc BitBtn create $dname 87 311 31 50 25 > 17
mdc BitBtn font 87 $rgb(119,81,0) 7 > Tahoma
mdc BitBtn create $dname 88 362 31 50 25 > 18
mdc BitBtn font 88 $rgb(119,81,0) 7 > Tahoma
mdc BitBtn create $dname 89 413 31 50 25 > 19
mdc BitBtn font 89 $rgb(119,81,0) 8 > Tahoma
mdc BitBtn create $dname 90 464 31 50 25 > 20
mdc BitBtn font 90 $rgb(119,81,0) 8 > Tahoma
mdc BitBtn create $dname 91 515 5 75 25 > 21
mdc BitBtn font 91 $rgb(119,81,0) 8 > Tahoma
mdc BitBtn create $dname 92 515 31 75 25 > 22
mdc BitBtn font 92 $rgb(119,81,0) 8 > Tahoma
mdc BitBtn create $dname 93 591 5 125 51 > 23
mdc BitBtn font 93 $rgb(119,81,0) 8 +b > Tahoma
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 <= 93) {
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 <= 93) {
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 > 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
btcol $dname 81 82 focus 1
btcol $dname 83 84 focus 2
btcol $dname 75 86 focus 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 == 50) .....
if ($4 == 51) .....
if ($4 == 52) .....
if ($4 == 53) .....
if ($4 == 54) .....
if ($4 == 55) .....
if ($4 == 56) .....
if ($4 == 57) .....
if ($4 == 58) .....
if ($4 == 59) .....
if ($4 == 81) .....
if ($4 == 82) .....
if ($4 == 83) .....
if ($4 == 84) .....
if ($4 == 85) .....
if ($4 == 86) .....
if ($4 == 87) .....
if ($4 == 88) .....
if ($4 == 89) .....
if ($4 == 90) .....
if ($4 == 91) .....
if ($4 == 92) .....
if ($4 == 93) .....
Elimde böyle bir kod var mircimde kullandığım buna daha fazla buton eklemek istedigimde ya büyük oluyor ya küçük ve düzenli bişey olmuyor 23 tane var şuanda oysaki bir 20 tane daha olabilicek boşluk var daha
ekleme nasıl yapabilirim. Tşk. |
