FiveTech Support Forums

LOCAL oFont, aRect, lRet := .T.

   ACTIVATE WINDOW oMain ON INIT ... ;
      VALID ( lRet := DoEndProc(oMain,@aRect), lRet ) CENTER

   cRow     := VAR2CHAR(aRect[1])
   cCol     := VAR2CHAR(aRect[2])
   cHeight  := VAR2CHAR(aRect[3])
   cWidth   := VAR2CHAR(aRect[4])
   // save to INI
   LoadConfig( @cRow, @cCol, @cWidth, @cHeight, ... )

STATIC FUNCTION DoEndProc(oMain,aRect)
   aRect := oMain:GetRect()
   FWLOG aRect
RETURN .T.

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL aArray := { 1, 2, 3, 4 }

    TEST1( aArray )

    ? aArray

    TEST2( @aArray )

    ? aArray

    RETURN NIL


STATIC FUNCTION TEST1( aArray )

    aArray = { "A", "B" } // This is a local variable so the assign is lost at the end of the function

    RETURN NIL


STATIC FUNCTION TEST2( aArray )

    aArray = { "C", "D" } // This is a variable passed by reference so the assign is made to the original array variable

    RETURN NIL

#include "Fivewin.ch"
PROCEDURE Main()
LOCAL oMain, aRect := {0,0,0,0}, lRet := .T.
LOCAL nHeight   := 1024
LOCAL nWidth    := 1280
LOCAL nTop      := 0
LOCAL nLeft     := 0

   DEFINE WINDOW oMain FROM 0,0 TO nHeight, nWidth PIXEL TITLE "FiveWin TGrid Listview Demo "

   ACTIVATE WINDOW oMain  VALID ( lRet := DoEndProco(oMain, aRect), lRet ) CENTER

   MsgInfo( hb_valToExp(aRect) )

RETURN

STATIC FUNCTION DoEndProco(oMain,aRect)
   aRect := oMain:GetRect()
RETURN .T.

STATIC FUNCTION DoEndProco(oMain,aRect)
   aRect[ 1 ] := oMain:GetRect()[ 1 ]
   aRect[ 2 ] := oMain:GetRect()[ 2 ]
   aRect[ 3 ] := oMain:GetRect()[ 3 ]
   aRect[ 4 ] := oMain:GetRect()[ 4 ]
RETURN .T.

 VALID ( lRet := DoEndProc(oMain,aRect), lRet ) CENTER

 VALID ( lRet := DoEndProc(oMain,@aRect), lRet ) CENTER