FiveTech Support Forums

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!

Código?

WHEN( .F. ) ?

SetGetColorFocus() ??

Regards, saludos.

karinha wrote: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.

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

karinha wrote:Modifique seus .PRGS assim, e reporte como ficou. Pls.

Code (fw): Select all Collapse

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!