@ Silverman

' colorer la barre de l'objet 'progress_bar'
  dim x%,l%,red%,green%,blue%
  label clic,change
 
  l%=5
  for x%=1 to 3
    spin x% : width x%,60 : top x%,20 : left x%,l% : min x%,0 : max x%,255 : on_change x%,change
    l% = l%+width(x%)+5
  next x%

  progress_bar 4 : top 4,50 : left 4,5 : width 4,200

  min 4,0
  max 4,100
  position 4,0
 
  button 5 : left 5,left(4)+width(4)+10 : top 5,top(4) : caption 5,"Lancer"
  on_click 5,clic
 
  picture 6 : height 6,height(1) : width 6,22 : top 6,top(1) : left 6,l%

END

clic:
  color_progress_bar(4,red%,green%,blue%)
  position 4,0
  for x%=1 to 100
      position 4,position(4)+1
      pause 50
  next x%
  pause 2000
  position 4,0
return


change:
  if number_change =1
      red%=position(1)
      color 6,red%,green%,blue%
      return
  end_if
 
  if number_change =2
      green%=position(2)
      color 6,red%,green%,blue%
      return
  end_if
 
  if number_change =3
      blue%=position(3)
      color 6,red%,green%,blue%
      return
  end_if
return


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

' 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 non fonctionnelle car la version actuelle de panoramique (0.9.29i8) est boguée pour les commandes de library  
sub COLOR_PROGRESS_BAR2(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
   ' message k%
   '
   ' colore la progress_bar
   pb_color handle(nb%),1033,0,(b%*65536)+(g%*256)+r%
end_sub


' sub fonctionnelle
sub COLOR_PROGRESS_BAR(nb%,r%,g%,b%)
 dim_local i%
   dll_on "user32.dll"
      i%=dll_call4("SendMessageA",handle(nb%),1033,0,(b%*65536)+(g%*256)+r%)
   dll_off
end_sub