FolderEx Behaviour Doubt

FolderEx Behaviour Doubt

Postby wartiaga » Wed Dec 13, 2023 7:15 pm

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!

Image
wartiaga
 
Posts: 212
Joined: Wed May 25, 2016 1:04 am

Re: FolderEx Behaviour Doubt

Postby karinha » Wed Dec 13, 2023 8:01 pm

Código?

WHEN( .F. ) ?

SetGetColorFocus() ??

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7872
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: FolderEx Behaviour Doubt

Postby wartiaga » Wed Dec 13, 2023 11:20 pm

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.
wartiaga
 
Posts: 212
Joined: Wed May 25, 2016 1:04 am

Re: FolderEx Behaviour Doubt

Postby karinha » Thu Dec 14, 2023 3:17 pm

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7872
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: FolderEx Behaviour Doubt

Postby wartiaga » Thu Dec 14, 2023 6:54 pm

karinha wrote: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!
wartiaga
 
Posts: 212
Joined: Wed May 25, 2016 1:04 am


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 85 guests