HMGforum.com

Code: Select all

function Main()

  local nRow, nCol, nWidth, nHeight

  nRow:=0
  nCol:=0
  nWidth:=600
  nHeight:=400
 
  Fun_1( nRow, nCol, nWidth, nHeight )

Return Nil

//---------
function Fun_1 ( nRow0, nCol0, nWidth0, nHeight0 )

  define window Win_1 ;
    at nRow0, nCol0 ;
    width nWidth0 ;
    height nHeight0 ;
    MAIN ;
    on init { || Fun_2(), Win_1.Release }

    // ... here - other controls definition (if needed just here)

  end window

  Win_1.Center
  Win_1.Activate

Return Nil

//---------
function Fun_2 ( )

  // ...when main window activates - other work will starts from here...
  // for example: you'll can define other conrols of this window here -
  // depending on _actual_ sizes of window
  // (you already know them at this moment!)

Return Nil