PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 25 → WX - Como capturar click no titulo de uma Tablelist Listbox e dar outro evento necessário para a sua aplicação?
WX - Como capturar click no titulo de uma Tablelist Listbox e dar outro evento necessário para a sua aplicação?
Débuté par BOLLER ADRIANO, 04 aoû. 2016 09:09 - 2 réponses
#1
Membre enregistré
3 655 messages
Popularité : +175 (223 votes)
Posté le 04 août 2016 - 09:09
Prezados,

Para capturar click no titulo de uma Tablelist Listbox e dar outro evento necessário para a sua aplicação, segue abaixo exemplo:

Em uma tabela com colunas: Número, Nome e Apelido, você gostaria de reorganizar a coluna.

----------------------------------
Número | Nome | Apelido (s)
----------------------------------
0000001 | Marc | Marc
0000002 | Adriano | Boller
0000003 | Emmanuel | Emmanuel
0000004 | Lorelei | Lore
----------------------------------

Digamos que você queira autorizar ​​o filtro das outras colunas, mas manter a numeração das linhas diferentes?

É algo anormal, mas você precisa, então "No init da tabela", você vai por esse código:
Evénement(NovoEventoClickTableList, "TABLEH_LesRevuesCommerciales", 1529)


Crie uma nova procedure local ou global em seu projeto com o mesmo nome usado na linha de código acima:

Procedure NovoEventoClickTableList()
sSens est une chaîne = ""
SI _EVE.wParam <> 0 ALORS //N° de colonne sur laquelle le clic est effectué
//Annuler le tri auto
_EVE.Retour = 0
//Détection du sens du tri
SI PAS _EVE.lParam ALORS sSens = "-"
//Trier sur la colonne
TableTrie(TABLEH_LesRevuesCommerciales, sSens + TableEnumèreColonne(TABLEH_LesRevuesCommerciales, _EVE.wParam), sSens + "COL_Periode")
//Traitement à effectuer "Après chaque tri"
FIN


Faça o teste e veja como vai ficar, se tiver um tempo traduza do francês para o inglês esse exemplo, desde já agradeço

Forte abraço

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Message modifié, 04 août 2016 - 09:11
#2
Membre enregistré
3 655 messages
Popularité : +175 (223 votes)
Posté le 27 juillet 2017 - 18:06
// retrieve the row that was clicked
nRowNum is int=LooperInfoXY(LOOP_t001_clientes,tiLineNumber,MouseXPos(),MouseYPos())
// if the row corresponds to a user
IF nRowNum>0 _AND_ nRowNum<=LOOP_t001_clientes..Occurrence THEN
// modify the user
gsAcao = "Alterar"
gsID = LOOP_t001_clientes[nRowNum].ATT_AttStatic
OpenMobileWindow(WIN_update_clientes,gsID,gsAcao)
ELSE
// new user
gsAcao = "Incluir"
gsID = 0
OpenMobileWindow(WIN_update_clientes,gsID,gsAcao)
END


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
#3
Membre enregistré
3 655 messages
Popularité : +175 (223 votes)
Posté le 04 février 2023 - 14:54
CAPTURAR CLICK NO HEADER DA TABLEGRID, CLICK NO TITULO DA COLUNA, CLICK NA COLUNA E CAPTURA O NOME DA COLUNA

NomeTableGrid is string = TABLEGRID_RADFichierA..Name

Event(Evento_ClickHeaderTable, NomeTableGrid, 1529)




Procedure Evento_ClickHeaderTable()

IF _EVE.wParam <> 0 AND NomeColuna <> ""

_EVE.Return = 0

Indirection is string = "TABLEGRID_RADFichierA."+NomeColuna

EDT_JANUSGRID.AddToken({Indirection}..Caption)

// Evento_Filtrar()

END


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
→ Revenir à WINDEV 25