Nuevo FWH 13.07
Posted: Tue Jul 30, 2013 11:07 am
Antonio en printer.prg tienes duplicado el Methodo METHOD CmtrTextToCenter( cText, oFont ) . El correcto es el que aparece abajo , el primero se debe borrar.
Saludos.
FiveTech Software tech support forums
www.FiveTechSoft.com
https://fivetechsupport.com/forums/
Nuevo FWH 13.07
Page 1 of 3
Re: Nuevo FWH 13.07
Posted: Tue Jul 30, 2013 2:25 pm
Re: Nuevo FWH 13.07
Posted: Tue Jul 30, 2013 2:50 pm
Manuel,
Corregido, gracias
Corregido, gracias
Re: Nuevo FWH 13.07
Posted: Wed Jul 31, 2013 6:43 am
Antonio, en rpreview en el methodo SelPrinter creo que debería ser asi :
Code: Select all | Expand
METHOD SelPrinter( cPrinter ) CLASS TPreview
local cOldPrinter := GetProfString( "windows", "device" , "" )
.....
SysRefresh()
// WriteProfString( "windows", "device", cPrinter )
WriteProfString( "windows", "device", cOldPrinter )
.....
Re: Nuevo FWH 13.07
Posted: Wed Jul 31, 2013 7:55 am
Manuel,
muchas gracias
Un autentico error de novato por mi parte...
muchas gracias
Un autentico error de novato por mi parte...
Re: Nuevo FWH 13.07
Posted: Wed Jul 31, 2013 8:28 am
Antonio,
Por favor, ¿para cuándo tendréis previsto sacar una revised build?. Quizás habrá que esperar unos días más para detectar algún bug extra, y en todo caso en la revised build tener las libs para MSVC 2010 por favor.
Muchas gracias.
Por favor, ¿para cuándo tendréis previsto sacar una revised build?. Quizás habrá que esperar unos días más para detectar algún bug extra, y en todo caso en la revised build tener las libs para MSVC 2010 por favor.
Muchas gracias.
Re: Nuevo FWH 13.07
Posted: Wed Jul 31, 2013 8:57 am
Elvira,
Aguardemos hoy y/o mañana por si sale algo más y publicaremos una versión revisada.
Es dificil que no aparezca algún pequeño error con tan poco tiempo que hay para pruebas, aún asi se ha probado a fondo en 32 y 64 bits, pero algo siempre se puede escapar.
gracias por vuestro apoyo y comprensión
Aguardemos hoy y/o mañana por si sale algo más y publicaremos una versión revisada.
Es dificil que no aparezca algún pequeño error con tan poco tiempo que hay para pruebas, aún asi se ha probado a fondo en 32 y 64 bits, pero algo siempre se puede escapar.
gracias por vuestro apoyo y comprensión
Re: Nuevo FWH 13.07
Posted: Wed Jul 31, 2013 8:59 am
De momento estos son los fallos encontrados:
* Las librerias para Microsoft han sido recompiladas con /GS- para hacerlas compatibles con VS2010. Estmos usando VS2012 para construirlas.
* El Método SelPrinter() del Preview tiene un error que hace que cambie la impresora por defecto. Corregido.
* Los botones de una de las partes del ejemplo TestXbr3.prg no son compatibles con cambios recientes introducidos por Rao. Esto no se solucionará
posiblemente hasta el próximo build. En cuanto este solucionado se publicará el cambio requerido para el ejemplo solamente (no cambiaran las librerias)
* Las librerias para Microsoft han sido recompiladas con /GS- para hacerlas compatibles con VS2010. Estmos usando VS2012 para construirlas.
* El Método SelPrinter() del Preview tiene un error que hace que cambie la impresora por defecto. Corregido.
* Los botones de una de las partes del ejemplo TestXbr3.prg no son compatibles con cambios recientes introducidos por Rao. Esto no se solucionará
posiblemente hasta el próximo build. En cuanto este solucionado se publicará el cambio requerido para el ejemplo solamente (no cambiaran las librerias)
Re: Nuevo FWH 13.07
Posted: Wed Jul 31, 2013 9:12 am
Muchas gracias Antonio.
Entiendo entonces que pasados unos días actualizarás la build, verdad?.
Muy agradecida como siempre.
Entiendo entonces que pasados unos días actualizarás la build, verdad?.
Muy agradecida como siempre.
Re: Nuevo FWH 13.07
Posted: Wed Jul 31, 2013 9:56 am
Asi es
Re: Nuevo FWH 13.07
Posted: Wed Jul 31, 2013 10:58 am
Antonio una cosa mas es rpreview ... Cuando haces zoom la barra de listview queda pisada , no vale para nada y molesta "esteticamente" .
Un cambio muy facil de implementar en el Methodo zoom :
Un cambio muy facil de implementar en el Methodo zoom :
Code: Select all | Expand
METHOD Zoom( lMenu ) CLASS TPreview
...
if ::lZoom
....
::oMeta1:ZoomIn()
::oLvw:hide() // esconde el listview
else
.......
::oFactor:Set( 1 )
::oLvw:show() // enseña enseña el listview
endif
Re: Nuevo FWH 13.07
Posted: Wed Jul 31, 2013 12:48 pm
Manuel,
El listview se oculta automaticamente cuando se hace zoom y se restaura cuando salimos del zoom:
Aqui funciona bien. Es extraño que no te funcione ahi
El listview se oculta automaticamente cuando se hace zoom y se restaura cuando salimos del zoom:
Code: Select all | Expand
METHOD Zoom( lMenu ) CLASS TPreview
local hOldRes := GetResources()
SET RESOURCES TO ::cResFile
DEFAULT lMenu := .F.
::lZoom := ! ::lZoom
if IsWindowVisible( ::oLvw:hWnd )
::oLvw:Hide()
else
::oLvw:Show()
endif
...
Aqui funciona bien. Es extraño que no te funcione ahi
Re: Nuevo FWH 13.07
Posted: Wed Jul 31, 2013 2:12 pm
Antonio Linares wrote:Aqui funciona bien. Es extraño que no te funcione ahi
Mia culpa. Estoy sobre una versión modificada ( para que coja los recursos desde el exe en vez de la dll ) y se me paso añadir ese trozo de código .Funciona perfecto.
Otra cosa , tendríamos que añadir código para que el listview se redimensione a la vez que la ventana en caso de cambiarla de tamaño .
Gracias y perdón por el error.
Re: Nuevo FWH 13.07
Posted: Wed Jul 31, 2013 2:16 pm
Al intentar ejecutar la aplicación en un windows xp/windows 2000 server aparece el siguiente mensaje:
no se encuentra el punto de entrada del procedimiento K32GetModuleFileNameExA en la biblioteca de vinculos dinamicos KERNEL32.dll
En windows 7 funciona sin problemas
no se encuentra el punto de entrada del procedimiento K32GetModuleFileNameExA en la biblioteca de vinculos dinamicos KERNEL32.dll
En windows 7 funciona sin problemas
Re: Nuevo FWH 13.07
Posted: Wed Jul 31, 2013 4:33 pm
Fernando,
Esa función GetModuleFileNameEx() esta implementada y se usa solamente en gettasks.prg
Puedes anularla facilmente, declarando esta función en tu PRG principal:
function GetTasks() ; return nil
Asi ya te funcionaría bien en XP y Windows 2000
Esa función GetModuleFileNameEx() esta implementada y se usa solamente en gettasks.prg
Puedes anularla facilmente, declarando esta función en tu PRG principal:
function GetTasks() ; return nil
Asi ya te funcionaría bien en XP y Windows 2000