Nuevo FWH 13.07

[Antonio Linares]

viewtopic.php?f=16&t=26865#p149043

[mastintin]

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.

[Antonio Linares]

Manuel,

Corregido, gracias

[mastintin]

Antonio, en rpreview en el methodo SelPrinter creo que debería ser asi :

Code: Select all  Expand view

METHOD SelPrinter( cPrinter ) CLASS TPreview
 local cOldPrinter := GetProfString( "windows", "device" , "" )
  .....
   SysRefresh()

  // WriteProfString( "windows", "device", cPrinter )  

  WriteProfString( "windows", "device", cOldPrinter )
  .....

 

[Antonio Linares]

Manuel,

muchas gracias

Un autentico error de novato por mi parte...

[elvira]

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.

[Antonio Linares]

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

[Antonio Linares]

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)

[elvira]

Muchas gracias Antonio.

Entiendo entonces que pasados unos días actualizarás la build, verdad?.

Muy agradecida como siempre.

[Antonio Linares]

Asi es

[mastintin]

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 :

Code: Select all  Expand view

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

 

[Antonio Linares]

Manuel,

El listview se oculta automaticamente cuando se hace zoom y se restaura cuando salimos del zoom:

Code: Select all  Expand view

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

[mastintin]

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.

[fgondi]

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

[Antonio Linares]

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