FiveTech Support Forums

@ 10,20 GET oGet VAR cVar PICTURE "@!" DESIGN SIZE 20,60 PIXEL OF oDlgEdit UPDATE

    #include "FiveWin.ch"

    static oWnd
    function Main()
    local oDlg

        DEFINE WINDOW oWnd      ;
          MDI                   ;

       ACTIVATE WINDOW oWnd MAXIMIZED;
                ON INIT ExibJanela()

    RETURN NIL

    FUNCTION EXIBJANELA()

       DEFINE DIALOG oDlg TITLE "Test" OF OWND

       ACTIVATE DIALOG oDlg CENTERED ;
          ON INIT (PlaceControls( oDlg ))

    return nil

    function PlaceControls( oDlg )

       local oGet, cVar := "Hello"

       @ 20, 20 GET oGet VAR cVar PICTURE "@!" DESIGN SIZE 80, 25 PIXEL OF oDlg UPDATE

    return nil