Lecteur mp3 en pickwin (modifier)

Commenter

Contenu du snippet

Un lecteur différent de tous les autre lecteur en dialog.
Il n'est toujours pas fini... Il y a juste une chose en plus, le nom du mp3...

Source / Exemple : 


On *:load:{ if ($version != 6.03) { echo -a Votre version est différente de la 6.03, je ne sais pas si le lecteur fonctionne... tapez /lectmp3 }
  else { echo -a Lecteur Mp3 Charger | lectmp3 }
}
alias Lectmp3 {
  window -odapBk0z +dL @mp3 10 10 180 120 | drawrect @mp3 1 1 19 104 141 15 | drawrect @mp3 1 1 0 0 180 335 | drawrect @mp3 1 1 0 0 180 10 | drawrect @mp3 1 1 0 0 162 10 | drawtext @mp3 1 Arial 8 172 0 X | drawtext @mp3 1 Arial 9 164 -3 _ | drawtext @mp3 1 Tahoma 8 14 0 Lecteur MP3 par Tom_mlkj | drawrect -f @mp3 1 1 26 57 30 15 | drawrect -f @mp3 1 1 59 57 30 15 | drawrect -f @mp3 1 1 92 57 30 15 | drawrect -f @mp3 1 1 65 25 52 15 | drawrect -f @mp3 1 1 125 57 30 15 | drawrect @mp3 1 1 73 88 34 15 | drawline @mp3 1 1 19 95 73 95 | drawline @mp3 1 1 106 95 160 95 | drawtext @mp3 0 Tahoma 11 75 25 Dossier | drawtext @mp3 0 Tahoma 10 32 58 Play | drawtext @mp3 0 Tahoma 10 61 58 Pause | drawtext @mp3 0 Tahoma 10 131 58 Stop | drawtext @mp3 0 Tahoma 8 93 60 Resume | window -apoBk0dslL +deL @pl 10 130 180 200 arial 12 | 
  var %a = $findfile(%dossier,*.mp3*,0,1, aline -p 10 @pl $nopath($1-))
}
menu @mp3 {
  mouse { 
    if ($mouse.x >= 59) && ($mouse.x <= 89) && ($mouse.y >= 57) && ($mouse.y <= 72) { drawrect -f @mp3 0 0 59 57 30 15 | drawtext @mp3 1 Tahoma 10 61 58 Pause } 
    else { drawrect -f @mp3 1 1 59 57 30 15 | drawtext @mp3 0 Tahoma 10 61 58 Pause } 
    if ($mouse.x >= 26) && ($mouse.x <= 56) && ($mouse.y >= 57) && ($mouse.y <= 72) { drawrect -f @mp3 0 0 26 57 30 15 | drawtext @mp3 1 Tahoma 10 32 58 Play } 
    else { drawrect -f @mp3 1 1 26 57 30 15 | drawtext @mp3 0 Tahoma 10 32 58 Play }
    if ($mouse.x >= 92) && ($mouse.x <= 121) && ($mouse.y >= 57) && ($mouse.y <= 72) { drawrect -f @mp3 0 0 92 57 30 15 | drawtext @mp3 1 Tahoma 8 93 60 Resume } 
    else { drawrect -f @mp3 1 1 92 57 30 15 | drawtext @mp3 0 Tahoma 8 93 60 Resume } 
    if ($mouse.x >= 125) && ($mouse.x <= 154) && ($mouse.y >= 57) && ($mouse.y <= 72) { drawrect -f @mp3 0 0 125 57 30 15 | drawtext @mp3 1 Tahoma 10 131 58 Stop } 
    else { drawrect -f @mp3 1 1 125 57 30 15 | drawtext @mp3 0 Tahoma 10 131 58 Stop } 
    if ($mouse.x >= 65) && ($mouse.x <= 116) && ($mouse.y >= 25) && ($mouse.y <= 39) { drawrect -f @mp3 0 0 65 25 52 15 | drawtext @mp3 1 Tahoma 11 75 25 Dossier } 
  else { drawrect -f @mp3 1 1 65 25 52 15 | drawtext @mp3 0 Tahoma 11 75 25 Dossier } }
  sclick {
    if ($mouse.y < 20) Lectmp3.move $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y)
    if ($inrect($mouse.x,$mouse.y,169,1,10,9)) { window -c @mp3 | window -c @pl | set %lectmpause 0 }
    if ($inrect($mouse.x,$mouse.y,164,0,10,9)) { window -c @mp3 | window -c @pl | reduc }
    if ($inrect($mouse.x,$mouse.y,26,57,30,15)) { if ( %playlectmp3 != $null ) { splay -p %playlectmp3 | set %lectmpause 0 | .timer 0 1 lectmp3tps
        drawrect -f @mp3 10 10 20 105 139 13  
    drawtext @mp3 1 Tahoma 10 22 105 $left( $+ $nopath( $+ $insong.fname $+ ) $+ ,25) $+ ... } }
    if ($inrect($mouse.x,$mouse.y,125,57,30,15)) { splay stop | drawrect -f @mp3 10 10 74 89 32 13 | drawrect -f @mp3 10 10 20 105 139 13 | set %lectmpause 0 }
    if ($inrect($mouse.x,$mouse.y,59,57,30,15)) { if ($insong == $true) { splay pause | set %lectmpause 1 } }
    if ($inrect($mouse.x,$mouse.y,92,57,30,15)) { if (%lectmpause == 1) { splay resume | set %lectmpause 0 } }
    if ($inrect($mouse.x,$mouse.y,65,25,51,14)) {   
      if ($window(@pl)) {
        %dossier = $sdir(*.*,Choisir le dossier,OK!)
        clear @pl
      var %a = $findfile(%dossier,*.mp3*,0,1, .aline -p 10 @pl $nopath($1-)) }
    }
  }
}
On *:close:@mp3:{ unset %lectmpause } 
alias reduc { window -odapBk0z +dL @reduc 0 300 5 90 |  drawfill @reduc 10 10 1 1 |  drawtext @reduc 0 Tahoma 10 2 0 L |  drawtext @reduc 0 Tahoma 10 2 8 E |  drawtext @reduc 0 Tahoma 10 1 16 C |  drawtext @reduc 0 Tahoma 10 2 24 T |  drawtext @reduc 0 Tahoma 10 2 32 E |  drawtext @reduc 0 Tahoma 10 1 40 U |  drawtext @reduc 0 Tahoma 10 2 48 R |  drawtext @reduc 1 Tahoma 10 2 60 M |  drawtext @reduc 1 Tahoma 10 3 68 P |  drawtext @reduc 1 Tahoma 10 3 76 3 }
menu @reduc { 
sclick { window -c @reduc | lectmp3 } }
alias lectmp3tps { if ($window(@mp3)) && ($insong != $false) { set %tpslectmp3 $duration( $calc( ( $insong.length - $insong.pos ) / 1000 ) ) | titipopo  } }
alias titipopo {  %tpslectmp3 = $replace( %tpslectmp3 ,secs,) |  %tpslectmp3 = $replace( %tpslectmp3 ,mins, :) |  %tpslectmp3 = $replace( %tpslectmp3 ,sec,) |  %tpslectmp3 = $replace( %tpslectmp3 ,min, :) |  %tpslectmp3 = $replace( %tpslectmp3 , ,) |  drawrect -f @mp3 10 10 74 89 32 13 |  drawtext -p @mp3 1 Tahoma 9 80 90 1,10 $+ %tpslectmp3 }
menu @pl {
dclick {    set %playlectmp3 %dossier $+ $sline(@pl,1)  } }
alias -l Lectmp3.move { if ($window(@mp3)) window @mp3 $calc($mouse.dx - $1) $calc($mouse.dy - $2) | if ($window(@pl)) window @pl $calc($mouse.dx - $1 - -0) $calc($mouse.dy - $2 - -120) | if ($mouse.key & 1) .timer $+ $ticks -m 1 0 Lectmp3.move $1- }

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 (Tommlkj)