Este es un prototipo de la nueva Clase TOutLook2003 que se incluirá en FWH 7.09 este mes:
Antonio:
Muchas gracias por seguir mejorando FW. Es genial!!!. ¿Se podrán poner opciones dentro, como se hacÃa con la clase anterior?.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour FWH - Nueva Clase TOutLook2003
Saludos / Regards,
FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
Moises,
Gracias.
SÃ, funciona como un folder:
Se pueden poner diálogos diseñados con el editor de recursos 
Una primera demo para probar. Fijaros en el código tan simple 
http://rapidshare.com/files/54219595/demo.zip.html
DEFINE OUTLOOK2003 oOutLook2003 OF oWnd ;
PROMPTS "Mail", "Calendar", "Contacts", "" ;
BITMAPS "mail.bmp", "calendar.bmp", "notes.bmp"http://rapidshare.com/files/54219595/demo.zip.html
Muy buena, veo que es muy fácil migrar desde la clase anterior. Y el pintado es muy rápido. Enhorabuena!!!
Saludos / Regards,
FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
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
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
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
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...
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.
Carlos,
Una posible pista: Define este método en tu control y veamos si se llama:
METHOD Colors( hDC ) INLINE MsgBeep()
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:
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:
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 nilAntonio 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.
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
Carlos,
Si, hemos visto que es con la demo que hemos publicado.
Sin embargo, aqui no somos capaces de hacerlo fallar. Usamos un ordenador bastante rápido y Vista 32 bits.
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.
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
Usando el nuevo control OutLook2003 desde código y desde recursos:
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" )
...