Maximizar un DIALOG
Posted: Thu Feb 16, 2006 5:34 pm
Amigos,
TEngo este codigo y necesito que el dialogo ODLG se muestre maximizado en pantalla, como se lo hace? gracias.
TEngo este codigo y necesito que el dialogo ODLG se muestre maximizado en pantalla, como se lo hace? gracias.
Code: Select all
FUNCTION Autorizado()
LOCAL lValue
LOCAL oDlg
LOCAL oDatos:= Array( 2 )
LOCAL vDatos:= Array( 2 )
oDlg:= DlgAutorizado( oDatos, vDatos )
ACTIVATE DIALOG oDlg
RETURN ( lValue )
//------------------------------------------------------------------------------
FUNCTION DlgAutorizado( oDatos, vDatos )
LOCAL oDlg
LOCAL oBmp:= Array( 3 )
DEFINE DIALOG oDlg resource "dlg_Auto"
// Bmp BARRA
REDEFINE bitmap oBmp[ 1 ] ID 500;
resource "BMP_BARRA";
OF oDlg
// Bmp Logo
REDEFINE bitmap oBmp[ 2 ] ID 501;
resource "BMP_BARRA";
OF oDlg
// Bmp Vertical
REDEFINE bitmap oBmp[ 3 ] ID 502;
resource "BMP_BARRA";
OF oDlg
REDEFINE BTNGET oDatos[ 2 ] VAR vDatos[ 2 ];
ID 101 OF oDlg
RETURN ( oDlg )