FiveTech Support Forums

#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

#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 - <!-- e --><a href="mailto:kapiabafwh@gmail.com">kapiabafwh@gmail.com</a><!-- e -->