/drawtrackbar <-h/-v> <@> <x> <y> <w/h> <pos>

Commenter

Contenu du snippet

Permet de dessiner une trackbar à l'intéreur d'une window à la position demandée (vous décider aussi de la position du pointeur)

Source / Exemple : 


; /drawtrackbar <-h/-v> <@> <x> <y> <w/h> <pos> par WapsNest/War[DoWn] (J.Guay@MathInformatique.Com)
; Exemple:
; /drawtrackbar -h @amp 5 100 200 20 <= Dessinera une trackbar horizontale dans la fenêtre @amp aux coordonnées (5,100) de 200 pixels de largeur avec un curseur à la position 20 de la trackbar
; /drawtrackbar -v @vol 5 100 200 20 <= Dessinera une trackbar horizontale dans la fenêtre @vol au coordonnées (5,100) de 200 pixels de hauteur avec un curseur à la position 20 de la trackbar

; Ouverture de l'alias
alias drawtrackbar {
  var %w = $iif($left($2,1) == $chr(64),$2,$chr(64) $+ $2)
  ; Si certain paramêtres sont manquants ou que la position du pointeur est plus grand que la hauteur/largeur de la trackbar
  if !$6 || !$window(%w) || $6 > $5 { halt }
  ; Si la trackbar devra être horizontale
  if $1 == -h {
    ; Nous dessinons la barre à la position et les dimensions demandée 
    drawrect -r %w $rgb(0,0,0) 1 $3-5 4
    drawrect -r %w $rgb(180,180,180) 1 $calc($3 + 1) $calc($4 + 1) $calc($5 - 2) 1
    drawrect -r %w $rgb(220,220,220) 1 $calc($3 + 1) $calc($4 + 2) $calc($5 - 2) 1
    ; Nous dessinons le pointeur à la position demandé
    drawrect -r %w $rgb(0,0,0) 1 $calc(($6 + $3) - 2) $calc($4 - 4) 5 12
    drawrect -r %w $rgb(180,180,180) 1 $calc(($6 + $3) - 1) $calc($4 - 3) 3 10
    drawrect -r %w $rgb(220,220,220) 1 $calc($6 + $3) $calc($4 - 2) 1 8
  }
  ; Si la barre devra être verticale
  if $1 == -v {
    ; Nous dessinons la barre à la position et les dimensions demandée 
    drawrect -r %w $rgb(0,0,0) 1 $3-4 4 $5
    drawrect -r %w $rgb(180,180,180) 1 $calc($3 + 1) $calc($4 + 1) 1 $calc($5 - 2)
    drawrect -r %w $rgb(220,220,220) 1 $calc($3 + 2) $calc($4 + 1) 1 $calc($5 - 2)
    ; Nous dessinons le pointeur à la position demandé
    drawrect -r %w $rgb(0,0,0) 1 $calc($3 - 4) $calc(($6 + $4) - 2) 12 5
    drawrect -r %w $rgb(180,180,180) 1 $calc($3 - 3) $calc(($6 + $4) - 1) 10 3
    drawrect -r %w $rgb(220,220,220) 1 $calc($3 - 2) $calc($6 + $4) 8 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 (WarDoWn)