Page 1 sur 1
Palette de couleur?
Publié : jeu. 13/oct./2011 21:13
par 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
Re: Palette de couleur?
Publié : jeu. 13/oct./2011 21:35
par venom
Salut,
sympa comme application en tout cas
Bravo Noos88
@++
Re: Palette de couleur?
Publié : jeu. 13/oct./2011 21:42
par djes
Oui, c'est sympa.
Sinon, je n'ai pas compris la question ?
Re: Palette de couleur?
Publié : ven. 14/oct./2011 6:03
par venom
djes a écrit :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.
@++
Re: Palette de couleur?
Publié : ven. 14/oct./2011 7:52
par 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+
Re: Palette de couleur?
Publié : ven. 14/oct./2011 11:29
par 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
Re: Palette de couleur?
Publié : ven. 14/oct./2011 20:18
par 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
Re: Palette de couleur?
Publié : ven. 14/oct./2011 20:39
par venom
Le Soldat Inconnu avait fait une belle palette de couleur s'y je ne me trompe pas.
@++