POPUPS GRAPHIQUE EN COULEUR SANS DLL

---

Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

C'est une alternative aux popups classiques du mirc, celui ci est en fond blanc et les selections se font en bleu clair. On peut l'attacher a une fenetre utilisateur, aux popups normaux il peut meme les remplacer ( enfin presque )

Ce code contient un editeur de popups pour faire facilement ses propres popups graphiques
Il est imperatif de suivre les instruc tion pour la bonne marche du code.

alias -l r1 { return $readini(popups2.ini,n,para,$1) }
alias -l r21 { return $gettok($readini(popups2.ini,n,texte,n $+ $1),1,58) }
alias -l r22 { return $gettok($readini(popups2.ini,n,texte,n $+ $1),2,58) }
alias -l w { writeini -n popups2.ini para $1 $2 }
alias -l ouvrir { 
  set %itr 1 
  $w(file,$1) 
  did -a popups 7 $1
  while ( %itr <= $lines($1) ) { did -a popups 6 $read($1,%itr) $crlf | inc %itr }
  did -a popups 10 $nopath($1)
}

dialog popups { 
  title "Popups Config"
  size -1 -1 400 300
  button "Sauvegarder", 4, 20 270 100 20 , ok ,flat
  edit "", 6, 20 20 350 250,  return, multi, vsbar
  edit "", 7,140 270 110 23, multi,
  button "Ouvrir", 8, 20 0 100 20 ,flat
  button "Help ?" ,9, 140 0 100 20,flat
  text ,10, 250 0 200 20
}

on *:dialog:popups:init:0: { $ouvrir($eval($r1(file),2)) }
on *:dialog:popups:sclick:4:{ 
  set %itr 1 
  unset %ligne
  if ($exists($did(7).text)) { .remove $did(7).text }
  while ( %itr <= $did(6).lines) { 
    if ( $gettok($did(6,%itr).text,0,58) != 2 ) && ( $did(6,%itr).text != $null ) { set %ligne %ligne %itr }
    write $did(7).text $did(6,%itr).text 
    inc %itr
  }
  $w(file,$did(7).text)
  if ( %ligne != $null ) { dialog -m erreur.p erreur.p }
}

on *:dialog:popups:edit:6:{  
  ;set %itr 1 
  ;while ( %itr <= $did(6).lines) { 
  ;  write $r1(file) $did(6,%itr).text
  ;  inc %itr
  ;}
}

on *:dialog:popups:sclick:8:{ did -r popups 6 | $ouvrir($sfile($mircdir,Choisit un fichier texte,Ok)) }
on *:dialog:popups:sclick:9:{ run aide-popups.txt }

dialog erreur.p { 
  title "Erreur Popups"
  size -1 -1 160 55
  text il manque '':'' a  la ligne %ligne ,1,20 10 150 20
  button "OK" ,2,20 30 100 20,flat,ok
}

on *:dialog:erreur.p:sclick:2:{ dialog -m popups popups }


alias lance.popup { 
  if ( $1 != $null ) {
    remini popups2.ini texte
    set %itr 1
    set %line 1
    while ( %itr <= $lines($1) ) { if ( $gettok($read($1,%itr),0,58) = 2 ) { writeini -n popups2.ini texte n $+ %line $read($1,%itr) | inc %line } | inc %itr }
  }
  $w(x,$mouse.x) 
  $w(y,$mouse.y)
  set %itr 1
  $w(mx,0)
  while ( $r21(%itr) != $null ) { if ( $len($r21(%itr)) > $r1(mx) ) { $w(mx,$ifmatch) } | inc %itr }
  $w(len,$calc(%itr -1))
  $w(mx,$calc($r1(mx) * 9 ))
  $w(my,$calc(17 * %itr ))
  $w(pos,0)
  if ( $window(@popups) != $null ) { window -c @popups }
  window -hkp +edfL @popups  
  window -a @popups $r1(x) $r1(y) $r1(mx) $r1(my)
  set %itr 0
  set %tir 1
  while ( %itr <= $r1(my) ) {
    if ( $r21(%tir) != $null ) { drawtext -r @popups $rgb(0,0,0) 5 %itr $ifmatch }
    inc %tir
    set %itr $calc( %itr + 18 )
    $w(pos,$r1(pos) %itr)
  }
}

menu @popups {
  mouse : {
    set %itr 1
    if ( $inrect($mouse.x,$mouse.y,0,$gettok($r1(pos),$r1(position),32) ,$r1(mx),18) = $true ) { halt }
    while ( %itr <= $gettok($r1(pos),0,32) ) {
      drawrect -cnrf @popups $rgb(255,255,255) 10 0 $gettok($r1(pos),%itr,32) $r1(mx) 18
      if ( $r21(%itr) != $null ) { drawtext -r @popups $rgb(0,0,0) 5  $gettok($r1(pos),%itr,32) $r21(%itr) }
      if ( $inrect($mouse.x,$mouse.y,0,$gettok($r1(pos),%itr,32) ,$r1(mx),18) = $true ) { 
        drawrect -cnrf @popups $rgb(0,100,200) 10 0 $gettok($r1(pos),%itr,32) $r1(mx) 18
        if ( $r21(%itr) != $null ) { drawtext -r @popups $rgb(0,0,0) 5 $gettok($r1(pos),%itr,32) $r21(%itr) }
        $w(position,%itr)
      }
      inc %itr
    }
  }
  sclick : { $eval($r22($r1(position)),2) | window -c $active }
  leave : { window -c @popups | unset %itr %tir %line }
}

on 1:keydown:@popups:13: { $eval($r22($r1(position)),2) | window -c $active }
on 1:keydown:@popups:38: { 
  if ( $r1(position) <= 1 ) {
    $w(position,$r1(len))
    drawrect -cnrf @popups $rgb(255,255,255) 10 0 $gettok($r1(pos),1,32) $r1(mx) 18
    drawtext -r @popups $rgb(0,0,0) 5 $gettok($r1(pos),1,32) $r21(1) 
    goto fin
  }
  drawrect -cnrf @popups $rgb(255,255,255) 10 0 $gettok($r1(pos),$r1(position),32) $r1(mx) 18
  if ( $r21($r1(position)) != $null ) { drawtext -r @popups $rgb(0,0,0) 5 $gettok($r1(pos),$r1(position),32) $ifmatch }
  $w(position,$calc($r1(position) -1))
  :fin
  drawrect -cnrf @popups $rgb(0,100,200) 10 0 $gettok($r1(pos),$r1(position),32) $r1(mx) 18
  if ( $r21($r1(position)) != $null ) { drawtext -r @popups $rgb(0,0,0) 5 $gettok($r1(pos),$r1(position),32) $ifmatch }
}

on 1:keydown:@popups:40: { 
  if ( $r1(position) > $r1(len) ) { 
    $w(position,1) 
    drawrect -cnrf @popups $rgb(255,255,255) 10 0 $gettok($r1(pos),1,32) $r1(mx) 18
    drawtext -r @popups $rgb(0,0,0) 5 $gettok($r1(pos),1,32) $r21(1) 
    goto fin
  }
  drawrect -cnrf @popups $rgb(255,255,255) 10 0 $gettok($r1(pos),$r1(position),32) $r1(mx) 18
  if ( $gettok(%tpopups,$r1(position),44) != $null ) { drawtext -r @popups $rgb(0,0,0) 5 $gettok($r1(pos),$r1(position),32) $ifmatch }
  $w(position,$calc($r1(position) +1))
  :fin
  drawrect -cnrf @popups $rgb(0,100,200) 10 0 $gettok($r1(pos),$r1(position),32) $r1(mx) 18
  if ( $r21($r1(position)) != $null ) { drawtext -r @popups $rgb(0,0,0) 5 $gettok($r1(pos),$r1(position),32) $ifmatch }
}

Toutes les instructions relatives au fonctionement du code sont dans le fichier zip. ces instructions sont contenues dans le fichier aide-popups.txt.

Je n'ai pas remarqué de bug s suivez les instructions et yaura pas de probleme, aussi ce n'est pas un "vrai" popup car le code ne permet pas encore d'arborescence comme les "vrais" popups de windows ou du mirc

Pour l'instant on a droit qu'a une seule couleur de selection et le fond est blanc ... plus tard ça devrait changer et il y aura peu etre aussi des sous popups pour qu'il soit plus "vrai"

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

• CALENDRIER PERPÉTUEL EN PICWIN
• HOLORGE À AIGUILLE EN PICWIN
• PICWIN CLIPBOARD ET LISTE DE CARACTERES
• DÉGRADÉ.H , LIBRAIRIE DE DEGRADE.
• CRYPTAGE AVEC UN ENDOMORPHISME INVOLUTIF

• WORLDDMT TEXT COLOR V 1.0
• WORLDDMT WPASS V 1.2 - UN GENERATEUR DE PASSE PAR MOT
• SCAN IRCOP BY DEVORZ
• ANTIBAN PROTECTION BY DJUL.
• WORLDDMT FUN WBAR V 1.0 - ADDON POUR BOT FUN