Popups graphique en couleur sans dll

Télécharger le projet
Commenter

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"
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (Kerrigan)