FiveTech Software tech support forums

Code: Select all  Expand view

@12.5, 1.0 BUTTON "open" ;

Code: Select all  Expand view

LOCAL oForm
...
MENU BuildMenu(oForm)
...
static function BuildMenu(oForm)
   ACTION oForm:End() // -> crash

Code: Select all  Expand view

PUBLIC oForm // work
...
MENU BuildMenu()
...
static function BuildMenu()
   ACTION oForm:End()

Code: Select all  Expand view

  1 24 "WindowsXP.Manifest"

how can i get rid of DOS BOX when start my GUI App ( Appsys )

Code: Select all  Expand view

PROCEDURE AppSys
RETURN

PROCEDURE main( filespec )
...
DEFINE FONT oFont NAME "ARIAL" SIZE 0, - 12
DEFINE WINDOW oForm ;
        TITLE " Click FiveWin Version" ;
        FROM nTop, nLeft TO nBottom, nRight PIXEL ;
        NOMAXIMIZE ;
        MENU BuildMenu()

@  0,  3 PROGRESS oProgress OF oForm SIZE 970, 20

@  0, - 1 GET oStatusBox VAR cStatusBox ;
        OF oForm ;
        MEMO ;
        SIZE 970, 150 ;
        FONT oFont ;
        PIXEL
// NO VSCROLL
oStatusBox:Move( 30, 20 )

@  0, - 1 GET oInBox VAR cInBox ;
        OF oForm ;
        MEMO ;
        SIZE 970, 250 ;
        FONT oFont ;
        PIXEL
// NO VSCROLL
oInBox:Move( 190, 20 )

@  0, - 1 GET oOutBox VAR cOutBox ;
        MEMO ;
        FONT oFont ;
        SIZE 970, 250 ;
        OF oForm ;
        PIXEL
// NO VSCROLL
oOutBox:Move( 450, 20 )

//   main_screen( filespec )
//   StartClick( filespec )

ACTIVATE WINDOW oForm CENTER

RETURN