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 Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Nuevo FWH 13.07
Manuel,
Corregido, gracias 
Antonio, en rpreview en el methodo SelPrinter creo que deberÃa ser asi :
METHOD SelPrinter( cPrinter ) CLASS TPreview
local cOldPrinter := GetProfString( "windows", "device" , "" )
.....
SysRefresh()
// WriteProfString( "windows", "device", cPrinter )
WriteProfString( "windows", "device", cOldPrinter )
.....Manuel,
muchas gracias
Un autentico error de novato por mi parte... 
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.
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
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)
Muchas gracias Antonio.
Entiendo entonces que pasados unos dÃas actualizarás la build, verdad?.
Muy agradecida como siempre.
Asi es
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 :
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
endifManuel,
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:
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
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.
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
Un saludo
Fernando González Diez
ALSIS Sistemas Informáticos
Fernando González Diez
ALSIS Sistemas Informáticos
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