DBedit

[braz]

Bom dia pessoal,

Tem como fixar um campo no DBedit para nao desaparecer da tela ?

Por exemplo, quando rolo a tela para a direita --> o primeiro campo nao muda, fica fixo.

Abraços a todos.

[ANDRIL]

Só vi isso nativamente no TBrowse() congelamento de coluna. Se for a 1a coluna até dá, fazendo umas "gambiarras" no DbEdit(), mais dá muito trabalho.

Ate+

[braz]

Ola Andril, se for no Tbrowse() como seria?

TEm algum exemplo para me passar ?

abraçao

[ANDRIL]

Veja este post, ele tem o que voce deseja.
https://pctoledo.org/forum/viewto ... ela#p92640
Ate+

[alxsts]

Olá!

Segue um exemplo mais abrangente de uso da variável de instância freeze

Código: Selecionar todos

// The example builds a simple TBrowse object for a database

   #include "inkey.ch"

   PROCEDURE Main
      LOCAL oTBrowse, aFields, cField, nKey, nLen, nInd

      USE Customer

      aFields := Array( FCount() )
      AEval( aFields, {|x,i| aFields[i] := FieldName(i) } )

      nLen := Len( aFields )

      oTBrowse := TBrowseDB()

      FOR nInd := 1 TO nLen
         oTBrowse:addColumn( TBColumnNew( aFields[ nInd ], FieldBlock( aFields[ nInd ] ) ) )
      NEXT

      //oTBrowse:freeze := 2 // Congela as 2 colunas mais à esquerda na tela
      oTBrowse:freeze := 1  // Congela a coluna mais à esquerda na tela

      DO WHILE .T.
         oTBrowse:forceStable()
         nKey := Inkey(0)

         IF ! ApplyKey( oTBrowse, nKey ) 
            EXIT
         ENDIF
      ENDDO

      CLOSE Customer
   RETURN

//----------------------------------------------------
STATIC FUNCTION ApplyKey( oTb, nKey )

   LOCAL lKeyHandled := .T.

   DO CASE
      CASE nKey == K_ESC
         lRet := .F. 
      CASE nKey == K_UP
         oTb:up()
      CASE nKey == K_DOWN
         oTb:down()
      // acrescentar o tratamento das demais teclas
   END CASE
                         
RETURN lKeyHandled
//----------------------------------------------------

[braz]

oI alxsts,

Excelente meu amigo, funcionou muito bem,

Muito obrigado

abraços