Bug en 11.11 30/septiembre (SOLUCIONADO)

[fgondi]

Con este sencillo código se puede ver los siguiente problemas (sólo pasa con la versión del 30/septiembre, la anterior del 28/septiembre funciona bien):

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()
local oWnd

Define Window oWnd Title "Principal" Mdi
oWnd:bInit     := {|| ps_Child(oWnd) }
Activate Window oWnd MAXIMIZED Valid MsgYesNo('Desea salir')
return nil


static proc ps_Child( oWnd )
local oChild
Define Window oChild MdiChild Title 'Child' of oWnd

Activate Window oChild On Init ps_Dialog(oChild)
return


static proc ps_Dialog( oChild )
local oDlg, oBrush, aGet[4], aVar[4]

oBrush := tbrush():New(, nRgb(224, 236, 255) )
DEFINE DIALOG oDlg Resource "Dialogo" OF oChild TRANSPARENT Brush oBrush

aVar[1] := space(50)
Redefine Get aGet[1] Var aVar[1] Id 102 Update Message 'Indique el código del usuario' Of oDlg
aVar[2] := space(50)
Redefine Get aGet[2] Var aVar[2] Id 103 Update Message 'Indique el nombre del usuario' Of oDlg

aVar[3] := space(50)
Redefine Get aGet[3] Var aVar[3] Id 104 Update Message 'Indique el código de la empresa' Of oDlg
aVar[4] := space(50)
Redefine Get aGet[4] Var aVar[4] Id 105 Update Message 'Indique el nombre de la empresa' Of oDlg

ACTIVATE DIALOG oDlg NoWait On Init ps_Incrus( oChild, oDlg ) Valid oChild:End()  
return



static proc ps_Incrus(oChild, oDlg)
local nWidth, nHeight

oDlg:Move(0, 0,,, .T.)

nWidth  := oDlg:nWidth + 7
nHeight := oDlg:nHeight + 33
oChild:SetSize(nWidth, nHeight, .T.)
oChild:Center()
return
 

Siendo el rc:

Code: Select all  Expand view  RUN

DIALOGO DIALOG DISCARDABLE 0, 0, 305, 80
STYLE WS_CHILD|WS_VISIBLE
FONT 8, "MS Sans Serif"
{
  CONTROL "123", 102, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 86, 20, 39, 12
  CONTROL "123456", 103, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 133, 20, 146, 12
  CONTROL "12", 104, "Edit", WS_BORDER|WS_TABSTOP, 86, 48, 32, 12
  CONTROL "1", 105, "Edit", WS_BORDER|WS_TABSTOP, 133, 48, 105, 12
  CONTROL "Usuario:", -1, "Static", SS_CENTERIMAGE|WS_GROUP, 47, 22, 31, 12
  CONTROL "Empresa:", -1, "Static", SS_CENTERIMAGE|WS_GROUP, 47, 50, 31, 12
}
 

1.- Al cargar la ventana se llega a ver el dialogo sin definir los objetos, osea con el fondo gris, los valores por defecto, etc, etc. Algo que queda bastante feo.
En el ejemplo que he adjuntado, puede que no se llegue a apreciar, pero si el cuadro de dialog tiene mas controles (get, folder, etc) se puede llegar a verse el dialogo pelado perfectamente.

2.- Una vez activa la ventana se queda posicionado en el primer get (asi esta definido en el tabstop) pero no permite escribir en él.

3.- Y lo mas importante. Si se pulsta intro para cambiar de get. se borra toda la ventana.

[Antonio Linares]

Fernando,

Este pequeño cambio (añadido "TMDICHILD") es necesario en la Clase TGet Metodo GetDlgCode():

Code: Select all  Expand view  RUN

METHOD GetDlgCode( nLastKey ) CLASS TGet

   if Len( ::oWnd:aControls ) == 1
      return DLGC_WANTALLKEYS
   endif

   ::oWnd:nLastKey = nLastKey

   if ::oWnd:IsKindOf( "TXBROWSE" )
      return DLGC_WANTALLKEYS
   else
      if ::oWnd:oWnd != nil .and. ;
         ::oWnd:oWnd:ClassName() $ "TFOLDER,TFOLDEREX,TMDICHILD"
         return DLGC_WANTALLKEYS
      endif
   endif

return nil
 

[fgondi]

Antonio,

Muchas gracias,

ahora si se pulsa intro ya no desaparece la ventana.

También tengo dialogos incrustados en ventanas no mdi (twindow) y dialogos incrustados dentro de otros dialogos (tdialog).
¿Sería correcto incluirlos también?

Code: Select all  Expand view  RUN

::oWnd:oWnd:ClassName() $ "TFOLDER,TFOLDEREX,TMDICHILD,TWINDOW,TDIALOG"

Lo he probado y funciona (al pulsar intro no desaparece la ventana), pero no se si esto puede ocasionar otros problemas.

Estos problemas siguen estando

1.- Al cargar la ventana se llega a ver el dialogo sin definir los objetos, osea con el fondo gris, los valores por defecto, etc, etc. Algo que queda bastante feo.
En el ejemplo que he adjuntado, puede que no se llegue a apreciar, pero si el cuadro de dialog tiene mas controles (get, folder, etc) se puede llegar a verse el dialogo pelado perfectamente.

2.- Una vez activa la ventana se queda posicionado en el primer get (asi esta definido en el tabstop) pero no permite escribir en él. tengo pulsar en otro get y volver a este

[Antonio Linares]

Fernando,

Te envio nuevas librerias para MSVC 2010 para que por favor las pruebes y me confirmes si ese efecto queda corregido, gracias!

[fgondi]

Antonio.

Con Harbour y Microsoft sólo tengo pruebas.
Poco a poco voy migrando

Las aplicaciones las tengo realizadas con xHarbour y Bcc582.

Ya he visto que estas subiendo nueva versión 11.11. Espero a descargarla y probar.

[fgondi]

1.- Al cargar la ventana se llega a ver el dialogo sin definir los objetos, osea con el fondo gris, los valores por defecto, etc, etc. Algo que queda bastante feo.
En el ejemplo que he adjuntado, puede que no se llegue a apreciar, pero si el cuadro de dialog tiene mas controles (get, folder, etc) se puede llegar a verse el dialogo pelado perfectamente.

2.- Una vez activa la ventana se queda posicionado en el primer get (asi esta definido en el tabstop) pero no permite escribir en él.

Tanto en xhabour+Bcc582 como en Harbour+MSVC 2010 sigo teniendo los problemas.

El segundo (no deja escribir en el get) se puede probar con el ejemplo del primer post.

[fgondi]

1.- Al cargar la ventana se llega a ver el dialogo sin definir los objetos, osea con el fondo gris, los valores por defecto, etc, etc. Algo que queda bastante feo.
En el ejemplo que he adjuntado, puede que no se llegue a apreciar, pero si el cuadro de dialog tiene mas controles (get, folder, etc) se puede llegar a verse el dialogo pelado perfectamente.

Mientras carga la ventana esto es lo que se ve:

Uploaded with ImageShack.us

Al final este es el resultado:

Uploaded with ImageShack.us

Esto sólo sucede desde que uso la versión 11.11
Anteriormente, o no mostraba en pantalla la primer ventana o si la mostraba cargaba mas rapido y no se podia llegar a apreciar.

[Antonio Linares]

Fernando,

Has probado con las librerias FiveH32.lib y FiveHC32.lib que te he enviado ?

[fgondi]

Antonio,

Para el problema 1 (dibujo de la ventana).
Las librerias son para MSVC y todavía no tengo migrada ninguna aplicación.
Necesitaría las librerias para xHarbour. FiveHX.lib y FiveHC.lib
Si he descargado la versión última de fecha 4/diciembre/2011 y sigo con los mismo problemas.

Para el problema 2 (escribir en el primer get)
He probado con las librerias para xHarbour+BCC582 y con las librerías para Harbour+MSVC
Siendo la librería FWH 11.11 de fecha 4/diciembre/2011 y las que me enviastes.

Otro problema:
Si en el ejemplo inicial se incluye un botón IDCANCEL:

Code: Select all  Expand view  RUN

DEFINE DIALOG oDlg Resource "Dialogo" OF oChild TRANSPARENT Brush oBrush
...
ReDefine Button Id 2 Of oDlg Action oDlg:End()
ACTIVATE DIALOG oDlg NoWait On Init ps_Incrus( oChild, oDlg ) Valid oChild:End()
 

con RC:

Code: Select all  Expand view  RUN

 CONTROL "Pregunta", IDCANCEL, "Button", WS_TABSTOP, 128, 72, 49, 24
 

Después de pulsar en el botón y decir que no se quiere cerrar (.F.) siempre cierra el dialogo, pero no cierra la mdi.

Da igual que se le diga que haga el botón:

Code: Select all  Expand view  RUN

Action oDlg:End()
Action MsgYesNo(...)
Action oChild:End()
 

Y da igual lo que se diga al Valid del dialogo

Code: Select all  Expand view  RUN

Valid .F.
Valid oChild:End()
Valid MsgYesNo(...)
 

[Antonio Linares]

Fernando,

Te acabo de enviar el FWH más reciente para xHarbour

Debería solucionarle el pintado inicial del diálogo. Vamos a repasar ahora el VALID...

gracias por tus pruebas

[Antonio Linares]

Aqui funciona correctamente modificando tu código inicial en el RC y con el REDEFINE que me has indicado

El botón cierra ambos dialogo y mdichild

[fgondi]

Pruebo con las librerias que me has mandado y te digo.


Si en el msgyesno(...) pulsas en "si" cierra los dos corectamente.

Pero si pulsas en "no" cierra el dialogo.

[Antonio Linares]

Probando...

[fgondi]

Antonio,

lo siento, el pintado sigue igual.

De todas formas me has enviado la libreria FiveHX
pero también has incluido la libreria Fivehcm.lib en lugar de la FiveHC.lib

Tambien he probado en la versión 11.10 (que el pintado va bien) incluyendo la librería que me has enviado (FiveHX.lib) (Ya sé que puede ser una barbaridad, pero por probar?)
y también ocurre el problema del pintado.

Tambien he probado en la versión 11.11 del 28/noviembre/2011 (que el pintado va bien) incluyendo la librería qu me has enviado (FiveHX.lib) y también ocurre el problema del pintado.

No se si esta pruebas os pueden servir de algo, pero por si acaso intento probar todo lo que se me ocurre.

[Antonio Linares]

Fernando,

Solucionado lo del VALID. Faltaba un "return .F.", te envio las librerias

Y creo que en las nuevas que te envio ahora ya debería estar solucionado el pintado