FiveTech Support Forums

   REDEFINE LISTBOX oLbx FIELDS                                              ;
            ( cAlias )->GRUPOCOD                                           , ; 
            ( cAlias )->GRUPONOME                                          , ;
            ( cAlias )->GRUPODESCR                                         , ;
            ( cAlias )->TIPO                                               , ; 
            TRANSF( ( cAlias)->VRVENDA, "@E 9,999,999.99" )                , ;
            SPACE(01)                                                        ; 
            HEADERS ( OemToAnsi( "GRUPO CàD:"   ) )                        , ;
                    ( OemToAnsi( "GRUPO NOME:"  ) )                        , ;
                    ( OemToAnsi( "GRUPO DESCRIۂO:" ) )                    , ;
                    ( OemToAnsi( "TIPO:"        ) )                        , ;
                    ( OemToAnsi( "VR. VENDA:"   ) )                        , ;
                    ( OemToAnsi( " - "          ) )                          ;
            FIELDSIZES 0090, 0120, 0300, 0090, 0120, 01                      ;
            COLOR CLR_BROWN, CLR_LGREEN                                      ;
            FONT oFnt UPDATE ID 101 OF oDlgTipo                              ;
            ON DBLCLICK( lConfirma := .T., oDlgTipo:End() )

   oLbx:bKeyDown := { | nKey | IF ( nKey = VK_RETURN,                        ;
                                  ( lConfirma := .T., oDlgTipo:End() ), ) }

   //-----------------------------------------------------------------------// 
   oLbx:nClrBackHead  := CLR_WHITE  //LGREEN  // Cor do Fundo do Cabe‡alho
   oLbx:nClrText      := {|| nRGB( 000, 000, 000 ) } // Cor do Fundo do Cabe‡alho
   oLbx:nClrBackFocus := CLR_WHITE   // Cor do Cursor Em Cima do Ötem
   oLbx:nClrForeFocus := CLR_HRED    // Cor da letra da barra ativa
   oLbx:nClrForeHead  := CLR_BLACK   // Cor nos Headers - Cabe‡alhos
   oLbx:nClrPane      := { || IIF( ( oLbx:cAlias )->( OrdKeyNo() ) %2 == 0, ;
                              CLR_WHITE, CLR_WHITE ) }
   // nLineStyle de 0 a 8
   // Lines Styles - Vide wBrowse.Prg
   oLbx:nColAct       := 3           // Onde o Cursor Vai Iniciar na coluna
   oLbx:nLineStyle    := 3           // Estilo das linhas nos dados da Browse
   oLbx:lCellStyle    := .T.         // Somente pinta a c‚lula em que o cursor esta no momento
   oLbx:aJustify := { .T., .F., .F., .F., .F., .F. } 
   oLbx:lMChange      := .F.         // Desabilita Mousemove - Movimentos do Mouse Congelam. 
   oLbx:SetFocus()                   // Refocus on The Browse - Ativa o Foco na ListBox(Browse)
   oLbx:Refresh()                    // Estabiliza o Browse/Listbox - Refresca os Dados. 
                                     // Pinta os Dados Novamente 
   //-----------------------------------------------------------------------//