FWH - Nueva Clase TOutLook2003

Post by **Antonio Linares** » Fri Sep 07, 2007 8:03 am

Este es un prototipo de la nueva Clase TOutLook2003 que se incluirá en FWH 7.09 este mes:

MOISES · Post by **MOISES** » Fri Sep 07, 2007 10:23 am

Antonio:

Muchas gracias por seguir mejorando FW. Es genial!!!. ¿Se podrán poner opciones dentro, como se hacía con la clase anterior?.

Post by **Antonio Linares** » Fri Sep 07, 2007 10:24 am

Moises,

Gracias.

Sí, funciona como un folder:
Se pueden poner diálogos diseñados con el editor de recursos

Post by **Antonio Linares** » Sat Sep 08, 2007 12:43 pm

Una primera demo para probar. Fijaros en el código tan simple

Code: Select all

   DEFINE OUTLOOK2003 oOutLook2003 OF oWnd ;
      PROMPTS "Mail", "Calendar", "Contacts", "" ;
      BITMAPS "mail.bmp", "calendar.bmp", "notes.bmp"

http://rapidshare.com/files/54219595/demo.zip.html

MOISES · Post by **MOISES** » Sat Sep 08, 2007 5:19 pm

Muy buena, veo que es muy fácil migrar desde la clase anterior. Y el pintado es muy rápido. Enhorabuena!!!

Carlos Mora · Post by **Carlos Mora** » Sun Sep 09, 2007 5:28 pm

Hola Antonio,
El control esta chulo, es una forma diferente de abordar el modelo a la que tenía en mente, pero está muy bien, creo que así es muy flexible.
Me dirás toca...narices, pero los problemillas de pintado siguen, y ojo que estoy en un ordenador ajeno, con tarjeta gráfica acelerada (es un ordenador para juegos).

http://www.box.net/shared/auuntd7xyh

Has podido ver algo al respecto?

Un saludo,

Carlos

Post by **Antonio Linares** » Sun Sep 09, 2007 6:35 pm

Carlos,

De momento no hay novedad, aunque en los próximos dias vamos a hacer una nueva serie de pruebas en relación al pintado. A ver si damos con la causa

Post by **Antonio Linares** » Sun Sep 09, 2007 6:39 pm

Carlos,

Fijate que en tu imagen el pushbutton y la statusbar estan bien. Luego es algo propio de los controles creados por FWH. A ver si cazamos el bug...

Post by **Antonio Linares** » Sun Sep 09, 2007 6:45 pm

Carlos,

Y la cuestión es que no siempre falla. Ahora estamos probando a mover la calculadora encima del control outlook y no conseguimos reproducir el fallo.

Post by **Antonio Linares** » Sun Sep 09, 2007 7:20 pm

Carlos,

Una posible pista: Define este método en tu control y veamos si se llama:

METHOD Colors( hDC ) INLINE MsgBeep()

Post by **Antonio Linares** » Sun Sep 09, 2007 7:26 pm

Carlos,

Otra posible pista: Si BeginPaint() falla (según la documentación del API de Windows) entonces el hDC devuelto no es válido, por lo que al intentar usarlo más adelante no funcionaría. Una posible prueba sería este cambio:

Code: Select all

METHOD _BeginPaint() CLASS TWindow

   local cPS

   if ::nPaintCount == nil
      ::nPaintCount = 1
   else
      ::nPaintCount++
   endif

   ::hDC = BeginPaint( ::hWnd, @cPS )
   ::cPS = cPS

   if ::hDC == 0
      MsgBeep()  // tenemos un hDC no válido !
   endif

return nil

Carlos Mora · Post by **Carlos Mora** » Sun Sep 09, 2007 8:00 pm

Antonio Linares wrote:Carlos,

Fijate que en tu imagen el pushbutton y la statusbar estan bien. Luego es algo propio de los controles creados por FWH. A ver si cazamos el bug...

Correcto, si es lo que te decía desde el primer día. Antes de comentar el tema hice todas las pruebas y busque con todos los elementos que tenía a mi alcance, pero no soy experto, recien me estoy metiendo en las tripas del asunto y, obviamente, me quedo rápido sin argumentos y tengo que apelar a gente con más horas de vuelo.

Ahora no estoy donde tengo las herramientas, pero seguro que probaremos todas esas alternativas.

Ojo que la imagen que te mostraba con el fallo es de la demo que subiste del nuevo control, no de mi control. Por eso seguí posteando en este hilo.

Gracias por la atención,

Carlos.

Post by **Antonio Linares** » Sun Sep 09, 2007 8:49 pm

Carlos,

Si, hemos visto que es con la demo que hemos publicado.

Sin embargo, aqui no _ de hacerlo fallar. Usamos un ordenador bastante rápido y Vista 32 bits.

Carlos Mora · Post by **Carlos Mora** » Mon Sep 10, 2007 6:45 am

Lo acabo de probar acá en el equipo del trabajo y te muestro la imagen con el defecto en el pintado. Tambien te pongo la configuración del equipo en la misma imagen.
Probablemente sea, tal como dijimos al principio, cuestion de velocidad, es decir, el defecto no aparece en equipos de alta perfomance. No es problema de la tarjeta de video, porque ayer lo probé en una nVidia de 256 Mb acelerada.

http://www.box.net/shared/hbo1loarvx

A ver si me pongo y pruebo lo que me dijiste.

Un saludo,
Carlos.

Post by **Antonio Linares** » Mon Sep 10, 2007 7:50 am

Usando el nuevo control OutLook2003 desde código y desde recursos:

Code: Select all

   REDEFINE OUTLOOK2003 oOutL2003 ID 110 OF oDlg ;
      PROMPTS "One", "Two", "Three" ;
      BITMAPS "mail.bmp", "calendar.bmp", "notes.bmp" ;
      DIALOGS "Page1", "Page2", "Page3"

   REDEFINE BUTTON ID 110 OF oOutL2003:aDialogs[ 1 ] ACTION MsgInfo( "Click" )
   ...