- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Como inserir TcheckBox em um Tpanel?
×
Linguagem de Programação ADVPL
Perguntas Como inserir TcheckBox em um Tpanel?
- RODOLFO93
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 2
- Obrigados Recebidos: 0
7 anos 1 semana atrás #32387
por RODOLFO93
Como inserir TcheckBox em um Tpanel? foi criado por RODOLFO93
Tenho uma rotina que apresenta informações de produtos em um tPanel, essa rotina transfere os produtos automaticamente de um armazém para outro.
Mas agora precisa-se que tenha a opção de escolher qual dos produtos devem ser transferidos.
A forma que imaginei foi inserir uma coluna a frente com os tCheckBox que devem ser marcados para escolher cada linha, mas não consegui fazer isso.
Essa é a linha que adiciona as informaçõs do produto salvas em um array para serem apresentados no Tpanel:
Aqui o tCheckBox:
Mas agora precisa-se que tenha a opção de escolher qual dos produtos devem ser transferidos.
A forma que imaginei foi inserir uma coluna a frente com os tCheckBox que devem ser marcados para escolher cada linha, mas não consegui fazer isso.
Essa é a linha que adiciona as informaçõs do produto salvas em um array para serem apresentados no Tpanel:
cb:= "{|o| { Self:aData["+ci+",4],Self:aData["+ci+",5], Self:aData["+ci+",1], Self:aData["+ci+",2], Self:aData["+ci+",6], Self:aData["+ci+",7], Self:aData["+ci+",18], Self:aData["+ci+",19], Self:aData["+ci+",13] } }"
:: oGrid:setRowData( i, &cb )Aqui o tCheckBox:
lCheck1 := .F.
oCheck1 := TCheckBox ():New(1,1,'',,,21,21,,{||lCheck1},,,,,,.T.,,,)
oCheck1:bLClicked := {|| lCheck1:=!lCheck1 }Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Como inserir TcheckBox em um Tpanel?
Tempo para a criação da página:0.114 segundos