Sélecteur de couleur dans un ComboBoxGadget

Partagez votre expérience de PureBasic avec les autres utilisateurs.
Répondre
Le Soldat Inconnu
Messages : 4312
Inscription : mer. 28/janv./2004 20:58
Localisation : Clermont ferrand OU Olsztyn
Contact :
Contacter Le Soldat Inconnu

Sélecteur de couleur dans un ComboBoxGadget

Message par Le Soldat Inconnu »

Salut,

Vu qu'on est en plein dans les sélecteurs de couleur
http://www.purebasic.fr/french/viewtopi ... =6&t=12596

Voici une petite idée. Qu'en pensez-vous ?

Code : Tout sélectionner

; Auteur : Le Soldat Inconnu
; Version de PB : 4.60

; Explication du programme :
; Sélection de couleur

; Création de la fenêtre
If OpenWindow(0, 0, 0, 500, 300, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget) = 0
	End
EndIf

Gadget_ListeCouleur = ComboBoxGadget(#PB_Any, 10, 10, 48, 24, #PB_ComboBox_Image)

#CouleurStandard_Pas_NoirBlanc = 32
#CouleurStandard_Pas_Couleur = 64
#CouleurStandard_Marqueur = "-"
Structure CouleurStandardInfo
	Couleur.l
	Image.l
	Marque.b
EndStructure
NewList CouleurStandard.CouleurStandardInfo()

; Création de la liste des couleurs
; Nuance de gris
For i = 0 To 255 Step #CouleurStandard_Pas_NoirBlanc
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, i, i)
	If i = 128
		CouleurStandard()\Marque = 1
	EndIf
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = $FFFFFF
; Rouge
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, 0, 0)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(255, 0, 0) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(255, i, i)
Next
; Rose
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, 0, i / 2)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(255, 0, 128) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(255, i, 128 + i / 2)
Next
; Mauve
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, 0, i)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(255, 0, 255) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(255, i, 255)
Next
; Violet
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i / 2, 0, i)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(128, 0, 255) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(128 + i / 2, i, 255)
Next
; Bleu
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(0, 0, i)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(0, 0, 255) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, i, 255)
Next
; Bleu ciel
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(0, i / 2, i)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(0, 128, 255) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, 128 + i / 2, 255)
Next
; Cyan
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(0, i, i)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(0, 255, 255) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, 255, 255)
Next
; Vert d'eau
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(0, i, i / 2)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(0, 255, 128) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, 255, 128 + i / 2)
Next
; Vert
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(0, i, 0)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(0, 255, 0) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, 255, i)
Next
; Vert clair
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i / 2, i, 0)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(128, 255, 0) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(128 + i / 2, 255, i)
Next
; Jaune
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, i, 0)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(255, 255, 0) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(255, 255, i)
Next
; Orange
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, i / 2, 0)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(255, 128, 0) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(255, 128 + i / 2, i)
Next


; Remplissage de la liste des couleur
ForEach CouleurStandard()
	CouleurStandard()\Image = CreateImage(#PB_Any, 16, 16, 24)
	StartDrawing(ImageOutput(CouleurStandard()\Image))
		Box(0, 0, 16, 16, CouleurStandard()\Couleur)
	StopDrawing()
	If CouleurStandard()\Marque
		AddGadgetItem(Gadget_ListeCouleur, -1, #CouleurStandard_Marqueur, ImageID(CouleurStandard()\Image))
	Else
		AddGadgetItem(Gadget_ListeCouleur, -1, " ", ImageID(CouleurStandard()\Image))
	EndIf
Next


Gadget_AffichageSelection = TextGadget(#PB_Any, 10, 40, 200, 16, "")


Repeat
	Event = WaitWindowEvent()
	
	Select Event
		Case #PB_Event_Gadget
			Select EventGadget() ; Gadgets
				Case Gadget_ListeCouleur
					Selection = GetGadgetState(Gadget_ListeCouleur)
					If Selection >= 0
						SelectElement(CouleurStandard(), Selection)
						SetGadgetText(Gadget_AffichageSelection, "RGB(" + Str(Red(CouleurStandard()\Couleur)) + ", " + Str(Green(CouleurStandard()\Couleur)) + ", " + Str(Blue(CouleurStandard()\Couleur)) + ")" + " ; " + "$" + RSet(Hex(CouleurStandard()\Couleur), 6, "0"))
					Else
						SetGadgetText(Gadget_AffichageSelection, "")
					EndIf
			EndSelect
	EndSelect
	
Until Event = #PB_Event_CloseWindow
Je ne suis pas à moitié Polonais mais ma moitié est polonaise ... Vous avez suivi ?

[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Re: Sélecteur de couleur dans un ComboBoxGadget

Message par Ar-S »

Excellent !
ça peut permettre à l'utilisateur de modifier les couleurs de son interface facilement.
j'adopte
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Haut
Guimauve
Messages : 1015
Inscription : mer. 11/févr./2004 0:32
Localisation : Québec, Canada

Re: Sélecteur de couleur dans un ComboBoxGadget

Message par Guimauve »

Ici sous LinuxMint + Gnome-Shell

le ComboBoxGadget fait tout l'écran et j'ai même des flèche dans le haut et le bas pour faire défiler.

À mon humble avis, il serait préférable d'utiliser un ListViewGadget() un peu dans le même style que le sélecteur de couleur présent dans Rhinoceros 3D (À gauche avec les noms quand cela est possible)

Image

Si non ça peut-être intéressant quand même.

A+
Guimauve
Haut
Le Soldat Inconnu
Messages : 4312
Inscription : mer. 28/janv./2004 20:58
Localisation : Clermont ferrand OU Olsztyn
Contact :
Contacter Le Soldat Inconnu

Re: Sélecteur de couleur dans un ComboBoxGadget

Message par Le Soldat Inconnu »

J'ai mis à jour le code du premier poste.

J'ai ajouté un petit marqueur sur les couleurs centrale de chaque nuance.
Je ne suis pas à moitié Polonais mais ma moitié est polonaise ... Vous avez suivi ?

[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: Sélecteur de couleur dans un ComboBoxGadget

Message par Backup »

@le soldat
probleme , chez moi je n'ai qu'une fenetre grise rien dedans !!
sauf un ComboBoxGadget() normal ???

j'ai pas de cercle de couleurs

... a moins que Guimauve parle d'un autre selecteur ..
Dernière modification par Backup le dim. 19/févr./2012 21:56, modifié 1 fois.
Haut
Le Soldat Inconnu
Messages : 4312
Inscription : mer. 28/janv./2004 20:58
Localisation : Clermont ferrand OU Olsztyn
Contact :
Contacter Le Soldat Inconnu

Re: Sélecteur de couleur dans un ComboBoxGadget

Message par Le Soldat Inconnu »

@Dobro : Clic sur le combobox :mrgreen: Guimauve montre un autre sélecteur

Comme ça Guimauve ?

Code : Tout sélectionner

; Auteur : Le Soldat Inconnu
; Version de PB : 4.60

; Explication du programme :
; Sélection de couleur

#ComboBox = 0 ; Si 0, le code utilise un TreeGadget

; Création de la fenêtre
If OpenWindow(0, 0, 0, 500, 300, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget) = 0
	End
EndIf

CompilerIf #ComboBox
	Gadget_ListeCouleur = ComboBoxGadget(#PB_Any, 10, 10, 48, 24, #PB_ComboBox_Image)
CompilerElse
	Gadget_ListeCouleur = TreeGadget(#PB_Any, 10, 10, 80, 128, #PB_Tree_NoLines)
CompilerEndIf

#CouleurStandard_Pas_NoirBlanc = 32
#CouleurStandard_Pas_Couleur = 64
#CouleurStandard_Marqueur = "-"
Structure CouleurStandardInfo
	Couleur.l
	Image.l
	Marque.b
EndStructure
NewList CouleurStandard.CouleurStandardInfo()

; Création de la liste des couleurs
; Nuance de gris
For i = 0 To 255 Step #CouleurStandard_Pas_NoirBlanc
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, i, i)
	If i = 128
		CouleurStandard()\Marque = 1
	EndIf
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = $FFFFFF
; Rouge
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, 0, 0)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(255, 0, 0) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(255, i, i)
Next
; Rose
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, 0, i / 2)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(255, 0, 128) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(255, i, 128 + i / 2)
Next
; Mauve
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, 0, i)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(255, 0, 255) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(255, i, 255)
Next
; Violet
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i / 2, 0, i)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(128, 0, 255) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(128 + i / 2, i, 255)
Next
; Bleu
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(0, 0, i)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(0, 0, 255) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, i, 255)
Next
; Bleu ciel
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(0, i / 2, i)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(0, 128, 255) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, 128 + i / 2, 255)
Next
; Cyan
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(0, i, i)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(0, 255, 255) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, 255, 255)
Next
; Vert d'eau
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(0, i, i / 2)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(0, 255, 128) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, 255, 128 + i / 2)
Next
; Vert
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(0, i, 0)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(0, 255, 0) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, 255, i)
Next
; Vert clair
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i / 2, i, 0)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(128, 255, 0) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(128 + i / 2, 255, i)
Next
; Jaune
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, i, 0)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(255, 255, 0) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(255, 255, i)
Next
; Orange
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(i, i / 2, 0)
Next
AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(255, 128, 0) : CouleurStandard()\Marque = 1
For i = #CouleurStandard_Pas_Couleur To 255 Step #CouleurStandard_Pas_Couleur
	AddElement(CouleurStandard()) : CouleurStandard()\Couleur = RGB(255, 128 + i / 2, i)
Next


; Remplissage de la liste des couleur
ForEach CouleurStandard()
	CouleurStandard()\Image = CreateImage(#PB_Any, 16, 16, 24)
	StartDrawing(ImageOutput(CouleurStandard()\Image))
		Box(0, 0, 16, 16, CouleurStandard()\Couleur)
	StopDrawing()
	If CouleurStandard()\Marque
		AddGadgetItem(Gadget_ListeCouleur, -1, #CouleurStandard_Marqueur, ImageID(CouleurStandard()\Image))
	Else
		AddGadgetItem(Gadget_ListeCouleur, -1, " ", ImageID(CouleurStandard()\Image))
	EndIf
Next

Gadget_AffichageSelection = TextGadget(#PB_Any, 10, GadgetY(Gadget_ListeCouleur) + GadgetHeight(Gadget_ListeCouleur) + 8, 200, 16, "")


Repeat
	Event = WaitWindowEvent()
	
	Select Event
		Case #PB_Event_Gadget
			Select EventGadget() ; Gadgets
				Case Gadget_ListeCouleur
					Selection = GetGadgetState(Gadget_ListeCouleur)
					If Selection >= 0
						SelectElement(CouleurStandard(), Selection)
						SetGadgetText(Gadget_AffichageSelection, "RGB(" + Str(Red(CouleurStandard()\Couleur)) + ", " + Str(Green(CouleurStandard()\Couleur)) + ", " + Str(Blue(CouleurStandard()\Couleur)) + ")" + " ; " + "$" + RSet(Hex(CouleurStandard()\Couleur), 6, "0"))
					Else
						SetGadgetText(Gadget_AffichageSelection, "")
					EndIf
			EndSelect
	EndSelect
	
Until Event = #PB_Event_CloseWindow
Je ne suis pas à moitié Polonais mais ma moitié est polonaise ... Vous avez suivi ?

[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: Sélecteur de couleur dans un ComboBoxGadget

Message par Backup »

arf ! la fausse joie , je pensai que ton code c'etait la photo de Guimauve .... j'me disai aussi en si peu de lignes ... :roll: :lol:
Haut
Le Soldat Inconnu
Messages : 4312
Inscription : mer. 28/janv./2004 20:58
Localisation : Clermont ferrand OU Olsztyn
Contact :
Contacter Le Soldat Inconnu

Re: Sélecteur de couleur dans un ComboBoxGadget

Message par Le Soldat Inconnu »

fausse joie ??? tu n'as qu'a dire que mon code est nul tant que tu y es :mrgreen:
Je ne suis pas à moitié Polonais mais ma moitié est polonaise ... Vous avez suivi ?

[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: Sélecteur de couleur dans un ComboBoxGadget

Message par Backup »

:)
Haut
Le Soldat Inconnu
Messages : 4312
Inscription : mer. 28/janv./2004 20:58
Localisation : Clermont ferrand OU Olsztyn
Contact :
Contacter Le Soldat Inconnu

Re: Sélecteur de couleur dans un ComboBoxGadget

Message par Le Soldat Inconnu »

J'ai ajouté la liste dans mon sélecteur de couleur :) Et en passant, j'ai ajouté le support de l'alpha. je posterais tout cela demain.
Je ne suis pas à moitié Polonais mais ma moitié est polonaise ... Vous avez suivi ?

[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
Haut
Guimauve
Messages : 1015
Inscription : mer. 11/févr./2004 0:32
Localisation : Québec, Canada

Re: Sélecteur de couleur dans un ComboBoxGadget

Message par Guimauve »

Le Soldat Inconnu a écrit :Comme ça Guimauve ?
C'est dans ce style effectivement !

Mais faudrait ajouter les noms et pour ce faire je pense à l'utilisation d'un ScrollAreaGadget() pour et utiliser un CanvasGadget() par couleur afin de récupérer la couleur sélectionné lorsque l'on clique dessus.

C'est à étudier éventuellement.

A+
Guimauve
Haut
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: Sélecteur de couleur dans un ComboBoxGadget

Message par Kwai chang caine »

Voici une petite idée. Qu'en pensez-vous ?
Moi ça me plait, c'est du pas vu et ça marche :D
Je préfère même le premier :roll:
Merci Soldat 8)
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Haut
Répondre

Revenir à « Trucs et astuces »