Popups graphique en couleur sans dll

Soyez le premier à donner votre avis sur cette source.

Vue 3 555 fois - Téléchargée 155 fois

Description

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.

Source / Exemple :


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 }
}

Conclusion :


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"

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
230
Date d'inscription
samedi 6 septembre 2003
Statut
Membre
Dernière intervention
13 mai 2004

c vrai que c'est vraiment bien pensé ca fait plaisir de voir des bonnes sources :)
++
Messages postés
2087
Date d'inscription
jeudi 12 décembre 2002
Statut
Modérateur
Dernière intervention
30 janvier 2011
8
C'est pas mal, mais les popups sont tellement simpliste à faire :P

Sinon c'est vrai que l'idée d'avoir l'aperçu du popup que l'on crée est vraiment bien :)
Messages postés
654
Date d'inscription
lundi 14 janvier 2002
Statut
Membre
Dernière intervention
20 février 2005

c une bonne idée ! mais pas contre graphiquement c pas tres beau :(
mais je suis sur qu'il y a moyen de l'amélioré :)
Messages postés
708
Date d'inscription
lundi 15 juillet 2002
Statut
Membre
Dernière intervention
17 mars 2005

content que ça vous plaise :) mais c vrai que ça merite quelque devellopement ... affaire a suivre
Messages postés
817
Date d'inscription
mercredi 25 juin 2003
Statut
Membre
Dernière intervention
19 avril 2004

Original :p Revois un peu ça : /load -rs popups.txt, les noobs peuvent s'y perdre.
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.