Função de copiar texto da coluna FwFormBrowse

Framework - Linha Protheus LIB
, ,
1

Alterei aqui uma tela customizada onde eu usava o objeto TCBrowse e converti para o FwFormBrowse, para ter acesso ao usuário personalizar o layout do mesmo, eles gostaram da mudança, porém sentiram falta do recurso que o TCBrowse tinha que era possível copiar o texto selecionado no Grid usando Control+C para depois colar onde eles quisessem.

Realmente esse novo componente não possui essa função, seria possível fazer algo para isso ser possível? Nem que seja na forma de um atalho "forçado"?

2

Estudando um pouco consegui achar a função CopyToClipBoard (https://tdn.totvs.com/display/tec/CopytoClipboard) que permite copiar textos para a área de transferência, então foi só capturar o comando control+C e executar uma função que obtém o conteúdo do array do browse e manda para a área de transferência.


//Comandos para copiar colunas
SetKey(K_CTRL_C    , {|| U_CXBrCpCol(oBrw)    })

...
User Function CXBrCpCol(oBrw)

    //Declaracao de variaveis----------------------------------------------------------------------
    Local oColumn    AS Object
    Local uTexto    AS Variant

    oColumn    := oBrw:GetColumn()
    If     ValType(oColumn) == 'O'

        uTexto    := eVal(oColumn:bData)
        If ValType(uTexto) == 'N'
            uTexto    := Transform(uTexto,oColumn:xPicture)
        ElseIf ValType(uTexto) == 'D'
            uTexto    := DtoC(uTexto)
        EndIf
        CopyToClipBoard(uTexto)
    EndIf

Return