Ayuda en un listbox

[J. Ernesto]

Amigos del foro, buenas noches.

En un control del tipo listbox, cual sería el orden en que se deben de color de los siguientes metodos?

oLbx_10:UpStable () ,;
oLbx_10:Refresh () ,;
oLbx_10:SetFocus () ,;


Gracias

[karinha]

No comprendo bien la pregunta. Mira se ayuda, porfa.

Code: Select all  Expand view

   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
   //-----------------------------------------------------------------------//
 

Saludos.

[admsoporte]

Efectivamente
Primero el setfocus()
Y luego el regreso()

Enviado desde mi FIG-LX3 mediante Tapatalk

[admsoporte]

Efectivamente
Primero el setfocus()
Y luego el regreso()

Enviado desde mi FIG-LX3 mediante Tapatalk

Refresh()

Enviado desde mi FIG-LX3 mediante Tapatalk