Comment désélectionner une ligne d'un LIST ?

Bonjour à tous !

Lors de la création et du remplissage d’un LIST, aucun item n’est sélectionné.

Code:

list 1
item_add 1,"ligne 1"
item_add 1,"ligne 2"
item_add 1,"ligne 3"
end

Pour sélectionner une ligne, on emploie ITEM_SELECT N,L

Code:

list 1
item_add 1,"ligne 1"
item_add 1,"ligne 2"
item_add 1,"ligne 3"
item_select 1,2
end

Mais comment désélectionner cette ligne sans en sélectionner une autre ?

ITEM_SELECT N,0 renvoie une erreur.

La seule astuce que j’ai trouvée consiste à ajouter une ligne vide au LIST, puis de la sélectionner et enfin de l’effacer.

Code:

list 1
item_add 1,"ligne 1"
item_add 1,"ligne 2"
item_add 1,"ligne 3"
item_select 1,2

pause 1000
item_add 1,""
item_select 1,count(1)
item_delete 1,count(1)
end

Connaissez-vous un autre moyen plus "élégant" ?

En Panoramic pur ? Non. Sauf à demander à Jack d'autoriser IEM_SELECT avec un indice de 0 pour désélectionner...

Ca pourrait être fait en Delphi dans une DLL, mais je suppose que ce n'est pas ce que tu cherches...

Mais avec KGF.dll, ça marche:

Code:

dim res%
list 1
item_add 1,"aaa"
item_add 1,"bbb"
item_add 1,"ccc"
item_select 1,2
dll_on "KGF.dll"
res% = dll_call2("SelectListBoxItem",handle(1),0)
end

Merci Klaus pour ta prompte réponse.

Oui, ma demande était en pur Panoramic.

Klaus a écrit:

Ça pourrait être fait en Delphi dans une DLL, mais je suppose que ce n'est pas ce que tu cherches...

Merci Klaus, c’est trop gentil, mais le jeu n’en vaut pas la chandelle, d’autant plus que tu m’informes que KGF possède déjà cette fonctionnalité.

En conclusion, même si ce n’est pas très élégant, je vais garder le trio d’instructions :

item_add 1,""
item_select 1,count(1)
item_delete 1,count(1)

qui réalise le travail souhaité.

Excellente journée !

Ou alors, en pas vraiment plus élégant,
mais en 2 lignes au lieu de 3, tu as aussi :

Code:

item_insert 1,item_index(1),item_index$(1)
item_delete 1,item_index(1)

C'est vrai que le concept manque
pour les list comme les memo...

Portant, techniqement, c'est simple: il suffit de passer la proriété ItemIndex de l'objet ListBox en Delphi à -1, ce qui correspond à un item_index de 0 en Panoramic. On pourrait obtenir cela en permettant simlement la valeur 0 dans ITEM_SELECT...

Dans la prochaine version, ITEM_SELECT N,0 servira à désélectionner ce qui a été sélectionné sur l'objet de numéro N.

Merci, Jack ! Ce sera parfait !

Merci Jack !