Grid, que permite arrastar a posição da coluna

Framework - Linha Protheus LIB
1

Alguém sabe me dizer se tem como eu arrastar as colunas para trocar de posição usando um TWBrowse, assim como ocorre no FWBrowse. Vi que há um atributo lColDrag no objeto criado pelo TWBrowse, so que mesmo habilitando o mesmo nao me permite arrastar as colunas.


#include "TOTVS.CH"
User Function TWBrowse()
    Local oOK := LoadBitmap(GetResources(),'br_verde')
    Local oNO := LoadBitmap(GetResources(),'br_vermelho')  

    DEFINE DIALOG oDlg TITLE "Exemplo TWBrowse" FROM 180,180 TO 550,700 PIXEL        

        oBrowse := TWBrowse():New( 01 , 01, 200,120,,{'','Codigo','Descrição'},{20,30,30},;                              
        oDlg,,,,,{||},,,,,,,.F.,,.T.,,.F.,,, )    
        aBrowse   := {{.T.,'CLIENTE 001','RUA CLIENTE 001','BAIRRO CLIENTE 001'},;                    
        {.F.,'CLIENTE 002','RUA CLIENTE 002','BAIRRO CLIENTE 002'},;                    
        {.T.,'CLIENTE 003','RUA CLIENTE 003','BAIRRO CLIENTE 003'} }    
        oBrowse:SetArray(aBrowse)    
        oBrowse:bLine := {||{If(aBrowse[oBrowse:nAt,01],oOK,oNO),aBrowse[oBrowse:nAt,02],;                      
        aBrowse[oBrowse:nAt,03],aBrowse[oBrowse:nAt,04] } }    
        // Troca a imagem no duplo click do mouse    
        oBrowse:bLDblClick := {|| aBrowse[oBrowse:nAt][1] := !aBrowse[oBrowse:nAt][1],;                               
        oBrowse:DrawSelect()}  

    ACTIVATE DIALOG oDlg CENTERED 
Return

lcoldrag.png

:warning: Atenção: Esta publicação foi transferida automaticamente do fórum antigo, mas os anexos não foram incluídos.

2

Ronald, boa tarde.

O TWBROWSE eu acho que não da pra fazer isso não. Mas o FWBrowse faz isso por padrão.

Segue documentação: https://tdn.totvs.com/display/public/PROT/FwBrowse

Abraço,

3

Ate estava lendo esta documentação, no entanto, acabei de fazer alguns testes e não consegui usar ela sem iniciar o sistema, da um erro de uma variável cAcesso da bliblioteca mslib, pelo visto ele esta atrelado as permissões de usuário do protheus.
Ate que posso usar ela, mesmo q dificulta a testar durante o desenvolvimento, mas teria como me arrumar um exemplo dele usando um array no lugar de alias?

4

Boa tarde! Compile o fonte anexado, rode um teste e depois diga o que achou...

:warning: Atenção: Esta publicação foi transferida automaticamente do fórum antigo, mas os anexos não foram incluídos.