Centrar Ventana en Ventana Principal
Posted: Thu Apr 30, 2009 9:43 am
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:
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
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