FiveTech Software tech support forums

Amigos,

TEngo este codigo y necesito que el dialogo ODLG se muestre maximizado en pantalla, como se lo hace? gracias.

Code: Select all  Expand view

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 )

Gustavo,

En el recurso usa el estilo "Thick Frame" en el diálogo, y en el ACTIVATE:

Code: Select all  Expand view

ACTIVATE DIALOG oDlg ;
   ON INIT oDlg:Maximize()