Palette de couleur?

[Noos88]

Bonjour a vous tous,

C'est un prog pour les "petits" de peinture sur dessin que je contais faire mais faute de ne pas trouvé une solution pour la palette de couleur je vous donne le code pas fini,si une personne a une idée de palette de couleur à intégré sa serais le bienvenu.

lien du code:
https://docs.google.com/viewer?a=v&pid= ... NTMw&hl=fr

Bonne continuation

[venom]

Salut,

sympa comme application en tout cas Bravo Noos88







@++

[djes]

Oui, c'est sympa.
Sinon, je n'ai pas compris la question ?

[venom]

Oui, c'est sympa.
Sinon, je n'ai pas compris la question ?

En faite je pense qu'il donne le source et si sa plait a quelqu'un il peut l’amélioré en y ajoutant une palette de couleur.







@++

[PAPIPP]

Bonjour Noos 88
Bravo pour ce Prg
Peut-être est-ce ceci que tu cherches

ColorRequester()

Syntaxe

Couleur = ColorRequester([CouleurActuelle])
Description

Ouvre une boîte de dialogue standard pour choisir une couleur. La couleur sélectionnée est renvoyée dans Couleur sous la forme d'une valeur 24 bits (3 octets) dont chaque octet contient la valeur de chacune des composantes Rouge, Vert et Bleu. Pour récupérer facilement la valeur de chacune des composantes, les commandes Red(), Green() et Blue() sont diponibles. Si l'utilisateur choisit le bouton <Annuler> de la boîte de dialogue, la valeur retournée est -1. Le paramètre optionnel 'CouleurActuelle' peut être utilisé pour indiquer la couleur par défaut lors de l'ouverture de la boîte.


Exemple

Couleur.l = ColorRequester()
If Couleur > -1
a$ = "Vous avez sélectionné la couleur suivante:" + Chr(10) ; Chr(10) est seulement nécessaire
a$ + "Valeur 24 Bits: " + Str(Couleur) + Chr(10) ; pour les retours à la ligne
a$ + "Composante rouge: " + Str(Red(Couleur)) + Chr(10)
a$ + "Composante verte: " + Str(Green(Couleur)) + Chr(10)
a$ + "Composante bleue: " + Str(Blue(Couleur))
Else
a$ = "La sélection a été annulée."
EndIf
MessageRequester("Information",a$,0)
End

A+

[Noos88]

J'y avais bien pensé a ColorRequester() et c'est d’ailleurs dans le même principe que je voulais que ma palette de couleur soit, mais çà fait tout de même beaucoup de répétition de "ButtonGadget()" et de "CreateImage()" à intégré.

Il y a peux etre une autre solution mais que je ne connais pas.

Merci pour ces encouragements

[Noos88]

J'ai eu presque une idée mais ca ne marche toujours pas
Ci ca peut aidée quelqu'un

Code : Tout sélectionner

Nbrcouleur=20
Dim Couleur.l(Nbrcouleur)

DifCouleur=(RGB(255,255,255)-RGB(5,5,5))/Nbrcouleur

If OpenWindow(0, 100, 200, 210, 100, "Palette couleur", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)

y=200
z=0
x=0

For n=1 To Nbrcouleur

  couleurrgb=n*DifCouleur
  Image=CreateImage(#PB_Any,30,30):StartDrawing(ImageOutput(Image)):Box(0,0,30,30,RGB(Red(couleurrgb),Green(couleurrgb),Blue(couleurrgb))):StopDrawing()
  Button=ButtonImageGadget(#PB_Any,x*30,z,30,30,ImageID(Image))
  ReDim Couleur.l(Button)
  Couleur(Button) = n*DifCouleur
  
  If n*30>y
    z=z+35
    y=y*2
    x=0
  Else 
    x=x+1  
  EndIf
 
Next n

  Repeat
    Event = WaitWindowEvent()
    
        If Event = #PB_Event_Gadget
    
       rgbcouleur = Couleur(EventGadget())
          Debug "couleur rgb:"+Str(Red(rgbcouleur))+","+Str(Green(rgbcouleur))+","+Str(Blue(rgbcouleur))    
    
       EndIf 
    
    If Event = #PB_Event_CloseWindow 
      Quit = 1
    EndIf

  Until Quit = 1
  
EndIf

[venom]

Le Soldat Inconnu avait fait une belle palette de couleur s'y je ne me trompe pas.







@++