FWH 25.12 Centrar xBrowse() con Setup

[Cgallegoa]

Saludos,

Hasta FWH versión 24.09, el siguiente ejemplo redimensionaba xBrowse() y lo pintaba centrado en la pantalla, pero con FWH 25.12 sale corrido hacia la derecha de la pantalla, qué cambio, y cómo lo centro ?

Gracias por su ayuda

#include "FiveWin.ch"

Code: Select all | Expand

Function Inicio()
   LOCAL aData
   aData := {"contenido de regitro uno", "contenido de registro dos"}
   xBrowse( aData, "Centrando xBrowse() con Setup ", , ;
	                 {|oBrw| oBrw:oWnd:bInit := { |oDlg| oDlg:SetSize(500,220,.T.) }, oBrw:Refresh()} )
return nil

Abrazos,

[karinha]

Esto?

Code: Select all | Expand

#include "FiveWin.ch"

#define DT_TOP              0
#define DT_LEFT             0
#define DT_CENTER           1
#define DT_RIGHT            2
#define DT_VCENTER          4
#define DT_BOTTOM           8
#define DT_WORDBREAK       16
#define DT_SINGLELINE      32

FUNCTION Main()

   LOCAL aData, oBrw

   aData := {"contenido de regitro uno", "contenido de registro dos"}

   /*
   xBrowse( aData, "Centrando xBrowse() con Setup ", , ;
      {|oBrw| oBrw:oWnd:bInit := { |oDlg| oDlg:SetSize(500,220,.T.) }, oBrw:Refresh()} )
   */

   /*
   xBrowse( aData, "Centrando xBrowse() con Setup ", , ;
      {|oBrw| oBrw:oWnd:bInit := { |oDlg| oDlg:SetSize( oDlg:nWidth , oDlg:nHeight , DT_CENTER, .T.) }, oBrw:Refresh()} )
   */

   xBrowse( aData, "Centrando xBrowse() con Setup ", , ;
      {|oBrw| oBrw:oWnd:bInit := { |oDlg| oDlg:SetSize( oDlg:nWidth, oDlg:nHeight, .T.) }, oBrw:Refresh()} )

RETURN NIL

Regards, saludos.

[Cgallegoa]

Joao, gracias por tu respuesta, pero no funciona .
No centra el diálogo contenedor del xBrowse; lo pinta a la derecha de la pantalla. Tu propuesta está tomando las dimensiones originales cuando se construye el diálogo que va a contener el objeto oBrw, pero si le aumentas algo, lo desubica del centro. En la versión FWH 24.09 y anteriores centraba perfectamente, independientemente del SetSize(). Si alguien tiene la versión FWH 25.12, por favor haga esta prueba para ver si le sale centrado o no. Si tienes una versión posterior, por favor prueba la siguiente variación de tu propuesta y dime cómo sale.

Code: Select all | Expand

xBrowse( aData, "Centrando xBrowse() con Setup ", , ;
      {|oBrw| oBrw:oWnd:bInit := { |oDlg| oDlg:SetSize( oDlg:nWidth + 10, oDlg:nHeight + 30, .T.) }, oBrw:Refresh()} )

[karinha]

¿Qué compiladores estás usando? Si funciona con FWH2603, tu versión también debería funcionar.

[Cgallegoa]

Probé con Borland 7.7 32 bits, Borland/CLang 64 bits, y MSVS 32 y 64 bits, y en todos da el mismo problema. No centra si se aplica alguna medida diferente a oDlg:nWidth, oDlg:nHeight. Basta que pongas oDlg:nWidth + 1, oDlg:nHeight + 1 y ya descentra la ventana. Acabo de probar con la versión FWH 26.03 Betatester, y pasa lo mismo, no centra.

[Antonio Linares]

Intenta con:

{ |oDlg| oDlg:SetSize(500,220,.T.) }, oDlg:Center(), oBrw:Refresh()}

[Cgallegoa]

Querido Antonio, probado con FWH 26.03 Betatester y FWH 25.12, Borland y MSVC, y en todos sale desplazado hacia la derecha de la pantalla. No centra bien.

[Antonio Linares]

Prueba a pasarle la ventana padre o la ventana sobre la que quieras centrar:

oDlg:Center( oDlg:oWnd )

ó

oDlg:Center( oWndMain )

[karinha]

Prueba a pasarle la ventana padre o la ventana sobre la que quieras centrar:

oDlg:Center( oDlg:oWnd )

ó

oDlg:Center( oWndMain )

No funciona Maestro.

Regards.

[Enrico Maria Giordano]

The problem is in xbrowser.prg. The last code in FitSizes() is

Code: Select all | Expand

   if w != nil .and. h != nil
      oBrw:oWnd:SetSize( w, h )
   endif

It is not possible to do anything after it.