Bitmap en folder
Bitmap en folder
Hola amigos
Necesito poner en las pestañas de un folder un bitmap junto con un nombre, y veo que con fwh no puedo, así que he visto clases, lib, etc en el foro y he visto una en fivewin brasil de Joao Santos, que me ha gustado, la he adaptado a harbour, y por mas pruebas que hago siempre obtengo el sesultado siguiente:
http://img441.imageshack.us/my.php?image=folderam7.jpg
Como vereis, las pestañas ni cogen el color del folder, ni pintan el bitmap.
El codigo es el siguiente:
**************************
Redefine Folder oFol Id 47 Of oDlg;
Prompts "&General", "&Banco", "&Albaranes", "&Facturas","A&lmacenes";
Dialogs "CLI1", "CLI2", "CLI5", "CLI7", "CLI8";
Bitmaps "casa", "casa", "casa", "casa", "casa" ;
TABCOLOR CLR_HBLUE ;
FOCUSCOLOR CLR_HRED ;
COLORS CLR_BLACK, CLR_YELLOW ;
ADJUST
******************************
Que puede ser?
Saludos
Jose Luis
Necesito poner en las pestañas de un folder un bitmap junto con un nombre, y veo que con fwh no puedo, así que he visto clases, lib, etc en el foro y he visto una en fivewin brasil de Joao Santos, que me ha gustado, la he adaptado a harbour, y por mas pruebas que hago siempre obtengo el sesultado siguiente:
http://img441.imageshack.us/my.php?image=folderam7.jpg
Como vereis, las pestañas ni cogen el color del folder, ni pintan el bitmap.
El codigo es el siguiente:
**************************
Redefine Folder oFol Id 47 Of oDlg;
Prompts "&General", "&Banco", "&Albaranes", "&Facturas","A&lmacenes";
Dialogs "CLI1", "CLI2", "CLI5", "CLI7", "CLI8";
Bitmaps "casa", "casa", "casa", "casa", "casa" ;
TABCOLOR CLR_HBLUE ;
FOCUSCOLOR CLR_HRED ;
COLORS CLR_BLACK, CLR_YELLOW ;
ADJUST
******************************
Que puede ser?
Saludos
Jose Luis
Hola Joao
Me preguntas que porqué no migro a xharbour.
No me importaría, ahora que estoy empezando con harbour, lo que quiero es escojer algo que sea el más utilizado dentro de nuestra comunidad xbase, y me parecía por la cantidad de post, y en las antiguas news que lo más manejado era harbour.
Yo por ser lo más cómodo utilizo Verce 4.3, y creo que no habría problema.
Ayer recompilé en xharbour la aplicación que estoy migrando de fivewin, y empezaron de nuevo los errores de compilación que ya tenía superados en harbour, así que si no me aconsejan otra cosa seguiré con harbour, salvo que me indiquen si hay muchas diferencias tanto en el resultado final de la aplicación, como en la problematica de generación de aplicaciones.
Un saludo
Jose Luis
Me preguntas que porqué no migro a xharbour.
No me importaría, ahora que estoy empezando con harbour, lo que quiero es escojer algo que sea el más utilizado dentro de nuestra comunidad xbase, y me parecía por la cantidad de post, y en las antiguas news que lo más manejado era harbour.
Yo por ser lo más cómodo utilizo Verce 4.3, y creo que no habría problema.
Ayer recompilé en xharbour la aplicación que estoy migrando de fivewin, y empezaron de nuevo los errores de compilación que ya tenía superados en harbour, así que si no me aconsejan otra cosa seguiré con harbour, salvo que me indiquen si hay muchas diferencias tanto en el resultado final de la aplicación, como en la problematica de generación de aplicaciones.
Un saludo
Jose Luis
Esto te puede Ayudar
REDEFINE GET cBitmap ID 116 OF oFld:aDialogs[ 1 ] ;
ON CHANGE( cBitmap := AllTrim( oDbf:Ma_Bitmap ), ;
oBmp:Load( cBitmap ), oBmp:Refresh() ) UPDATE
Saludos
ON CHANGE( cBitmap := AllTrim( oDbf:Ma_Bitmap ), ;
oBmp:Load( cBitmap ), oBmp:Refresh() ) UPDATE
Saludos
Hola jbrita
Con esto que me pones podré colocar un bitmap en cada pestaña?
Tengo que redefinir un bitmap para cada pesteña del folder?
Cuando puedas me contestas .
De todas formas, con tanto trasiego de poner librerias, cambiar includes, cambiar codigo a ver si funciona de una manera o de otra, ahora resulta que el folder que antes se veía así
http://img220.imageshack.us/my.php?image=clien1er9.jpg
Es decir, las pestañas del color del resto
Ahora se ve así
http://img220.imageshack.us/my.php?imag ... tesij9.jpg
Es decir las pestañas del folder se ven gris y el resto del color brush que tengo definido.
Será cuestión del recurso o del fuente. Ya he hecho de todo y nada.
Por otra parte y con respecto a lo que me dijo joao que hiciera para probar, si denomino al recurso como Tfolder e incluyo la libreria foldbmp32.lib en la compilación, al ejecutar el programa me da el error:
*******************************
Error description: Error BASE/3003 Cannot find super class: __CLSINSTSUPER
**************************************
Saludos y gracias
Jose luis
Con esto que me pones podré colocar un bitmap en cada pestaña?
Tengo que redefinir un bitmap para cada pesteña del folder?
Cuando puedas me contestas .
De todas formas, con tanto trasiego de poner librerias, cambiar includes, cambiar codigo a ver si funciona de una manera o de otra, ahora resulta que el folder que antes se veía así
http://img220.imageshack.us/my.php?image=clien1er9.jpg
Es decir, las pestañas del color del resto
Ahora se ve así
http://img220.imageshack.us/my.php?imag ... tesij9.jpg
Es decir las pestañas del folder se ven gris y el resto del color brush que tengo definido.
Será cuestión del recurso o del fuente. Ya he hecho de todo y nada.
Por otra parte y con respecto a lo que me dijo joao que hiciera para probar, si denomino al recurso como Tfolder e incluyo la libreria foldbmp32.lib en la compilación, al ejecutar el programa me da el error:
*******************************
Error description: Error BASE/3003 Cannot find super class: __CLSINSTSUPER
**************************************
Saludos y gracias
Jose luis
cBitmap1 := AllTrim( oDbf:MA_Bitmap1 )
cBitmap2 := AllTrim( oDbf:MA_Bitmap2 )
DEFINE DIALOG oDlg RESOURCE "ART_FOLDER" TITLE cTitulo OF oVentPrinc
REDEFINE FOLDER oFld ID 99 OF oDlg ;
PROMPT "&General","&Comercial" ;
DIALOGS "ART_GENERAL" , "ART_COMERCIAL"
REDEFINE BITMAP oBmp FILENAME cBitmap1 ADJUST ID 114 OF oFld:aDialogs[ 1 ] UPDATE
REDEFINE BITMAP oBmp FILENAME cBitmap2 ADJUST ID 118 OF oFld:aDialogs[ 2 ] UPDATE
cBitmap2 := AllTrim( oDbf:MA_Bitmap2 )
DEFINE DIALOG oDlg RESOURCE "ART_FOLDER" TITLE cTitulo OF oVentPrinc
REDEFINE FOLDER oFld ID 99 OF oDlg ;
PROMPT "&General","&Comercial" ;
DIALOGS "ART_GENERAL" , "ART_COMERCIAL"
REDEFINE BITMAP oBmp FILENAME cBitmap1 ADJUST ID 114 OF oFld:aDialogs[ 1 ] UPDATE
REDEFINE BITMAP oBmp FILENAME cBitmap2 ADJUST ID 118 OF oFld:aDialogs[ 2 ] UPDATE
Hola jbrita
Esto que me has mandado, salvo error lo que hace es pintar un bitmap en un folder, pero mi porblema está en las pestañitas de cada folder, en la parte superior, al lado de donde pone "General" y "Comercial", un bmp de esos pequeños de 16x16.
De todas las maneras como explico anteriormente ya lo he desechado, porque me ha dicho Joao que no se puede en harbour, y ahora mi problema viene porque esas pestañitas no me cogen el color del resto del folder como he explicado también.
Un saludo
Jose Luis
Esto que me has mandado, salvo error lo que hace es pintar un bitmap en un folder, pero mi porblema está en las pestañitas de cada folder, en la parte superior, al lado de donde pone "General" y "Comercial", un bmp de esos pequeños de 16x16.
De todas las maneras como explico anteriormente ya lo he desechado, porque me ha dicho Joao que no se puede en harbour, y ahora mi problema viene porque esas pestañitas no me cogen el color del resto del folder como he explicado también.
Un saludo
Jose Luis
Si, hice todo tipo de cambios y probaturas y nada.
Si nos olvidamos de los bitmaps, lo que no entiendo es porqué al principio las orejas del folder se veían así
es decir orejas con color.
Ahora las veo así
Es decir sin color
Y en el ejemplo de Fwh se ve así
Es decir con una rayita amarilla en la parte superior que queda muy bien.
Alguna sugerencia?
Saludos
Jose Luis
Si nos olvidamos de los bitmaps, lo que no entiendo es porqué al principio las orejas del folder se veían así
es decir orejas con color.
Ahora las veo así
Es decir sin color
Y en el ejemplo de Fwh se ve así
Es decir con una rayita amarilla en la parte superior que queda muy bien.
Alguna sugerencia?
Saludos
Jose Luis
Compile estes ejemplos con HARBOUR...
http://www.fivewin.com.br/exibedicas.asp?id=674
http://www.fivewin.com.br/exibedicas.asp?id=673
En contrário... Migres a XHARBOUR.
http://www.fivewin.com.br/exibedicas.asp?id=674
http://www.fivewin.com.br/exibedicas.asp?id=673
En contrário... Migres a XHARBOUR.
João Santos - São Paulo - Brasil
Hola
Esta noche he empezado a pasar todo otra vez ahora a xharbour como me ha recomendado Joao, a ver si se acaban los problemas de la migración y puedo dedicarme a la programación en sí.
Después de compilar para xharbour librerias que tenía para harbour, me da error en tsbutton.
***********************
Application
===========
Path and name: c:\fuentes\xharbour\mocwin2006\gespaq.Exe (32 bits)
Size: 816,128 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 18/11/06, 10:43:31
Error description: Error BASE/1086 Argument error: ++
Args:
[ 1] = U
Stack Calls
===========
Called from: => TSBUTTON(0)
Called from: C:\fuentes\xharbour\mocwin2006\PRG\gespaq.prg => INICIO(791)
Called from: C:\fuentes\xharbour\mocwin2006\PRG\gespaq.prg => (b)MAIN(143)
Called from: => TMDIFRAME:ACTIVATE(0)
Called from: C:\fuentes\xharbour\mocwin2006\PRG\gespaq.prg => MAIN(143)
**********************
La parte del programa a la que hace referencia es
REDEFINE SBUTTON oBtn1 ID 550 OF oDlg RESOURCE "Lamp1", "Lamp2",, "Lamp3", 'shape3' SHAPE PROMPT "Aceptar" TEXT ON_RIGHT ;
ACTION iif( ValidaUser(cClave, @oClave,"C" ) ,;
(Seguir:=.T., SEAT1->(rlock()),SEAT1->Activo:=.t.,seat1->(dbUnlock()),oDlg:End()) , oBtn2:sendmsg( FM_CHANGEFOCUS ) )
Esto en harbour me funciona; creo recordar que éste error me salió el otro día cuando estaba pasando de Five a harbour y la verdad, no sé cómo lo solucioné.
Un saludo
Jose Luis
Esta noche he empezado a pasar todo otra vez ahora a xharbour como me ha recomendado Joao, a ver si se acaban los problemas de la migración y puedo dedicarme a la programación en sí.
Después de compilar para xharbour librerias que tenía para harbour, me da error en tsbutton.
***********************
Application
===========
Path and name: c:\fuentes\xharbour\mocwin2006\gespaq.Exe (32 bits)
Size: 816,128 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 18/11/06, 10:43:31
Error description: Error BASE/1086 Argument error: ++
Args:
[ 1] = U
Stack Calls
===========
Called from: => TSBUTTON(0)
Called from: C:\fuentes\xharbour\mocwin2006\PRG\gespaq.prg => INICIO(791)
Called from: C:\fuentes\xharbour\mocwin2006\PRG\gespaq.prg => (b)MAIN(143)
Called from: => TMDIFRAME:ACTIVATE(0)
Called from: C:\fuentes\xharbour\mocwin2006\PRG\gespaq.prg => MAIN(143)
**********************
La parte del programa a la que hace referencia es
REDEFINE SBUTTON oBtn1 ID 550 OF oDlg RESOURCE "Lamp1", "Lamp2",, "Lamp3", 'shape3' SHAPE PROMPT "Aceptar" TEXT ON_RIGHT ;
ACTION iif( ValidaUser(cClave, @oClave,"C" ) ,;
(Seguir:=.T., SEAT1->(rlock()),SEAT1->Activo:=.t.,seat1->(dbUnlock()),oDlg:End()) , oBtn2:sendmsg( FM_CHANGEFOCUS ) )
Esto en harbour me funciona; creo recordar que éste error me salió el otro día cuando estaba pasando de Five a harbour y la verdad, no sé cómo lo solucioné.
Un saludo
Jose Luis
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Jose Luis,
> Error description: Error BASE/1086 Argument error: ++
>
REDEFINE SBUTTON oBtn1 ID 550 OF oDlg RESOURCE "Lamp1", "Lamp2",, "Lamp3", 'shape3' SHAPE PROMPT "Aceptar" TEXT ON_RIGHT ;
ACTION iif( ValidaUser(cClave, @oClave,"C" ) ,;
(Seguir:=.T., SEAT1->(rlock()),SEAT1->Activo:=.t.,seat1->(dbUnlock()),oDlg:End()) , oBtn2:sendmsg( FM_CHANGEFOCUS )
>
Ahi no se ve ningún "++"
Busca dentro del fuente de TSButton
> Error description: Error BASE/1086 Argument error: ++
>
REDEFINE SBUTTON oBtn1 ID 550 OF oDlg RESOURCE "Lamp1", "Lamp2",, "Lamp3", 'shape3' SHAPE PROMPT "Aceptar" TEXT ON_RIGHT ;
ACTION iif( ValidaUser(cClave, @oClave,"C" ) ,;
(Seguir:=.T., SEAT1->(rlock()),SEAT1->Activo:=.t.,seat1->(dbUnlock()),oDlg:End()) , oBtn2:sendmsg( FM_CHANGEFOCUS )
>
Ahi no se ve ningún "++"
Busca dentro del fuente de TSButton