FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Planétarium virtuel.
par Pedro Alvarez Hier à 16:57

» Roues dentées
par jean_debord Hier à 10:40

» Attention arnaque !
par mindstorm Jeu 19 Juil 2018 - 19:18

» Qui fait quoi ?
par silverman Mer 18 Juil 2018 - 15:21

» ITEM_SELECT N,L pour synedit
par silverman Mer 18 Juil 2018 - 15:20

» Boussole
par jean_debord Mer 18 Juil 2018 - 11:06

» Roue à n faces
par Marc Dim 15 Juil 2018 - 22:16

» Exemple d'une nouvelle version d'un GRID
par Jean Claude Ven 13 Juil 2018 - 10:32

» Une simple question
par Oscaribout Sam 7 Juil 2018 - 23:20

» BUG sur l'objet TAB
par Jack Sam 7 Juil 2018 - 21:12

» Monopoly moderne
par jjn4 Sam 7 Juil 2018 - 15:06

» Récapitulatif ludothèque panoramic jjn4
par jjn4 Ven 6 Juil 2018 - 17:41

» Lignes ondulées
par JL35 Ven 6 Juil 2018 - 17:39

» bug off_activate 0 : sans d'effet
par silverman Ven 6 Juil 2018 - 13:02

» Position des objets d'un conteneur dans FBPano et Panoramic
par Navigateur Ven 6 Juil 2018 - 12:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Couleur Progress_bar

Aller en bas 
AuteurMessage
Fhoest

avatar

Nombre de messages : 97
Age : 42
Localisation : Nord
Date d'inscription : 04/01/2015

MessageSujet: Couleur Progress_bar   Mar 17 Avr 2018 - 21:13

Bonjour,Very Happy
qu'ils sont soyeux ces nouveaux membres ...affraid lol!

un souhait serait d'avoir la possibilité de coloriser un objet Progress_bar.
je ne suis vraiment pas pressé mais j'ai remarqué que cela n'était pas possible, si un jour cela est envisageable je pense que ça pourrait être intéressant pour un design plus sympathique à l'utilisation de se contrôle.
voici un code exemple qui ne fonctionne pas:
Code:
dim i%
progress_bar 1
width 1, 500
max 1,200
color 1 ,100,150,250' ici la couleur.
for i% = 10 to 50 step 10
position 1,i%
pause 500
next i%
Merci de regarder et à bientôt. cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://programmer-en-vb.forumactif.org/
silverman

avatar

Nombre de messages : 659
Age : 46
Localisation : Picardie
Date d'inscription : 18/03/2015

MessageSujet: Re: Couleur Progress_bar   Mar 17 Avr 2018 - 22:50

Bonsoir

J'ai fait ici une sub qui permet de le faire sunny
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Fhoest

avatar

Nombre de messages : 97
Age : 42
Localisation : Nord
Date d'inscription : 04/01/2015

MessageSujet: Re: Couleur Progress_bar   Mar 17 Avr 2018 - 23:00

Super,
un grand merci et jolie  démonstration ce code.
je pourrais maintenant personnaliser cette couleur sur mon petit jeu.
cheers cheers cheers cheers lol!

En tout cas Bravo le code fonctionne et répond à 100 % pour ma question de départ.
A+


Dernière édition par Fhoest le Jeu 19 Avr 2018 - 7:02, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://programmer-en-vb.forumactif.org/
silverman

avatar

Nombre de messages : 659
Age : 46
Localisation : Picardie
Date d'inscription : 18/03/2015

MessageSujet: Re: Couleur Progress_bar   Mer 18 Avr 2018 - 23:47

Je n'ai pas ce pb ni sous windows XP, ni sous windows 10. scratch scratch scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Couleur Progress_bar   Jeu 19 Avr 2018 - 0:37

Tiens, télécharge KGF.dll et fais marcher ceci:
Code:
dim res%, i%
progress_bar 1 : min 1,0 : max 1,255
progress_bar 2 : position 2,50 : top 2,40
dll_on "KGF.dll"
for i%=0 to 255
  position 1,i%
  res% = dll_call2("SetProgressBarColor",handle(1),i%)
  pause 10
next i%
end
Tu verras 2 ProgressBars. La première défile de gauche à droite en virant du noir au rouge. La seconde est fixe en couleur bleue (défaut).

La fonction a la syntaxe suivante:
res% = dll_call2("SetProgressBarColor",handle(N%),couleur%)
N% est le numéro de la ProgressBar, et couleur%=hex("BBGGRR").
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Couleur Progress_bar   Jeu 19 Avr 2018 - 3:10

J'ai fait mieux: j'ai ajouté un paramètre pour gérer également la couleur de fond de la ProgressBar ! Rechargez la DLL, et essayez ceci:
Code:
dim res%
progress_bar 1 : min 1,0 : max 1,255
progress_bar 2 : position 2,50 : top 2,40
dll_on "KGF.dll"
position 1,100
res% = dll_call3("SetProgressBarColor",handle(1),hex("00FFFF"),hex("0000FF"))
end
La première ScrollBar aura une barre rouge sur fond jaune. Voici le résultat:
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Fhoest

avatar

Nombre de messages : 97
Age : 42
Localisation : Nord
Date d'inscription : 04/01/2015

MessageSujet: Re: Couleur Progress_bar   Jeu 19 Avr 2018 - 7:01

Bonjour et merci à vous deux,
@Silverman,
oui tu as raison je vais modifié mon sujet plus haut, je n'ai pas de souci non plus (vérifier après plusieurs test)
je ne sais pas ce qui sait passer, je pense que ma couleur par défaut n'était pas ok au départ et en testant ton code elle s'est mis correctement , de ce fait j'ai cru que cela venait du code mais il n'en est rien, il fonctionne parfaitement je m'en excuse.
@Klauss,
Merci jolie réalisation c'est cool de pouvoir mettre deux couleurs différentes dans une même progress_bar.
je suis ravi de voir que le sujet à fait avancer la chose, pour le bonheur de tous.
vous êtes des champions.
Bonne journée et à bientôt.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://programmer-en-vb.forumactif.org/
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Couleur Progress_bar   Jeu 19 Avr 2018 - 14:56

J'ai ajouté un petit truc dans KGF.dll pour avoir des ProgressBar pesonnalisées. KGF.dll a été mise àjour sur mon WebDav dossier DLLs et sur les deux sites internet.

En-dehors du choix de la couleur pour une ProgressBar Panoramic, on peut maintenant créer des ProgressBars de plusieurs aspects, toujours avec affichage du texte donnant le pourcentage, et avec le choix des deux couleurs:
- texte seul
- barre horizontale
- barre verticale
- camembert
- aiguille dan cadran

Voici le programme de démo:
Code:
label creer, supprimer, animer, tick
dim res%, PB%, w%, h%, typ%, pos%
progress_bar 1 : min 1,0 : max 1,255 : top 1,100 : position 1,100
progress_bar 2 : position 2,50 : top 2,140

timer 8 : on_timer 8,tick : timer_off 8 : timer_interval 8,10
combo 9 : top 9,180 : left 9,10 : width 9,90
  item_add 9,"Texte seul"
  item_add 9,"Horizontal"
  item_add 9,"Vertical"
  item_add 9,"Camembert"
  item_add 9,"Aiguille"
button 10 : top 10,210 : left 10,10 : caption 10,"Créer" : on_click 10,creer
button 11 : top 11,210 : left 11,110 : caption 11,"Supprimer" : on_click 11,supprimer
button 12 : top 12,240 : left 12,10 : caption 12,"Animer" : on_click 12,animer

dll_on "KGF.dll"
res% = dll_call3("SetProgressBarColor",handle(1),hex("00FFFF"),hex("0000FF"))
res% = dll_call2("SelectComboBoxItem",handle(9),2)
end


creer:
  typ% = item_index(9) - 1
  select typ%
    case 0
      w% = 200
      h% = 25
    case 1
      w% = 200
      h% = 25
    case 2
      w% = 25
      h% = 200
    case 3
      w% = 200
      h% = 200
    case 4
      w% = 200
      h% = 100       
  end_select
  PB% = dll_call2("CreateProgressBar",handle(0),typ%)
  res% = dll_call5("LocateProgressBar",PB%,250,10,w%,h%)
  res% = dll_call3("SetProgressBarLimits",PB%,0,255)
  res% = dll_call3("SetProgressBarColors",PB%,hex("00FFFF"),hex("0000FF"))
  res% = dll_call2("SetProgressBarPosition",PB%,60)
  return

supprimer:
  timer_off 8
  PB% = dll_call1("DeleteProgressBar",PB%)
  return

animer:
  pos% = 0
  res% = dll_call2("SetProgressBarPosition",PB%,pos%)
  timer_on 8
  return
 
tick:
  timer_off 8
  pos% = pos% + 1
  if pos%>=256 then return 
  res% = dll_call2("SetProgressBarPosition",PB%,pos%)
  timer_on 8
  return

Pour tester, il faut choisir le type de ProgressBar souhaité avec la combo, puis cliquer sur "Créer".
Le bouton "Supprimer" supprime la barre et permet d'en créer une autre.
Le bouton "Animate" fait défiler la barre 1 fois de son minimum à son maximum.

Un exemple, pour le camembert:
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Minibug

avatar

Nombre de messages : 2979
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Couleur Progress_bar   Jeu 19 Avr 2018 - 15:42

Encore un petit plus pour agrémenter nos applications à nos couleurs préférées !

Tu n'es jamais à court d'inspiration à ce que je vois...
Et tant mieux car tu fais notre bonheur ! Laughing

Pour Klaus, HIP HIP HIP.... HOURRA ! cheers cheers cheers cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Fhoest

avatar

Nombre de messages : 97
Age : 42
Localisation : Nord
Date d'inscription : 04/01/2015

MessageSujet: Re: Couleur Progress_bar   Jeu 19 Avr 2018 - 21:14

Houra à mon tour, c'est trop génial.

merci pour les belles réalisations et la distribution de cette nouvelle Dll.
A bientôt.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://programmer-en-vb.forumactif.org/
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Couleur Progress_bar   Ven 20 Avr 2018 - 0:29

Pour la peine, j'ai ajouté un nouveau type de ProgressBar: un anneau elliptique (largeur et hauteur de l'ellipse sont réglables, ainsi que le diamètre du "trou" intérieur). Seule la bande représentant la ScrollBar sera affichée - le reste de la fenêtre transparaîtra à côté ou à travers l'anneau et est même cliquable.

La nouvelle version de KGF.dll est sur le WebDav dossier DLLs ainsi que sur mes deux sites internet.

Voici le programme de démo. J'ai affiché un picture coloré sur lequel les ScrollBars vont s'afficher. Essayez l'anneau via la COMBO de sélection, vous pouvez régler le diamètre intérieur par le SPIN, puis cliquez zue "Créer". Vous pouvez lancer l'animation, cliquer à travers l'anneau...
Code:
label creer, supprimer, animer, tick, click
dim res%, PB%, w%, h%, typ%, pos%, inner%, x%
progress_bar 1 : min 1,0 : max 1,255 : top 1,100 : position 1,100
progress_bar 2 : position 2,50 : top 2,140

timer 8 : on_timer 8,tick : timer_off 8 : timer_interval 8,10
combo 9 : top 9,180 : left 9,10 : width 9,90
  item_add 9,"Texte seul"
  item_add 9,"Horizontal"
  item_add 9,"Vertical"
  item_add 9,"Camembert"
  item_add 9,"Aiguille"
  item_add 9,"Anneau"
alpha 91 : top 91,180 : left 91,120 : caption 91,"Anneau: diamètre intérieur:"
spin 92 : top 92,180 : left 92,250 : width 92,45
  min 92,0 : max 92,199 : position 92,160
picture 93 : top 93,5 : left 93,295 : width 93,210 : height 93,210 : color 93,0,255,255
  on_click 93,click
button 10 : top 10,210 : left 10,10 : caption 10,"Créer" : on_click 10,creer
button 11 : top 11,210 : left 11,110 : caption 11,"Supprimer" : on_click 11,supprimer
button 12 : top 12,240 : left 12,10 : caption 12,"Animer" : on_click 12,animer

dll_on "KGF.dll"
res% = dll_call3("SetProgressBarColor",handle(1),hex("00FFFF"),hex("0000FF"))
res% = dll_call2("SelectComboBoxItem",handle(9),2)
end


creer:
  typ% = item_index(9) - 1
  x% = 300
  select typ%
    case 0
      w% = 200
      h% = 25
      inner% = 0
    case 1
      w% = 200
      h% = 25
      inner% = 0
    case 2
      w% = 25
      h% = 200
      inner% = 0
    case 3
      w% = 200
      h% = 200
      inner% = 0
    case 4
      w% = 200
      h% = 100       
      inner% = 0
    case 5
      x% = 150
      w% = 200
      h% = 400        : ' intentionnellement en ellipse pour montrer cela !
      inner% = position(92)
  end_select
  PB% = dll_call2("CreateKGFProgressBar",handle(0),typ%)
  res% = dll_call6("LocateKGFProgressBar",PB%,x%,10,w%,h%,inner%)
  res% = dll_call3("SetKGFProgressBarLimits",PB%,0,255)
  res% = dll_call3("SetKGFProgressBarColors",PB%,hex("00FFFF"),hex("0000FF"))
  res% = dll_call2("SetKGFProgressBarPosition",PB%,60)
  return

supprimer:
  timer_off 8
  PB% = dll_call1("DeleteKGFProgressBar",PB%)
  return

animer:
  pos% = 0
  res% = dll_call2("SetKGFProgressBarPosition",PB%,pos%)
  timer_on 8
  return
 
tick:
  timer_off 8
  pos% = pos% + 1
  if pos%>=256 then return 
  res% = dll_call2("SetKGFProgressBarPosition",PB%,pos%)
  timer_on 8
  return

click:
  message "Clic dans le picture 93"
  return

Voici de quoi ça a l'air, avec un anneau colontairement en ellipse (évidemment, un cercle est possible !):


D'après ce que je constate, l'anneau se place par-dessus les ALPHA et PICTURE, mais en-dessous des BUTTON et autres contrôles avec handle.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Couleur Progress_bar   Ven 20 Avr 2018 - 2:51

Avec ces fonctions, on peut aussi faire ceci (assez spectaculaire):
Code:
' test_2_ProgressBar_concentriques

dim res%, PBinner%, PBouter%, i%

dll_on "KGF.dll"


  PBinner% = dll_call2("CreateKGFProgressBar",handle(0),5)
  res% = dll_call6("LocateKGFProgressBar",PBinner%,100,100,200,200,0)
  res% = dll_call3("SetKGFProgressBarLimits",PBinner%,0,255)
  res% = dll_call3("SetKGFProgressBarColors",PBinner%,hex("00FFFF"),hex("0000FF"))

  PBouter% = dll_call2("CreateKGFProgressBar",handle(0),5)
  res% = dll_call6("LocateKGFProgressBar",PBouter%,80,80,240,240,200)
  res% = dll_call3("SetKGFProgressBarLimits",PBouter%,0,255)
  res% = dll_call3("SetKGFProgressBarColors",PBouter%,hex("FFFF00"),hex("FF0000"))


  for i%=0 to 255
    res% = dll_call2("SetKGFProgressBarPosition",PBinner%,i%)
    res% = dll_call2("SetKGFProgressBarPosition",PBouter%,256-i%)
    pause 20
  next i%
 
  end

Essayez-le !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Contenu sponsorisé




MessageSujet: Re: Couleur Progress_bar   

Revenir en haut Aller en bas
 
Couleur Progress_bar
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Couleur : traitement par Teinte, Saturation, Luminosité
» des photos en couleur de la 14-18
» Couleur et police...
» [SUGGESTION] Changer la couleur du groupe "membres" & idée d'un nouveau groupe
» Changer la couleur d'un progressbar ?

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos souhaits d'amélioration de Panoramic-
Sauter vers: