Aiuto per Utility Attributo del testo

Registrato: 24/05/08 10:52 Messaggi: 6

ciao a tutti volevo un aiuto per questo come chiamarlo ? codice bha vabb? come volete voi

l'ho caricato nei Remote e mi si apre il box dove posso decidere se scrivere in Grassetto o sottolineato

pero nn lo f? mi aiutate perfavore?? #Mad

<Attributi>
alias atxt { if ($dialog(atxt)) { dialog -x atxt | dialog -m atxt atxt } | else { dialog -m atxt atxt } }
dialog atxt {
Title "Attributi del testo"
size -1 -1 290 48
box "Stile",1, 5 1 75 43
check "G",2, 10 15 30 25,push
check "S",3, 45 15 30 25,push
box "Colore",4, 85 1 90 43
combo 5, 90 18 80 75,drop,size
box "Testo speciale", 6,180 1 100 43
combo 7, 185 18 90 75,drop,size
button "ok",100,1 1 1 1,ok,hide
}
on *:dialog:atxt:*:*: {
if ($devent == init) {
mdxbegin
mdx SetFont 1,4,6 12 700 Tahoma | mdx SetFont 2 14 700 Tahoma | mdx SetFont 3 +u 14 400 Tahoma | mdx SetBorderStyle 2,3 staticedge | mdx SetFont 5,7 12 400 Tahoma
if (%grassetto) { did -c atxt 2 } | if (%sottolineato) { did -c atxt 3 }
did -ra atxt 5 %textcolor
var %i = 1 | while 11 >= %i {
if ($read(dati\textcolor.txt,%i) == %textcolor) { goto salta }
did -a atxt 5 $read(dati\textcolor.txt,%i) | :salta | inc %i
}
did -c atxt 5 1
did -ra atxt 7 %textspecial
var %i = 13 | while $lines(dati\textcolor.txt) >= %i {
if ($read(dati\textcolor.txt,%i) == %textspecial) { goto salta2 }
did -a atxt 7 $read(dati\textcolor.txt,%i) | :salta2 | inc %i
}
did -c atxt 7 1
if (%textspecial == caos blu) || (%textspecial == caos rosso) || (%textspecial == freakettone) { did -b atxt 5 }
}
if ($devent == sclick) {
if ($did == 2) { if ($did(2).state == 1) { set %grassetto } | else { unset %grassetto } }
if ($did == 3) { if ($did(3).state == 1) { set %sottolineato } | else { unset %sottolineato } }
if ($did == 5) { set %textcolor $did(5)
if (%textcolor == automatico) { unset %textcoloring }
else { set %textcoloring $replace(%textcolor,bianco,0,nero,1,blu,2,verde scuro,3,rosso,4,marrone,5,viola,6,arancione,7,giallo,8,verde chiaro,9) }
}
if ($did == 7) {
set %textspecial $did(7)
if (%textspecial == caos blu) || (%textspecial == caos rosso) || (%textspecial == freakettone) { did -b atxt 5 } | else { did -e atxt 5 }
}
}
}
alias textspecial {
if (%textspecial == Num3r1c0) { return $replace($1-,a,4,e,3,i,1,o,0) }
if (%textspecial == Sb@||@ato) { return $replace($1-,a,@,b,?,c,?,r,?,e,?,y,?,i,?,l,?,n,?,?,?,o,$chr(248),f,$chr(131),t,$chr(134),s,$chr(167),c,$chr(169),u,?,r,$chr(174)) }
if (%textspecial == freakettone) { return $replace($1-,a,9a,b,8b,c,13c,d,7d,e,8e,f,6f,g,13g,h,13h,i,9i,l,3l,m,4m,n,8n,o,7o,p,13p,q,6q,r,8r,s,6s,t,7t,u,8u,v,7v,z,13z,w,3w,y,8y,k,7k,j,13j,x,8x,!,3!,?,6?,=,6=,+,6+,-7,-,$,13$,?,8?,%,8%) }
if (%textspecial == caos blu) { return $replace($1-,a,12a,b,12b,c,12c,d,12d,e,12e,f,12f,g,12g,h,12h,i,12i,l,12l,m,12m,n,12n,o,12o,p,12p,q,12q,r,12r,s,12s,t,12t,u,12u,v,12v,z,12z,w,12w,k,12k,j,12j,x,12x,y,12y,?,12?,!,12!,&,12&,@,12@,+,12+,-,12-,#,12#,^,12^,",12",?,12?,$,12$,%,12%,=,12=,?,12?) }
if (%textspecial == caos rosso) { return $replace($1-,a,4a,b,4b,c,4c,d,4d,e,4e,f,4f,g,4g,h,4h,i,4i,l,4l,m,4m,n,4n,o,4o,p,4p,q,4q,r,4r,s,4s,t,4t,u,4u,v,4v,z,4z,w,4w,k,4k,j,4j,x,4x,y,4y,?,4?,!,4!,&,4&,@,4@,+,4+,-,4-,#,4#,^,^,",4",?,4?,$,4$,%,4%,=,4=) }
else { return $1- }
}

Registrato: 25/08/06 09:44 Messaggi: 182 Residenza: Urago Mella (Brescia)

eccerto manca l'evento per farlo andare..
questa porzione di codicie serve solo per farti scegliere come scrivere...
l'evento da utilizzare ? quello on*:INPUT:{

Saluti Smile

_________________

IRC IS A PRIVILIGE NOT A RIGHT! www.cybermirc.org

Registrato: 24/05/08 10:52 Messaggi: 6

ciao scusa me daresti na mano io ho messo questo nei remote dello script ma non v? cos'e' che sbaglio????

#Mad

on *:dialog:atxt:*:*: {
if ($devent == init) {
mdxbegin
mdx SetFont 1,4,6 12 700 Tahoma | mdx SetFont 2 14 700 Tahoma | mdx SetFont 3 +u 14 400 Tahoma | mdx SetBorderStyle 2,3 staticedge | mdx SetFont 5,7 12 400 Tahoma
if (%grassetto) { did -c atxt 2 } | if (%sottolineato) { did -c atxt 3 }
did -ra atxt 5 %textcolor
var %i = 1 | while 11 >= %i {
if ($read(dati\textcolor.txt,%i) == %textcolor) { goto salta }
did -a atxt 5 $read(dati\textcolor.txt,%i) | :salta | inc %i
}
did -c atxt 5 1
did -ra atxt 7 %textspecial
var %i = 13 | while $lines(dati\textcolor.txt) >= %i {
if ($read(dati\textcolor.txt,%i) == %textspecial) { goto salta2 }
did -a atxt 7 $read(dati\textcolor.txt,%i) | :salta2 | inc %i
}
did -c atxt 7 1
if (%textspecial == caos blu) || (%textspecial == caos rosso) || (%textspecial == freakettone) { did -b atxt 5 }
}
if ($devent == sclick) {
if ($did == 2) { if ($did(2).state == 1) { set %grassetto } | else { unset %grassetto } }
if ($did == 3) { if ($did(3).state == 1) { set %sottolineato } | else { unset %sottolineato } }
if ($did == 5) { set %textcolor $did(5)
if (%textcolor == automatico) { unset %textcoloring }
else { set %textcoloring $replace(%textcolor,bianco,0,nero,1,blu,2,verde scuro,3,rosso,4,marrone,5,viola,6,arancione,7,giallo,8,verde chiaro,9) }
}
if ($did == 7) {
set %textspecial $did(7)
if (%textspecial == caos blu) || (%textspecial == caos rosso) || (%textspecial == freakettone) { did -b atxt 5 } | else { did -e atxt 5 }
}
}
}
alias textspecial {
if (%textspecial == Num3r1c0) { return $replace($1-,a,4,e,3,i,1,o,0) }
if (%textspecial == Sb@||@ato) { return $replace($1-,a,@,b,?,c,?,r,?,e,?,y,?,i,?,l,?,n,?,?,?,o,$chr(248),f,$chr(131),t,$chr(134),s,$chr(167),c,$chr(169),u,?,r,$chr(174)) }
if (%textspecial == freakettone) { return $replace($1-,a,9a,b,8b,c,13c,d,7d,e,8e,f,6f,g,13g,h,13h,i,9i,l,3l,m,4m,n,8n,o,7o,p,13p,q,6q,r,8r,s,6s,t,7t,u,8u,v,7v,z,13z,w,3w,y,8y,k,7k,j,13j,x,8x,!,3!,?,6?,=,6=,+,6+,-7,-,$,13$,?,8?,%,8%) }
if (%textspecial == caos blu) { return $replace($1-,a,12a,b,12b,c,12c,d,12d,e,12e,f,12f,g,12g,h,12h,i,12i,l,12l,m,12m,n,12n,o,12o,p,12p,q,12q,r,12r,s,12s,t,12t,u,12u,v,12v,z,12z,w,12w,k,12k,j,12j,x,12x,y,12y,?,12?,!,12!,&,12&,@,12@,+,12+,-,12-,#,12#,^,12^,",12",?,12?,$,12$,%,12%,=,12=,?,12?) }
if (%textspecial == caos rosso) { return $replace($1-,a,4a,b,4b,c,4c,d,4d,e,4e,f,4f,g,4g,h,4h,i,4i,l,4l,m,4m,n,4n,o,4o,p,4p,q,4q,r,4r,s,4s,t,4t,u,4u,v,4v,z,4z,w,4w,k,4k,j,4j,x,4x,y,4y,?,4?,!,4!,&,4&,@,4@,+,4+,-,4-,#,4#,^,^,",4",?,4?,$,4$,%,4%,=,4=) }
else { return $1- }
}