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 ) )
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