Bitmap en folder

[JoseLuis]

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

[karinha]

No Tengo Certezca, pero kreo ke no és posible con HARBOUR.

Solo con XHARBOUR. -> Funciona Perfecto con XHARBOUR, porke no migras a XHARBOUR??? És mui fácil.

Saludos.

[karinha]

Hola...

Incorpora a tu proyecto:

FOLDER.PRG y
\FwH27\lib\FoldBmp32.lib

MODIFIQUE TU DIALOG EN LAS PROPRIEDADS DEL FOLDER, PARA "TFOLDER" y NO
SYSTABCONTROL32

Intente... en contrario, migres a XHARBOUR.

Saludos.

[JoseLuis]

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

[jbrita]

REDEFINE GET cBitmap ID 116 OF oFld:aDialogs[ 1 ] ;
ON CHANGE( cBitmap := AllTrim( oDbf:Ma_Bitmap ), ;
oBmp:Load( cBitmap ), oBmp:Refresh() ) UPDATE

Saludos

[JoseLuis]

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

[jbrita]

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

[JoseLuis]

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

[karinha]

CAMBIASTES SYSTABCONTROL32 POR "TFOLDER" EN LAS PROPRIEDADS DEL FOLDER???

[JoseLuis]

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

[karinha]

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.

[JoseLuis]

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

[Antonio Linares]

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

[karinha]

Cual és la versión de FIVEWIN y XHARBOUR que usas??

Kreo ke necesitas de una TSBUTTON/TSBROWSE generada para la Versión que usted usas.

[JoseLuis]

Creo que es la 2.8 (la revisión de Octubre).

He recompilado Tsbutton con ésta version a través de verce 4.3.

En fin, seguiré probando

Saludos

Jose Luis