Problemas con Folder de la Version FWH 9.01

[DiGregorio]

Estimados compañeros, a ver si me dan una luz...

Cuando ejecuto mi programa al llegar a la opcion donde levanto un folder me da el siguiente error:

BASE/1066 Argument Error Conditional

TFOLDER:DEFAULT(453)
TFOLDER:NEW(227)

Nota: si cambio el folder.prg y coloco el de la version anterior FW 2.7 corre sin problemas.

Gracias.

[Daniel Garcia-Gil]

Hola DiGregorio

podrias colocar el codigo de creacion del folder por favor

[DiGregorio]

Code: Select all

//---------------------------------------------------------------------
   //Definicion completa de toda la barra de botones superior estilo folder
   oPanel := TPanel():New( 0, 0, 55, 800, oReBar )   //Define el tamaño total de la barra completa 

   //-----------------------------------------------------------
   // Primero construimos la barra de botones principal superior
   //-----------------------------------------------------------

   // Definimos los iconos de la barra
   oimagelist = timagelist():new(32,32) // width and height of bitmaps  primer listado de botones
   oimagelist:addmasked( tbitmap():define( "B_SELEM",,   ownd ), nrgb( 255, 0, 255 ) )    
   oimagelist:addmasked( tbitmap():define( "B_ARTIC",,   ownd ), nrgb( 255, 0, 255 ) )    
   oimagelist:addmasked( tbitmap():define( "B_PROVE",,   ownd ), nrgb( 255, 0, 255 ) )    
   oimagelist:addmasked( tbitmap():define( "B_COMPR",,   ownd ), nrgb( 255, 0, 255 ) )    
   oimagelist:addmasked( tbitmap():define( "B_PEDID",,   ownd ), nrgb( 255, 0, 255 ) )    
   oimagelist:addmasked( tbitmap():define( "B_GASTO",,   ownd ), nrgb( 255, 0, 255 ) )    
   oimagelist:addmasked( tbitmap():define( "B_ETIQU",,   ownd ), nrgb( 255, 0, 255 ) )    
   oimagelist:addmasked( tbitmap():define( "B_CXP",,     ownd ), nrgb( 255, 0, 255 ) )    
   oimagelist:addmasked( tbitmap():define( "B_CLIEN",,   ownd ), nrgb( 255, 0, 255 ) )    
   oimagelist:addmasked( tbitmap():define( "B_VENTA",,   ownd ), nrgb( 255, 0, 255 ) )    
   oimagelist:addmasked( tbitmap():define( "B_PRESU",,   ownd ), nrgb( 255, 0, 255 ) )    
   oimagelist:addmasked( tbitmap():define( "B_CXC",,     ownd ), nrgb( 255, 0, 255 ) )    
   oimagelist:addmasked( tbitmap():define( "B_CALCU",,   ownd ), nrgb( 255, 0, 255 ) )  
   oimagelist:addmasked( tbitmap():define( "B_MANTE",,   ownd ), nrgb( 255, 0, 255 ) )  
   oimagelist:addmasked( tbitmap():define( "B_PAPEL",,   ownd ), nrgb( 255, 0, 255 ) )  
   oimagelist:addmasked( TBitmap():Define( "B_SALIR",,   oWnd ), nRGB( 255, 0, 255 ) )    

   // _ boton, llamamos a los bitmap, y definimos su acción
   DEFINE TOOLBAR oToolBar of oPanel size 50,50 IMAGELIST oImagelist BALLOON
   DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Seleccionar / Cambiar de Empresa") PROMPT "Empresa" WHEN .T.
   DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Catalogo de Articulos") PROMPT "Articulo" WHEN .T.
   DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Catalogo de Proveedores") PROMPT "Provee." WHEN .T.
   DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Facturas de Compras") PROMPT "Compra" WHEN .T.
   DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Generar Pedidos / Fallas") PROMPT "Pedido" WHEN .T.
   DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Facturas Gastos / Activos") PROMPT "Gasto" WHEN .T.
   DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Impresion de Etiquetas") PROMPT "Etiq." WHEN .T.
   DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Cuentas por Pagar") PROMPT "CxP" WHEN .T.
   DEFINE TBBUTTON OF oToolBar ACTION DATA20() TOOLTIP ansitooem("Catalogo de Clientes") PROMPT "Clientes" WHEN .T.
   DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Facturas de Venta") PROMPT "Venta" WHEN .T.
   DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Presupuestos") PROMPT "Presup." WHEN .T.
   DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Cuentas por Cobrar") PROMPT "CxC" WHEN .T.
   DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Calculadora") PROMPT "Calcul." WHEN .T.
   DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Mantenimiento Completo de Datos y Sistema") PROMPT "Manten." WHEN .T.
   DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Eliminar Definitivamente los datos Borrados") PROMPT "Vaciar" WHEN .T.
   DEFINE TBBUTTON OF oToolBar ACTION IIF(D_Salir(),Finaliza(hRec,oFont,dDate),nil) TOOLTIP ansitooem("Salir") PROMPT "Salir" WHEN .T.

// Definimos el folder, y los tamaños
   oReBar = TReBar():New( oWnd )
   @ 100, 2 FOLDER oFolder PROMPTS "Archivo", "Edicion", "Inventario", "Compras", "Ventas", "Bancos", "Nomina", "Administracion", "Mantenimiento", "Ayuda"  SIZE 540, 62

   //--------------
   //Folder Archivo
   oImageFolder[1] = TImageList():New( 32, 32 ) // width and height of bitmaps  segundo listado de botones
   oImageFolder[1]:AddMasked( TBitmap():Define( "M_USUAR",, oWnd ), nRGB( 255, 0, 255 ) )    
   oImageFolder[1]:AddMasked( TBitmap():Define( "M_LLAVE",, oWnd ), nRGB( 255, 0, 255 ) )    
   oImageFolder[1]:AddMasked( TBitmap():Define( "M_EMPRE",, oWnd ), nRGB( 255, 0, 255 ) )    
   oImageFolder[1]:AddMasked( TBitmap():Define( "M_SELEM",, oWnd ), nRGB( 255, 0, 255 ) )    
   oImageFolder[1]:AddMasked( TBitmap():Define( "M_CATGE",, oWnd ), nRGB( 255, 0, 255 ) )    
   oImageFolder[1]:AddMasked( TBitmap():Define( "M_IMPUE",, oWnd ), nRGB( 255, 0, 255 ) )    
   oImageFolder[1]:AddMasked( TBitmap():Define( "M_CALCU",, oWnd ), nRGB( 255, 0, 255 ) )    
   oImageFolder[1]:AddMasked( TBitmap():Define( "M_AGEND",, oWnd ), nRGB( 255, 0, 255 ) )    
   oImageFolder[1]:AddMasked( TBitmap():Define( "M_PARAM",, oWnd ), nRGB( 255, 0, 255 ) )    
   oImageFolder[1]:AddMasked( TBitmap():Define( "M_SALIR",, oWnd ), nRGB( 255, 0, 255 ) )    
   
   DEFINE TOOLBAR aToolBar[1] of oFolder:aDialogs[1] size 50,58 IMAGELIST oImageFolder[1] BALLOON
   DEFINE TBBUTTON OF aToolBar[1] ACTION .T. TOOLTIP ansitooem("Catalogo de Usuarios") WHEN .T.
   DEFINE TBBUTTON OF aToolBar[1] ACTION .T. TOOLTIP ansitooem("Seleccionar / Cambiar de Usuario" ) WHEN .T.
   DEFINE TBBUTTON OF aToolBar[1] ACTION .T. TOOLTIP ansitooem("Catalogo de Empresas" ) WHEN .T.
   DEFINE TBBUTTON OF aToolBar[1] ACTION .T. TOOLTIP ansitooem("Seleccionar / Cambiar de Empresa" ) WHEN .T.
   DEFINE TBBUTTON OF aToolBar[1] ACTION .T. TOOLTIP ansitooem("Catalogos Generales" ) WHEN .T.
   DEFINE TBBUTTON OF aToolBar[1] ACTION .T. TOOLTIP ansitooem("Catalogo de Impuestos" ) WHEN .T.
   DEFINE TBBUTTON OF aToolBar[1] ACTION .T. TOOLTIP ansitooem("Calculadora" ) WHEN .T.
   DEFINE TBBUTTON OF aToolBar[1] ACTION .T. TOOLTIP ansitooem("Agenda" ) WHEN .T.
   DEFINE TBBUTTON OF aToolBar[1] ACTION .T. TOOLTIP ansitooem("Parametros Generales" ) WHEN .T.
   DEFINE TBBUTTON OF aToolBar[1] ACTION IIF(D_Salir(),Finaliza(hRec,oFont,dDate),nil) TOOLTIP ansitooem("Salir" ) WHEN .T.

oReBar:InsertBand( oPanel )
   oReBar:InsertBand( oFolder )

[Patricio Avalos Aguirre]

Hola

Revisa la clase tTolder

Code: Select all

      #ifndef __CLIPPER__
         if IsAppThemed() .and. valtype(::lTransparent) = "L" .and. !::lTransparent // [b]aqui especificamente[/b]
            if Empty( oDlg:oBrush:hBitmap )
               oDlg:bEraseBkGnd = { | hDC | DrawPBack( oDlg:hWnd, hDC ), 1 }
            endif
         endif
      #endif
 

[Daniel Garcia-Gil]

eso sucede porque estas creando el folder en una window y esta no trabaja con Transparent, por eso cuando el folder empieza a "armar" los dialogos internamente no consigue definida la variable ::lTransparent, una solucion a eso ya te la han comentado