FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Problemas con Folder de la Version FWH 9.01
DiGregorio
Posts: 42
Joined: Fri Nov 04, 2005 12:22 AM
Problemas con Folder de la Version FWH 9.01
Posted: Tue Feb 17, 2009 08:51 PM

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.

FWH/FWHX 9.10 + Harbour + xMate 1.5



Domenico Di Gregorio

Italia - Venezuela

stePyme 1.0
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Problemas con Folder de la Version FWH 9.01
Posted: Tue Feb 17, 2009 09:04 PM

Hola DiGregorio

podrias colocar el codigo de creacion del folder por favor

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
DiGregorio
Posts: 42
Joined: Fri Nov 04, 2005 12:22 AM
Re: Problemas con Folder de la Version FWH 9.01
Posted: Tue Feb 17, 2009 09:10 PM
Code (fw): Select all Collapse
//---------------------------------------------------------------------
   //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 ) )    

   // Definimos cada 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 )
FWH/FWHX 9.10 + Harbour + xMate 1.5



Domenico Di Gregorio

Italia - Venezuela

stePyme 1.0
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: Problemas con Folder de la Version FWH 9.01
Posted: Tue Feb 17, 2009 10:08 PM
Hola

Revisa la clase tTolder

Code (fw): Select all Collapse
      #ifndef __CLIPPER__
         if IsAppThemed() .and. valtype(::lTransparent) = "L" .and. !::lTransparent // <strong>aqui especificamente</strong>
            if Empty( oDlg:oBrush:hBitmap )
               oDlg:bEraseBkGnd = { | hDC | DrawPBack( oDlg:hWnd, hDC ), 1 }
            endif
         endif
      #endif
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Problemas con Folder de la Version FWH 9.01
Posted: Tue Feb 17, 2009 10:25 PM

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

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

Continue the discussion

Static archive · New replies & topics via GitHub Discussions