FontManager

[chain]

Add-on che permette di scrivere colorato, sottolineato e in grassetto!

 

on *:load:{ echo -a $chr(2) -= load FontManager =- by Kaesar83 $chr(2) }

on *:unload:{ echo -a $chr(2) -= unload FontManager =- by Kaesar83 $chr(2) }



dialog Fontman {

  title "Font manager"

  size 177 114 131 59

  option dbu

  box "Font Manager", 1, 0 1 131 46

  text "Colore testo:", 2, 4 12 35 6

  text "Sfondo testo:", 3, 4 30 35 6

  combo 4, 42 11 44 50, drop size

  combo 5, 42 29 44 44, drop size

  check "Bold", 8, 93 9 35 9, push

  check "Underline", 9, 93 21 35 9, push

  check "Normal", 15, 93 33 35 9, push

  button "Applica", 10, 60 48 37 10

  box "", 12, 92 4 37 40

  link "http://www.irczone.tk", 14, 3 49 55 13

  text "Kaesar83 ©", 16, 100 49 70 16, disable 

  button "&Hide", 13, 0 0 0 0, hide Ok

}

on 1:dialog:fontman:sclick:14:{ .url -an http://kaesar83.altervista.org }

on *:dialog:fontman:sclick:10:{ if ($did(4).seltext == Default) && ($did(5).seltext == Default) { dialog -x $dname $dname } | elseif ($did(4).text != Default) && ($did(5) == Default) { dialog -x $dname $dname } | elseif ($did(4).seltext == Default) || ($did(5).seltext == Default) { dialog -m warning2 warning2 } | else { dialog -x $dname $dname } }

on *:dialog:fontman:sclick:8:{ if ($did(8).state == 1) { set %font_bold on | $iif(%font_normal == on,normal1,$chr(32)) } | else { set %font_bold off } }

on *:dialog:fontman:sclick:9:{ if ($did(9).state == 1) { set %font_underlines on | $iif(%font_normal == on,normal1,$chr(32)) } | else { set %font_underlines off } }

on *:dialog:fontman:sclick:15:{ if ($did(15).state == 1) { set %font_normal on | unset %font_underlines %font_bold | did -u $dname 8,9 } | else { set %font_normal off } }

on *:dialog:fontman:sclick:4:{ verifica }

on *:dialog:fontman:sclick:5:{ verifica_bg }

on *:dialog:fontman:*:*:{

  if $devent = init {

    $aggiornacolor(4)

    $aggiornacolor(5)

    if (%font_bold == on) { did -c $dname 8 }

    if (%font_underlines == on) { did -c $dname 9 }

    if (%font_normal == on) { did -c $dname 15 }

    combo.init

    combo.init2

  }

}

alias aggiornacolor { did -r fontman $1 | var %n 1 | while (%n 
 
Default
Nero
Bianco
Rosso
Blu
Grigio chiaro
Grigio scuro
Verde
Arancio
Giallo
Celeste
Blu chiaro
Violetto
Rosa