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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 714 fois - Téléchargée 26 fois

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

Ajouter un commentaire

Commentaire

Signaler
cs_HatMan
Messages postés
141
Date d'inscription
dimanche 25 août 2002
Statut
Membre
Dernière intervention
11 février 2004
 -
bien jaime bien moi :) bon boulo
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)