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
» Un petit "coucou" à tous les Panoramiciens !
par Yannick Aujourd'hui à 23:06

» mise a jour calculatrice
par joeeee2017 Aujourd'hui à 22:44

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Aujourd'hui à 16:52

» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 14:16

» Compilateur FBPano
par Ouf_ca_passe Aujourd'hui à 12:25

» double guillemets "" dans un EDIT
par Marc Hier à 23:43

» Documentation de KGF
par Klaus Lun 20 Nov 2017 - 22:52

» Zoom sur une portion d'écran
par JL35 Lun 20 Nov 2017 - 21:51

» Recherche d'une expression dans un source
par Marc Lun 20 Nov 2017 - 13:08

» Tracer une grille n'importe où sur l'écran
par JL35 Dim 19 Nov 2017 - 22:14

» TourD Version 2
par Klaus Sam 18 Nov 2017 - 23:58

» La métamatière et le peuple
par JL35 Ven 17 Nov 2017 - 21:18

» Capture d'une zone de l'écran total
par JL35 Ven 17 Nov 2017 - 18:41

» qui peut résoudre mon prb
par pascal10000 Jeu 16 Nov 2017 - 17:30

» évènements et objets système : listage automatique
par Jean Claude Jeu 16 Nov 2017 - 11:15

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
27282930   
CalendrierCalendrier

Partagez | 
 

 couleur d'un progress_bar

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
silverman

avatar

Nombre de messages : 471
Age : 45
Localisation : Picardie
Date d'inscription : 19/03/2015

MessageSujet: couleur d'un progress_bar   Dim 30 Oct 2016 - 15:31

Bonjour à tous!

'color' ne permet pas de changer la couleur de la barre d'un objet 'progress_bar', voici une sub autonome pour effectuer cet oubli Surprised
Code:
' colorer la barre de l'objet 'progress_bar'

  progress_bar 1:left 1,5:width 1,200
  color_progress_bar(1,255,0,255)   :' mauve
  position 1,50
  
  progress_bar 2:left 2,5:width 2,200:top 2,100
  color_progress_bar(2,255,0,0)   :' rouge
  position 2,50


END
sub COLOR_PROGRESS_BAR(nb%,r%,g%,b%)
 dim_local i,j,k%,my_library$,my_dll$,found%
 ' verifie si "user32" existe:
 my_dll$="user32"
   '
   i=0
   k%=0
   found%=0
   my_dll$=lower$(my_dll$)
   j=instr(my_dll$,".") : if j>0 then my_dll$=left$(my_dll$,j-1)
   '
   repeat
      k%=k%+1
   until library$(k%)="_"

   repeat
      i=i+1
         my_library$=lower$(library$(i))
         j=instr(my_library$,".") : if j>0 then my_library$=left$(my_library$,j-1)
         '
         if my_library$=my_dll$
            found%=1
            exit_repeat
         end_if
   until i=32
   '
   ' charge la librairie et cré la commande si nécessaire
   if found%=0
      library k%,my_dll$
'      print k%," : not found ",library$(k%)   :' debug
      command "pb_color","SendMessageA",k%,"IIII","stdcall"
   else
'      print i," : found ",library$(i)   :' debug
   end_if
   '
   ' colore la progress_bar
   pb_color handle(nb%),1033,0,(b%*65536)+(g%*256)+r%
end_sub
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7998
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 30 Oct 2016 - 18:03

Je prends !
et je mets cela dans ma subothèque.
Laughing

Merci Silverman.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5992
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: couleur d'un progress_bar   Mar 1 Nov 2016 - 22:41

Astucieux, et ça marche ! même si je n'ai pas tout compris... scratch
Et bel exemple d'utilisation des nouveaux mots-clés panoramic (Library, Command...)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: couleur d'un progress_bar   

Revenir en haut Aller en bas
 
couleur d'un progress_bar
Voir le sujet précédent Voir le sujet suivant 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 sources, vos utilitaires à partager-
Sauter vers: