Pintado de Dialogos y Controles en TFolderEx

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Pintado de Dialogos y Controles en TFolderEx
Posted: Tue Jan 20, 2015 02:42 PM

Al cambiar de opcion en un TFolderEx, me pinta los controles de la pestaña anterior
Por qué ocurre esto? Qué estoy haciendo mal?
Además la clausula UPDATE me da error al compilar

Code (fw): Select all Collapse

      @ IF(!Empty( oBar ), oBar:nHeight-1,0), nRightPos + 6 FOLDEREX oFldR ;
        SIZE ScreenWidth() - nRightPos - 1 , ;
             ScreenHeight() - IF(!Empty(oBar), oBar:nHeight,0)-oMsgBar:nHeight-1 ;
        OF oWnd ;
        PIXEL ; //UPDATE ;
        PROMPTS "Funciones", "Views", "Setup" ;  //, "Tools"  //OPTION 1 ;
        ROUND 0 BOTTOM SEPARATOR 0 ;
        TAB HEIGHT nHTab 
        
      oFldR:lMultiline := .F.
      oFldR:aGradSel   := { { 1, CLR_VSTAB, CLR_VSTAB } }
      oFldR:aGradUnSel := { { 1, CLR_VSBAR, CLR_VSBAR } }
        
   oFldR:AddItem( "Tools", "ToolsFld", { | o | Tools( oFldR:aDialogs[ 4 ] ) } )
   oFldR:SetOption( 1 )

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Pintado de Dialogos y Controles en TFolderEx
Posted: Fri Jan 23, 2015 08:41 AM

Cristobal,

Si buscas en FWH\samples*.prg por TFOLDEREX verás que hay varios ejemplos.

Aqui estan funcionando bien.

Como los usas tu ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Pintado de Dialogos y Controles en TFolderEx
Posted: Fri Jan 23, 2015 07:08 PM

Antonio, creo que no hay nada raro

Code (fw): Select all Collapse

      @ IF(!Empty( oBar ), oBar:nHeight-1,0), nRightPos + 6 FOLDEREX oFldR ;
        SIZE ScreenWidth() - nRightPos - 1 , ;
             ScreenHeight() - IF(!Empty(oBar), oBar:nHeight,0)-oMsgBar:nHeight-1 ;
        OF oWnd ;
        PIXEL ; //UPDATE ;
        PROMPTS "Funciones", "Views", "Setup" ;  //, "Tools"  //OPTION 1 ;
        ROUND 0 BOTTOM SEPARATOR 0 ;
        TAB HEIGHT nHTab

      oFldR:lMultiline := .F.
      oFldR:aGradSel   := { { 1, CLR_VSTAB, CLR_VSTAB } }
      oFldR:aGradUnSel := { { 1, CLR_VSBAR, CLR_VSBAR } }
        //PROMPTS "Functions", "Marks", "Setup", "Exe" OF oWnd OPTION 1 ;

   oFldR:AddItem( "Tools", "ToolsFld", { | o | Tools( oFldR:aDialogs[ 4 ] ) } )
   oFldR:SetOption( 1 )

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

FiveTech Support Forums

Continue the discussion