Centrar Ventana en Ventana Principal

[colthop]

Hola a todos:

Estoy intentando centrar una ventana en la principal pero no se que hago mal que no me la centra.

Yo la intento crear de la siguiente manera:

Code: Select all

DEFINE WINDOW oVentPrinc MDI FROM 0, 0 TO 24,80;               // Se define la ventana principal
  TITLE  "CyEWin Contabilidad y Estimaciones en WINDOWS" ;      //T¡tulo de la ventana
  COLORS RGB (0,0,200), RGB (255,255,255);
  ICON "cyewin.ico";
  MENU PreparaMenu()

  SET FONT OF oVentPrinc TO oFont
  SET MESSAGE OF oVentPrinc TO "CYEWIN Contabilidad y Estimaciones en WINDOWS - Colt Hop ED., S.L." KEYBOARD CLOCK DATE 2007

  DEFINE WINDOW oDlgw MDICHILD OF oVentPrinc PIXEL FROM 0, 0 TO 600*ProPor,800*ProPor TITLE "Ventana" COLOR escri01, fondo01 NOICONICE NOMAXIMICE NOCAPTION

  ACTIVATE WINDOW oDlgw NORMAL
  quitmenu()
*  datomenu()
*  catotdia()
  gestmenu()
  oDlgw:Refresh()
  oDlgw:Center(oVentPrinc:oWndClient())
  oDlgw:SetFocus()

ACTIVATE WINDOW oVentPrinc MAXIMIZED ON INIT gestusua() VALID salida2() ;
ON PAINT ( BmpTiled( hDC, oVentPrinc, oBmpTiled ), PalBmpDraw( hDC, ( oVentPrinc:nHeight() / 2 ) - ( oBmp:nHeight() / 2 ) - 50, ( oVentPrinc:nWidth() / 2 ) - ( oBmp:nWidth() / 2 ), oBmp:hBitmap ) )
 

Pero me sale asi:



Y la ventana completa es asi:



Alguien me puede decir porque me pasa esto y no la centa en la ventana.

Un saludo y Gracias de antemano

Carlos

[ADBLANCO]

ponle en el activate la clausula 'CENTERED'

[jrestojeda]

Para centrar ventanas hijas en un entorno MDI debes crear una función que lo haga...
Y ponerla en el ON INIT.
La cláusula CENTERED es soportada por los diálogos, no por las WINDOW.
Espero te sirva la idea.