ACTIVATE DIALOG oDlg AS MDICHILD

[Silvio.Falconi]

How I can maximized the dialog ?

[horacio]

On Init( oDlg : Maximize() )

Saludos

[Silvio.Falconi]

On Init( oDlg : Maximize() )

Saludos

ok but there is some error because when I maximize the dialog it is over the width of the main window look this

Code: Select all  Expand view

#include "fivewin.ch"

    #define AS_MDICHILD  1
    #define AS_DIALOG    2


    //----------------------------------------------------------------------------//

    function Main()

       local oWnd, oBar, oMenu

       SetGetColorFocus()

       DEFINE WINDOW oWnd MDI TITLE "test"  VSCROLL HSCROLL
       DEFINE BUTTONBAR oBar OF oWnd SIZE 100,32 2007

       DEFINE BUTTON OF oBar PROMPT "test" CENTER ACTION test()

       ACTIVATE WINDOW oWnd

    return nil

    //----------------------------------------------------------------------------//

    static function test()

       local oDlg, oBar, oFont
       DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-14
       DEFINE DIALOG oDlg  FONT oFont TITLE "Test Mdi" BRUSH oBrush

       ACTIVATE DIALOG oDlg AS MDICHILD ;
             ON INIT ( oDlg :Maximize())
    return oDlg

 

[karinha]

Code: Select all  Expand view

#Include "FiveWin.ch"

#Define AS_MDICHILD  1
#Define AS_DIALOG    2

STATIC oWnd

FUNCTION Main()

   LOCAL oBar, oMenu

   SkinButtons()
   SetGetColorFocus()

   DEFINE WINDOW oWnd MDI TITLE "test"  VSCROLL HSCROLL

   DEFINE BUTTONBAR oBar OF oWnd SIZE 100, 32 2007

   DEFINE BUTTON OF oBar PROMPT "test" CENTER ACTION test()

   ACTIVATE WINDOW oWnd CENTERED

RETURN NIL

STATIC FUNCTION test()

   LOCAL oDlg, oBar, oFont, oBrush

   DEFINE BRUSH oBrush FILE "..\bitmaps\sea.bmp" RESIZE
   DEFINE FONT oFont NAME "Segoe UI" SIZE 0, - 14

   DEFINE DIALOG oDlg  FONT oFont TITLE "Test Mdi" BRUSH oBrush

   ACTIVATE DIALOG oDlg CENTERED AS MDICHILD ON INIT( oDlg:Maximize() )

   oBrush:End()
   oFont:End()

RETURN NIL

// FIN / END - kapiabafwh@gmail.com
 

Regards, saludos.

[Silvio.Falconi]

Code: Select all  Expand view

#Include "FiveWin.ch"

#Define AS_MDICHILD  1
#Define AS_DIALOG    2

STATIC oWnd

FUNCTION Main()

   LOCAL oBar, oMenu

   SkinButtons()
   SetGetColorFocus()

   DEFINE WINDOW oWnd MDI TITLE "test"  VSCROLL HSCROLL

   DEFINE BUTTONBAR oBar OF oWnd SIZE 100, 32 2007

   DEFINE BUTTON OF oBar PROMPT "test" CENTER ACTION test()

   ACTIVATE WINDOW oWnd CENTERED

RETURN NIL

STATIC FUNCTION test()

   LOCAL oDlg, oBar, oFont, oBrush

   DEFINE BRUSH oBrush FILE "..\bitmaps\sea.bmp" RESIZE
   DEFINE FONT oFont NAME "Segoe UI" SIZE 0, - 14

   DEFINE DIALOG oDlg  FONT oFont TITLE "Test Mdi" BRUSH oBrush

   ACTIVATE DIALOG oDlg CENTERED AS MDICHILD ON INIT( oDlg:Maximize() )

   oBrush:End()
   oFont:End()

RETURN NIL

// FIN / END - kapiabafwh@gmail.com
 

Regards, saludos.

pls
viewtopic.php?f=3&t=41750&start=0
I tried odlg:maximize() but not run ok

[nageswaragunupudi]

oDlg:bMdiSetup := { |oMdiChild| oMdiChild:Maximize() }
ACTIVATE DIALOG AS MDICHILD