× Linguagem de Programação ADVPL

Perguntas Como inserir TcheckBox em um Tpanel?

Mais
6 anos 4 meses atrás #32387 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:
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.

Tempo para a criação da página:0.102 segundos
Joomla templates by a4joomla