| Kimimben | 28 Ağustos 2016 14:39 |
Cevap: Toolbar sorunu
Kod:
alias smile {
if ($dialog(smile)) { dialog -x smile }
dialog -mdo smile smile
var %x $calc($mouse.dx - 50)
var %y $calc($dialog(msnfx. $+ $mid($active,2)).y + 85 + $dialog(msnfx. $+ $mid($active,2)).h))
if $1 != y {
dialog -sv smile %x %y -1 -1
}
elseif $1 == y {
if $active ischan {
dialog -s smile $calc($window($active).w - $calc($iif($nicklistsize($active),300,$calc(300 + 123)) + $nicklistsize($active))) $calc($window($active).h - 85) -1 -1
}
else {
dialog -s smile $calc($window($active).w - 320) $calc($window($active).h - 85) -1 -1
}
}
}
dialog smile {
size -32000 -32000 230 60
title "Smile"
list 1,1 1 250 30
}
on *:dialog:smile:*:*:{
if $devent == init {
mdxinit
mdx SetDialog $dname style border tool
mdx SetControlMDX $dname 1 ToolBar flat wrap arrows nodivider list > $bars
mdx SetBorderStyle $dname 1
did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 1 1 bmpsize 23 23
did -i $dname 1 1 setimage icon large img\1.ico
did -i $dname 1 1 setimage icon large img\2.ico
did -i $dname 1 1 setimage icon large img\3.ico
did -i $dname 1 1 setimage icon large img\4.ico
did -i $dname 1 1 setimage icon large img\5.ico
did -i $dname 1 1 setimage icon large img\6.ico
did -i $dname 1 1 setimage icon large img\7.ico
did -i $dname 1 1 setimage icon large img\8.ico
did -i $dname 1 1 setimage icon large img\9.ico
did -i $dname 1 1 setimage icon large img\10.ico
did -i $dname 1 1 setimage icon large img\11.ico
did -i $dname 1 1 setimage icon large img\12.ico
did -i $dname 1 1 setimage icon large img\13.ico
did -i $dname 1 1 setimage icon large img\14.ico
did -i $dname 1 1 setimage icon large img\15.ico
did -i $dname 1 1 setimage icon large img\16.ico
did -i $dname 1 1 setimage icon large img\17.ico
did -i $dname 1 1 setimage icon large img\cancel.ico
did -a $dname 1 +a 1 $chr(9) $+ :)
did -a $dname 1 +a 2 $chr(9) $+ :(
did -a $dname 1 +a 3 $chr(9) $+ :D
did -a $dname 1 +a 4 $chr(9) $+ ;)
did -a $dname 1 +a 5 $chr(9) $+ :~
did -a $dname 1 +a 6 $chr(9) $+ :P
did -a $dname 1 +a 7 $chr(9) $+ :/
did -a $dname 1 +a 8 $chr(9) $+ :?
did -a $dname 1 +a 9 $chr(9) $+ :}
did -a $dname 1 +a 10 $chr(9) $+ :*
did -a $dname 1 +a 11 $chr(9) $+ :x
did -a $dname 1 +a 12 $chr(9) $+ :£
did -a $dname 1 +a 13 $chr(9) $+ :@
did -a $dname 1 +a 14 $chr(9) $+ :L
did -a $dname 1 +a 15 $chr(9) $+ :%
did -a $dname 1 +a 16 $chr(9) $+ :½
did -a $dname 1 +a 17 $chr(9) $+ :!
did -a $dname 1 +a 18 $chr(9) $+ Kapat
}
if $devent == sclick {
if $did == 1 {
if ($did($dname,1).sel = 2) {
smileyaz :)
}
if ($did($dname,1).sel = 3) {
smileyaz :(
}
if ($did($dname,1).sel = 4) {
smileyaz :D
}
if ($did($dname,1).sel = 5) {
smileyaz ;)
}
if ($did($dname,1).sel = 6) {
smileyaz :~
}
if ($did($dname,1).sel = 7) {
smileyaz :P
}
if ($did($dname,1).sel = 8) {
smileyaz :/
}
if ($did($dname,1).sel = 9) {
smileyaz :?
}
if ($did($dname,1).sel = 10) {
smileyaz :}
}
if ($did($dname,1).sel = 11) {
smileyaz :*
}
if ($did($dname,1).sel = 12) {
smileyaz :#
}
if ($did($dname,1).sel = 13) {
smileyaz :W
}
if ($did($dname,1).sel = 14) {
smileyaz :@
}
if ($did($dname,1).sel = 15) {
smileyaz :Q
}
if ($did($dname,1).sel = 16) {
smileyaz :%
}
if ($did($dname,1).sel = 17) {
smileyaz :Z
}
if ($did($dname,1).sel = 18) {
smileyaz :!
}
if ($did($dname,1).sel = 19) {
smiledialoghide
}
}
}
}
alias smileyaz {
editbox -af $iif($right($editbox($active),1) == :,$left($editbox($active),-1),$editbox($active)) $+ $chr(32) $+ $1-
smiledialoghide
}
alias smiledialoghide {
dialog -s smile -32000 -32000 -1 -1
}
on *:appactive: {
if !$appactive {
var %i 1
while %i <= $window(0) {
if $query($mid($window(%i),4,$mid($window(%i),4,0))) {
window -un $window(%i)
}
inc %i 1
}
smiledialoghide
}
}
Bu toolbara eklediğim kod bunu ekledikten sonra o bahsettigim hatayı verdi arkadaşlar yardımcı olursanız sevinirim |
