FolderEx Behaviour Doubt

[wartiaga]

Hi

Why does the first get in folderex not obey the color that was set? This happens in all the first gets of all tabs.
Thanks in advance!

[karinha]

Código?

WHEN( .F. ) ?

SetGetColorFocus() ??

Regards, saludos.

[wartiaga]

Código?

WHEN( .F. ) ?

SetGetColorFocus() ??

Regards, saludos.

Karinha, não uso when .f. neste campo é um campo normal, segue a linha:

REDEFINE GET oGet3300 VAR oArqCto:CALCATE ID 127 Bitmap "FINDP";
of Folder1:aDialogs[2] Picture "@!" Color Frente,Fundo update action Mostraate1()

Frente e Fundo já é uma variável setada com as respectivas cores, o estranho é que funciona em todos os campos somente o primeiro get do folder que não obedece. Não tem nada de diferente dos outros gets.

Obrigado.

[karinha]

Modifique seus .PRGS assim, e reporte como ficou. Pls.

Code: Select all  Expand view  RUN

FUNCTION Main()

   SetGetColorFocus( CLR_LGREEN ) // COR EM TODOS OS GETS DOS DIALOGOS.

   tGet():lDisColors  := .F.   // WHEN( .F. ) COR.
   tGet():nClrTextDis := CLR_HBLUE
   tGet():nClrPaneDis := CLR_YELLOW

RETURN NIL

FUNCTION MY_Gets_Folders()  // Onde esta o seu FOLDEREX, ok?

   //-> oGet3300 <- VERIFIQUE SE NAO TEM OUTRO IGUAL.
   REDEFINE GET oGet3300 VAR oArqCto:CALCATE ID 127 OF Folder1:aDialogs[ 2 ] ;
      PICTURE "@!" UPDATE BITMAP "FINDP" COLOR Frente, Fundo                 ;
      ACTION Mostraate1()

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT( xFocus( oGet3300 ) ) // somente teste, depois retire.


RETURN NIL
//-------------------------------------------------------------------------//
// As vezes simples SetFocus( oObj ) nao faz um objeto ganhar foco
// neste caso pode apelar para estas duas funcoes a seguir
// Forcar foco para um objeto especifico - Ednaldo Rolim...
//-------------------------------------------------------------------------//
FUNCTION xFocus( oObj )

   xSetFocus( oObj )
   xSetFocus( oObj )

RETURN( .T. )

FUNCTION xSetFocus( oObj )    

   LOCAL _oWnd := oObj:oWnd, _oTempo := ""

   DEFINE TIMER _oTempo INTERVAL 10 OF _oWnd ;
      ACTION ( oObj:SetFocus(), _oTempo:End() )

   ACTIVATE TIMER _oTempo

RETURN( .T. )
 

Regards, saludos.

[wartiaga]

Modifique seus .PRGS assim, e reporte como ficou. Pls.

Code: Select all  Expand view  RUN

FUNCTION Main()

   SetGetColorFocus( CLR_LGREEN ) // COR EM TODOS OS GETS DOS DIALOGOS.

   tGet():lDisColors  := .F.   // WHEN( .F. ) COR.
   tGet():nClrTextDis := CLR_HBLUE
   tGet():nClrPaneDis := CLR_YELLOW

RETURN NIL

FUNCTION MY_Gets_Folders()  // Onde esta o seu FOLDEREX, ok?

   //-> oGet3300 <- VERIFIQUE SE NAO TEM OUTRO IGUAL.
   REDEFINE GET oGet3300 VAR oArqCto:CALCATE ID 127 OF Folder1:aDialogs[ 2 ] ;
      PICTURE "@!" UPDATE BITMAP "FINDP" COLOR Frente, Fundo                 ;
      ACTION Mostraate1()

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT( xFocus( oGet3300 ) ) // somente teste, depois retire.


RETURN NIL
//-------------------------------------------------------------------------//
// As vezes simples SetFocus( oObj ) nao faz um objeto ganhar foco
// neste caso pode apelar para estas duas funcoes a seguir
// Forcar foco para um objeto especifico - Ednaldo Rolim...
//-------------------------------------------------------------------------//
FUNCTION xFocus( oObj )

   xSetFocus( oObj )
   xSetFocus( oObj )

RETURN( .T. )

FUNCTION xSetFocus( oObj )    

   LOCAL _oWnd := oObj:oWnd, _oTempo := ""

   DEFINE TIMER _oTempo INTERVAL 10 OF _oWnd ;
      ACTION ( oObj:SetFocus(), _oTempo:End() )

   ACTIVATE TIMER _oTempo

RETURN( .T. )
 

Regards, saludos.

Karinha, obrigado mas o problema era outro, estava linkando uma tget antiga no meu projeto, foi remover que tudo ficou normal. Valeu!