Bitmap en folder

Bitmap en folder

Postby JoseLuis » Thu Nov 16, 2006 6:44 pm

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
JoseLuis
 
Posts: 426
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo

Postby karinha » Thu Nov 16, 2006 7:57 pm

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7766
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby karinha » Thu Nov 16, 2006 8:04 pm

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7766
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby JoseLuis » Fri Nov 17, 2006 7:44 am

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
JoseLuis
 
Posts: 426
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo

Esto te puede Ayudar

Postby jbrita » Fri Nov 17, 2006 11:46 am

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

Saludos
jbrita
 
Posts: 502
Joined: Mon Jan 16, 2006 3:42 pm

Postby JoseLuis » Fri Nov 17, 2006 12:21 pm

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
JoseLuis
 
Posts: 426
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo

Postby jbrita » Fri Nov 17, 2006 1:02 pm

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
jbrita
 
Posts: 502
Joined: Mon Jan 16, 2006 3:42 pm

Postby JoseLuis » Fri Nov 17, 2006 1:34 pm

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
JoseLuis
 
Posts: 426
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo

Postby karinha » Fri Nov 17, 2006 3:26 pm

CAMBIASTES SYSTABCONTROL32 POR "TFOLDER" EN LAS PROPRIEDADS DEL FOLDER???
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7766
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby JoseLuis » Fri Nov 17, 2006 7:52 pm

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í

Image

es decir orejas con color.
Ahora las veo así

Image

Es decir sin color

Y en el ejemplo de Fwh se ve así

Image

Es decir con una rayita amarilla en la parte superior que queda muy bien.

Alguna sugerencia?

Saludos

Jose Luis
JoseLuis
 
Posts: 426
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo

Postby karinha » Fri Nov 17, 2006 8:33 pm

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7766
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby JoseLuis » Sat Nov 18, 2006 9:56 am

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
JoseLuis
 
Posts: 426
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo

Postby Antonio Linares » Sat Nov 18, 2006 10:53 am

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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42048
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby karinha » Sat Nov 18, 2006 11:11 am

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7766
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby JoseLuis » Sat Nov 18, 2006 11:49 am

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
JoseLuis
 
Posts: 426
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo

Next

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 35 guests