FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Antonio - Efecto visual diferente FWH812/FWH1108
jll-fwh
Posts: 408
Joined: Fri Jan 29, 2010 08:14 PM
Antonio - Efecto visual diferente FWH812/FWH1108
Posted: Tue Sep 06, 2011 07:13 PM
Antonio;

Al compilar con la nueva version de FWH1108/BCC582-HARBOUR311, el aspecto visual de las barras TBar/TBtnBmp no es igual que al compilar con FWH812/BCC55/HARBOUR101:

Con la nueva version ademas no aplica el FONT que tiene asignado.

La barra la tengo declarada asi:

Code (fw): Select all Collapse
聽 聽 聽DEFINE FONT oFont NAME "Tahoma" SIZE 0,-12

聽 聽 聽DEFINE BUTTONBAR oBar _3D SIZE 75, 60 OF oWnd

聽 聽 聽DEFINE BUTTON RESOURCE "MenuP_Tablas" NOBORDER OF oBar;
聽 聽 聽 聽 聽 聽 TOOLTIP "Tablas Auxiliares";
聽 聽 聽 聽 聽 聽 FONT oFont PROMPT "Auxiliares";
聽 聽 聽 聽 聽 聽 MENU BuildMenuA()


Te adjunto las imagenes del mismo programa compilado en distintas versiones.

Compilacion FWH1108
http://www.grupes.es/basura/fwh1108.png
" alt="" loading="lazy">

Compilacion FWH812
http://www.grupes.es/basura/fwh812.png
" alt="" loading="lazy">

Como puedo solucionar esto?

Muchas gracias y un saludo
JLL
Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com
Bayron
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: Antonio - Efecto visual diferente FWH812/FWH1108
Posted: Tue Sep 06, 2011 07:18 PM
Mientras alguien te da una verdadera soluci贸n, puedes intentar:

Code (fw): Select all Collapse
聽 聽 聽DEFINE FONT oFont NAME "Tahoma" SIZE 0,-12

聽 聽 聽DEFINE BUTTONBAR oBar _3D SIZE 75, 60 OF oWnd

聽 聽 聽DEFINE BUTTON RESOURCE "MenuP_Tablas" NOBORDER OF oBar;
聽 聽 聽 聽 聽 聽 TOOLTIP "Tablas Auxiliares";
聽 聽 聽 聽 聽 聽 FONT oFont PROMPT CRLF + "Auxiliares";
聽 聽 聽 聽 聽 聽 MENU BuildMenuA()

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

jll-fwh
Posts: 408
Joined: Fri Jan 29, 2010 08:14 PM
Re: Antonio - Efecto visual diferente FWH812/FWH1108
Posted: Tue Sep 06, 2011 08:20 PM

Hola Bayron.

Gracias por responder.

Eso ya lo he probado, pero no es la solucion a una version nueva.

Gracias;

Un saludo
JLL

Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com
jll-fwh
Posts: 408
Joined: Fri Jan 29, 2010 08:14 PM
Re: Antonio - Efecto visual diferente FWH812/FWH1108
Posted: Tue Sep 06, 2011 09:53 PM
Antonio;

Con la clausula 2007 funciona bien, pero sin entorno 2007 NO, y yo no uso clausula 2007.

Imagen FWH1108 con clausula 2007
http://www.grupes.es/basura/fwh11082007.png
" alt="" loading="lazy">

Un saludo
JLL
Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Antonio - Efecto visual diferente FWH812/FWH1108
Posted: Wed Sep 07, 2011 12:39 AM

Thanks for pointing out the difference. We shall soon fix the problem.

Regards



G. N. Rao.

Hyderabad, India
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Antonio - Efecto visual diferente FWH812/FWH1108
Posted: Wed Sep 07, 2011 11:01 AM
Javier,

Efectivamente hay una diferencia en el pintado que se nos ha pasado posiblemente por usar casi siempre el estilo 2007 y no hacer pruebas sin ese estilo.

La diferencia viene de la funci贸n PALBTNPAINT() que al calcular la posici贸n vertical en donde dibujar el bitmap, no tiene en cuenta la posici贸n en donde est谩 el texto, para restarlo a la altura. Parece que el arreglo ser铆a este cambio en las llamadas a hPalBitmapDraw() desde dentro de esa funci贸n:

Code (fw): Select all Collapse
hPalBitmapDraw( hDC, ( ( nRow - rct.top + yLayout ) / 2 ) - ( bm.bmHeight / 2 ) + 1,

en vez de:
Code (fw): Select all Collapse
hPalBitmapDraw( hDC, ( ( rct.bottom - rct.top + yLayout ) / 2 ) - ( bm.bmHeight / 2 ) + 1,


nRow es la coordenada vertical en donde se muestra el texto del bot贸n.

Estamos haciendo pruebas para comprobar que funcione bien en todos los casos y te enviamos la libreria modificada cuanto antes. Gracias :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
jll-fwh
Posts: 408
Joined: Fri Jan 29, 2010 08:14 PM
Re: Antonio - Efecto visual diferente FWH812/FWH1108
Posted: Wed Sep 07, 2011 09:47 PM
ok antonio-

He puesto otro post sonbre otro tema tambien de FWH1108:

viewtopic.php?f=6&t=22339
" rel="noopener">
viewtopic.php?f=6&t=22339


Un saludo
JLL
Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Antonio - Efecto visual diferente FWH812/FWH1108
Posted: Thu Sep 08, 2011 08:08 AM

Javier,

Te acabamos de enviar una versi贸n modificada de FiveHC.lib para que pruebes la barra de botones con ella, gracias :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
jll-fwh
Posts: 408
Joined: Fri Jan 29, 2010 08:14 PM
Re: Antonio - Efecto visual diferente FWH812/FWH1108
Posted: Mon Sep 12, 2011 06:14 PM
Hola Antonio:

Ahora con la nueva version de FiveHC.LIB que me enviastes con la correccion me da los siguientes errores:

Code (fw): Select all Collapse
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
obj\jpapilla.c:
聽 聽 聽 聽 echo off
聽 聽 聽 聽 echo c:\bcc582\lib\c0w32.obj + > b32.bc
聽 聽 聽 聽 echo obj\Proc9999.obj + >> b32.bc
聽 聽 聽 聽 echo obj\Proc9995.obj + >> b32.bc
聽 聽 聽 聽 echo obj\Proc9996.obj + >> b32.bc
聽 聽 聽 聽 echo obj\Proc0101.obj + >> b32.bc
聽 聽 聽 聽 echo obj\jpapilla.obj, + >> b32.bc
聽 聽 聽 聽 echo jpapilla.exe, + >> b32.bc
聽 聽 聽 聽 echo jpapilla.map, + >> b32.bc
聽 聽 聽 聽 echo c:\fwh1108\lib\FiveH.lib c:\fwh1108\lib\FiveHC.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbrtl.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbvm.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\%GT%.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hblang.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbmacro.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbrdd.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\rddntx.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\rddcdx.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\rddfpt.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbsix.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbdebug.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbcommon.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbpp.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbcpage.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbwin.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbcplr.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbct.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\xhb.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbziparc.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbmzip.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbzlib.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\minizip.lib + >> b32.bc
聽 聽 聽 聽 rem Uncomment these two lines to use Advantage RDD
聽 聽 聽 聽 rem echo %hdirl%\rddads.lib + >> b32.bc
聽 聽 聽 聽 rem echo %hdirl%\Ace32.lib + >> b32.bc
聽 聽 聽 聽 rem Uncomment these two lines to use Advantage RDD
聽 聽 聽 聽 rem echo %hdirl%\rddads.lib + >> b32.bc
聽 聽 聽 聽 rem echo %hdirl%\Ace32.lib + >> b32.bc
聽 聽 聽 聽 echo c:\bcc582\lib\cw32.lib + >> b32.bc
聽 聽 聽 聽 echo c:\bcc582\lib\uuid.lib + >> b32.bc
聽 聽 聽 聽 echo c:\bcc582\lib\import32.lib + >> b32.bc
聽 聽 聽 聽 echo c:\bcc582\lib\psdk\odbc32.lib + >> b32.bc
聽 聽 聽 聽 echo c:\bcc582\lib\psdk\nddeapi.lib + >> b32.bc
聽 聽 聽 聽 echo c:\bcc582\lib\psdk\iphlpapi.lib + >> b32.bc
聽 聽 聽 聽 echo c:\bcc582\lib\psdk\msimg32.lib + >> b32.bc
聽 聽 聽 聽 echo c:\bcc582\lib\psdk\psapi.lib + >> b32.bc
聽 聽 聽 聽 echo c:\bcc582\lib\psdk\rasapi32.lib + >> b32.bc
聽 聽 聽 聽 echo c:\bcc582\lib\psdk\shell32.lib, >> b32.bc
聽 聽 聽 聽 IF EXIST jpapilla.res echo jpapilla.res >> b32.bc
聽 聽 聽 聽 if %GT% == gtwin c:\bcc582\bin\ilink32 -Tpe -s @b32.bc
聽 聽 聽 聽 if %GT% == gtgui c:\bcc582\bin\ilink32 -Gn -aa -Tpe -s @b32.bc
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Error: Unresolved external '_ISCHAR' referenced from C:\FWH1108\LIB\FIVEHC.LIB|WINSOCK
Error: Unresolved external '_PCOUNT' referenced from C:\FWH1108\LIB\FIVEHC.LIB|MKDIR

** error 2 ** deleting jpapilla.exe


He intentado a帽adir Esas funciones y que devuelvan nil, pero tampoco me compila bien:

Un saludo
JLL
Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com
jll-fwh
Posts: 408
Joined: Fri Jan 29, 2010 08:14 PM
Re: Antonio - Efecto visual diferente FWH812/FWH1108
Posted: Mon Sep 12, 2011 06:16 PM
Tambien esta pendiente las correcciones del xrbwose que te describi en el post:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=22339

un saludo
JLL
Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Antonio - Efecto visual diferente FWH812/FWH1108
Posted: Mon Sep 12, 2011 08:32 PM
jll-fwh wrote:Hola Antonio:

Ahora con la nueva version de FiveHC.LIB que me enviastes con la correccion me da los siguientes errores:

Code (fw): Select all Collapse
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
obj\jpapilla.c:
聽 聽 聽 聽 echo off
聽 聽 聽 聽 echo c:\bcc582\lib\c0w32.obj + > b32.bc
聽 聽 聽 聽 echo obj\Proc9999.obj + >> b32.bc
聽 聽 聽 聽 echo obj\Proc9995.obj + >> b32.bc
聽 聽 聽 聽 echo obj\Proc9996.obj + >> b32.bc
聽 聽 聽 聽 echo obj\Proc0101.obj + >> b32.bc
聽 聽 聽 聽 echo obj\jpapilla.obj, + >> b32.bc
聽 聽 聽 聽 echo jpapilla.exe, + >> b32.bc
聽 聽 聽 聽 echo jpapilla.map, + >> b32.bc
聽 聽 聽 聽 echo c:\fwh1108\lib\FiveH.lib c:\fwh1108\lib\FiveHC.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbrtl.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbvm.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\%GT%.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hblang.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbmacro.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbrdd.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\rddntx.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\rddcdx.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\rddfpt.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbsix.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbdebug.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbcommon.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbpp.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbcpage.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbwin.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbcplr.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbct.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\xhb.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbziparc.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbmzip.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\hbzlib.lib + >> b32.bc
聽 聽 聽 聽 echo c:\harbo311\lib\minizip.lib + >> b32.bc
聽 聽 聽 聽 rem Uncomment these two lines to use Advantage RDD
聽 聽 聽 聽 rem echo %hdirl%\rddads.lib + >> b32.bc
聽 聽 聽 聽 rem echo %hdirl%\Ace32.lib + >> b32.bc
聽 聽 聽 聽 rem Uncomment these two lines to use Advantage RDD
聽 聽 聽 聽 rem echo %hdirl%\rddads.lib + >> b32.bc
聽 聽 聽 聽 rem echo %hdirl%\Ace32.lib + >> b32.bc
聽 聽 聽 聽 echo c:\bcc582\lib\cw32.lib + >> b32.bc
聽 聽 聽 聽 echo c:\bcc582\lib\uuid.lib + >> b32.bc
聽 聽 聽 聽 echo c:\bcc582\lib\import32.lib + >> b32.bc
聽 聽 聽 聽 echo c:\bcc582\lib\psdk\odbc32.lib + >> b32.bc
聽 聽 聽 聽 echo c:\bcc582\lib\psdk\nddeapi.lib + >> b32.bc
聽 聽 聽 聽 echo c:\bcc582\lib\psdk\iphlpapi.lib + >> b32.bc
聽 聽 聽 聽 echo c:\bcc582\lib\psdk\msimg32.lib + >> b32.bc
聽 聽 聽 聽 echo c:\bcc582\lib\psdk\psapi.lib + >> b32.bc
聽 聽 聽 聽 echo c:\bcc582\lib\psdk\rasapi32.lib + >> b32.bc
聽 聽 聽 聽 echo c:\bcc582\lib\psdk\shell32.lib, >> b32.bc
聽 聽 聽 聽 IF EXIST jpapilla.res echo jpapilla.res >> b32.bc
聽 聽 聽 聽 if %GT% == gtwin c:\bcc582\bin\ilink32 -Tpe -s @b32.bc
聽 聽 聽 聽 if %GT% == gtgui c:\bcc582\bin\ilink32 -Gn -aa -Tpe -s @b32.bc
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Error: Unresolved external '_ISCHAR' referenced from C:\FWH1108\LIB\FIVEHC.LIB|WINSOCK
Error: Unresolved external '_PCOUNT' referenced from C:\FWH1108\LIB\FIVEHC.LIB|MKDIR

** error 2 ** deleting jpapilla.exe


He intentado a帽adir Esas funciones y que devuelvan nil, pero tampoco me compila bien:

Un saludo
JLL


Javier,

Te reenviamos la libreria corregida, gracias
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions