Versão atual:

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

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

Versão (1):

Ver a versão formatada

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

  • criado 12 de Feb de 2020

Comentário

new question