PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → 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?
Iniciado por BOLLER ADRIANO, ago., 04 2016 9:09 AM - 2 respostas
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em agosto, 04 2016 - 9:09 AM
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/
Mensagem modificada, agosto, 04 2016 - 9:11 AM
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em julho, 27 2017 - 6:06 PM
// 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/
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em fevereiro, 04 2023 - 2:54 PM
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/