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
» Version instantanée V 0.9.28i18 du 27/04/2018
par Jack Aujourd'hui à 8:49

» Et encore un éditeur...
par Jean Claude Aujourd'hui à 8:41

» Un CONTAINER sans bordure
par Fredisland Hier à 23:27

» windows
par Klaus Hier à 23:21

» Exécutables et Applications
par Jack Hier à 20:07

» Une suggestion pour soulager l'auteur de PANORAMIC
par Fredisland Hier à 20:05

» Le serpent qui se mange la queue avec LE DOSSIER EN COURS
par Fredisland Hier à 20:00

» Utilisation de Make_Exe
par Jack Hier à 19:50

» Comment travaille l'auteur de Panoramic
par Jack Hier à 19:43

» API Windows
par Fredisland Hier à 19:16

» Utilisation de RunDll32
par Fredisland Hier à 17:55

» pbs dessin et ecriture sur form
par Fredisland Hier à 17:34

» Panoramic et Windows
par Fredisland Hier à 14:55

» Identifiants Globaux utilisés par Windows
par Fredisland Hier à 14:05

» Nouvelle version 0.32
par Jean Claude Hier à 14:00

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Avril 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
30      
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 : 583
Age : 45
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 : 583
Age : 45
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 : 10970
Age : 68
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 : 10970
Age : 68
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 : 10970
Age : 68
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 : 2744
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 : 10970
Age : 68
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 : 10970
Age : 68
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: