ListIcon check unique et possibilité selection independante

Partagez votre expérience de PureBasic avec les autres utilisateurs.
Avatar de l’utilisateur
falsam
Messages : 7324
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: ListIcon check unique et possibilité selection independa

Message par falsam »

Kwai chang caine a écrit :Y'a encore un "Beugounet"...Que je clique ou non le "OnlyOneCheck" et ben j'ai toujours qu'un seul cheque :D
Tsssss j'ai fait sauté un test !!!! Mon code est corrigé.
Configuration : Windows 11 Famille 64-bit - PB 6.20 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: ListIcon check unique et possibilité selection independa

Message par Kwai chang caine »

Aaaaahhh je reconnait bien la mon "FALSAMOUNET" :mrgreen:
Propre, précis, crosstrucform... 8)

Dis donc, ça en fait des evenements enchevétrés...
Je sais pas si tu t'es dit comme moi, au debut j'ai dit dans 2 mn c'est fini.....
Ca parait simple, mais y'a toujours un miasme :?

AND THE WINNER IS !!!

FALSAM !!!

Image

Merci beaucoup, peut etre même que je vais utiliser le tiens. 8)
J'aime pas les codes en plusieurs procedures comme le miens :?
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Avatar de l’utilisateur
MLD
Messages : 1124
Inscription : jeu. 05/févr./2009 17:58
Localisation : Bretagne

Re: ListIcon check unique et possibilité selection independa

Message par MLD »

Salut a vous

Je viens mettre mon grain de sel a votre discution (Un peu tard) :oops:
Mais en faisant le ménage dans ma bécane je suis tombé sur ceci (récupérer je ne
sais plus ou?)

Code : Tout sélectionner

ListIconGadget(#list,170,0,320,320,"stuff",315,#PB_ListIcon_CheckBoxes)
AddGadgetItem(#list,-1, "stuff 0")
AddGadgetItem(#list,-1, "stuff 1")
AddGadgetItem(#list,-1, "stuff 2")
AddGadgetItem(#list,-1, "stuff 3")
SetActiveGadget(#list)
SetGadgetState(#list,0)
Repeat
  ev = WaitWindowEvent()
  Select ev
    Case #PB_Event_Gadget
    
      If EventGadget() = #list And EventType() = #PB_EventType_Change
        GetCursorPos_(cp.POINT)
        MapWindowPoints_(0,GadgetID(#list),cp,1)
        With hti.LVHITTESTINFO
          \pt\x = cp\x
          \pt\y = cp\y
          \flags = #LVHT_ONITEM
        EndWith
        SendMessage_(GadgetID(#list),#LVM_HITTEST,0,hti)
       item = hti\iitem
        If GetGadgetItemState(#list,item) & #PB_ListIcon_Checked 
          Debug "item "+Str(item)+" checked"
        Else
          Debug "item "+Str(item)+" unchecked"
        EndIf
      EndIf
      
  EndSelect
Until ev = #PB_Event_CloseWindow
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: ListIcon check unique et possibilité selection independa

Message par Kwai chang caine »

Merci beaucoup MLD 8)

Certes, mais "vieux motard" que jamais :D
Celui la je l'avais pas trouvé, et pourtant j'ai cherché.
Du grand Netmaestro, quand je regarde ce code précisément, c'est la que je me dit que j'ai pas dépassé le niveau du sol de la prog. :oops: :(

Tu vois un tout petit code qui montre en quelques lignes toute la puissance d'un programmeur
MapWindowPoints_() jamais entendu parler ou alors pas compris
.LVHITTESTINFO pareil pour la structure
sans parler de l'utilisation des autres API...c'est beau 8O

Merci aussi à XXXXX pour le copyright, ça m'a évité de rechercher, car s'il y a une chose à laquelle j'essai de m'attacher, c'est toujours rendre à de gaulle ce qui appartient a de gaulle :mrgreen:
Ce savoir, cette générosité et parfois cette humilité mérite au minimum cette attention.

Encore merci à tous ceux qui m'ont aidé dans cette histoire 8)
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Répondre