How to return an array value from xbrowse

Board index FiveWin for Harbour/xHarbour How to return an array value from xbrowse

Posts: 2706

Joined: Fri Oct 07, 2005 01:50 PM

How to return an array value from xbrowse
Posted: Fri Jul 16, 2010 09:13 PM

To All

I am strugling to return a row value from a simple array in xbrowse .. Just running into a roadblock converting the old listbox code .. Here is whe screen shot and code .. I need to return the value from the array element that has the xbrowse pointer.

Code (fw): Select all Collapse

aSOURCE := { "COMMERCIAL    ", "STATE         " }
ASCAN( aSOURCE, cNAME )

DEFINE DIALOG oDlg RESOURCE "SOURSLCT"         ;
       COLOR "W+/W"                            ;
       TITLE "Fuel Source Select"              ;

       REDEFINE xBROWSE oLBX                   ;
       ARRAY aSOURCE                           ;
       COLSIZES 250                            ;
       HEADERS "Fuel Select"                   ;
       ID 111 of oDLG                          ;
       AUTOSORT AUTOCOLS LINES CELL

    // struggling here //
     REDEFINE BUTTON oBTN1 ID 113  //              ;
    *    ACTION( XNAME := AEVAL( aSOURCE ), mSGINFO( XNAME) )
      /*
       ACTION ( zG_SOURCE := cNAME,            ;
                lOK2 := .T.,                   ;
                oOBJ:ReFresh(),                ;
                oDLG:END() )                   ;
    DEFAULT
    */

   REDEFINE BUTTON oBTN2 ID 112                ;
       ACTION ( lOK2 := .F., oDlg:END() )

   REDEFINE BUTTON oBTN3 ID 114                ;
       ACTION NIL

ACTIVATE DIALOG oDlg ;
         ON INIT( oLbx:SetFocus(), .F. )

IF lOK2 = .F.
   zG_SOURCE = SPACE(15)
   oOBJ:ReFresh()
ENDIF

SysReFresh()

RETURN( .T.)

Thanks
Rick Lipkin

fraxzi

Posts: 811

Joined: Tue May 06, 2008 04:28 AM

Re: How to return an array value from xbrowse
Posted: Sat Jul 17, 2010 02:50 AM

Dear Mr. Rick,

Try oLbx:aRow, an array of rows

Code (fw): Select all Collapse

     REDEFINE BUTTON oBTN1 ID 113;
                    ACTION MsgInfo( oLbx:aRow[1] + CRLF +  oLbx:aRow[2])

Regards,
Frances

Kind Regards,

Frances

Fivewin for xHarbour v18.07

xHarbour v1.2.3.x

BCC 7.3 + PellesC8 ( Resource Compiler only)

ADS 10.1 / MariaDB

Crystal Reports 8.5/9.23 DE

xMate v1.15

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: How to return an array value from xbrowse
Posted: Sat Jul 17, 2010 04:11 AM

Code (fw): Select all Collapse

REDEFINE BUTTON oBTN1 ID 113  ACTION( XNAME := oLbx:aRow, mSGINFO( XNAME) )

Regards

G. N. Rao.

Hyderabad, India

Rick Lipkin

Posts: 2706

Joined: Fri Oct 07, 2005 01:50 PM

Re: How to return an array value from xbrowse
Posted: Sat Jul 17, 2010 12:56 PM

Rao

Again THANKS ... right on target

Rick

FiveTech Support Forums

Continue the discussion