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.
Problemas con Folder de la Version FWH 9.01
- DiGregorio
- Posts: 42
- Joined: Fri Nov 04, 2005 12:22 am
- Location: Ven - Ita
- Contact:
Problemas con Folder de la Version FWH 9.01
FWH/FWHX 9.10 + Harbour + xMate 1.5
Domenico Di Gregorio
Italia - Venezuela
stePyme 1.0
Domenico Di Gregorio
Italia - Venezuela
stePyme 1.0
- Daniel Garcia-Gil
- Posts: 2365
- Joined: Wed Nov 02, 2005 11:46 pm
- Location: Isla de Margarita
- Contact:
Re: Problemas con Folder de la Version FWH 9.01
Hola DiGregorio
podrias colocar el codigo de creacion del folder por favor
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/NTI5N ... rc=global9
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5N ... rc=global9
- DiGregorio
- Posts: 42
- Joined: Fri Nov 04, 2005 12:22 am
- Location: Ven - Ita
- Contact:
Re: Problemas con Folder de la Version FWH 9.01
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 )
FWH/FWHX 9.10 + Harbour + xMate 1.5
Domenico Di Gregorio
Italia - Venezuela
stePyme 1.0
Domenico Di Gregorio
Italia - Venezuela
stePyme 1.0
- Patricio Avalos Aguirre
- Posts: 1028
- Joined: Fri Oct 07, 2005 1:56 pm
- Location: La Serena, Chile
- Contact:
Re: Problemas con Folder de la Version FWH 9.01
Hola
Revisa la clase tTolder
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
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
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
- Location: Isla de Margarita
- Contact:
Re: Problemas con Folder de la Version FWH 9.01
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/NTI5N ... rc=global9
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5N ... rc=global9