topic-26124

Posts: 1048

Joined: Mon Oct 24, 2005 09:54 AM

XBROWSE bug and question
Posted: Fri Apr 19, 2013 12:07 PM

In the past this code was correct:

REDEFINE COLUMN XBROWSE oList OF oDlg ID 102 MESSAGE "Auswahlliste" ;
 ON CHANGE msginfo("Change")
oList:Setarray(aArray)

In 13.3 only this code is correct (with clausula ARRAY). If i use the above code, the ON CHANGE are NOT transformed in bChange and not executed!? If i use obrw:bChange := {||....} it is ok.

Code (fw): Select all Collapse

REDEFINE COLUMN XBROWSE oList OF oDlg ID 102 MESSAGE "Auswahlliste"  ARRAY aArray;
 ON CHANGE msginfo("Change")

Regards,
Günther
---------------------------------
office@byte-one.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: XBROWSE bug and question
Posted: Fri Apr 19, 2013 04:52 PM

Günther,

I just compiled fine this example (it crashes on runtime, obviously) with 13.03

Code (fw): Select all Collapse

#include "FiveWin.ch"
#include "xbrowse.ch"

function Main()

   local oList, oDlg

   REDEFINE COLUMN XBROWSE oList OF oDlg ID 102 MESSAGE "Auswahlliste" ;
      ON CHANGE msginfo("Change")

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

byte-one

Posts: 1048

Joined: Mon Oct 24, 2005 09:54 AM

Re: XBROWSE bug and question
Posted: Fri Apr 19, 2013 05:48 PM

Antonio, please add this:

Code (fw): Select all Collapse

local aArray := {"A","b"}
...
...
oList:Setarray(aArray)

It seems to be a preprocessor-problem. If i use the source from 12.4 and the xbrowse-header from 13.03 the same bug is present.

Regards,
Günther
---------------------------------
office@byte-one.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: XBROWSE bug and question
Posted: Fri Apr 19, 2013 05:59 PM

Günther,

This keeps compiling fine:

Code (fw): Select all Collapse

#include "FiveWin.ch"
#include "xbrowse.ch"

function Main()

   local oList, oDlg
   local aArray := {"A","b"}

   REDEFINE COLUMN XBROWSE oList OF oDlg ID 102 MESSAGE "Auswahlliste" ;
      ON CHANGE msginfo("Change")
   oList:SetArray( aArray )   

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

byte-one

Posts: 1048

Joined: Mon Oct 24, 2005 09:54 AM

Re: XBROWSE bug and question
Posted: Fri Apr 19, 2013 06:14 PM

Antonio, compiling is OK without Errors in both cases!
All XBROWSES with the definition from the array in clausula ARRAY are functioning. XBROWSES there are with oBrw:setarray(aArray) assigning the array, the ON CHANGE clausula not transfered to oBrw:bChange(). Valtype() from oBrw:bChange() is in this case "U"

Regards,
Günther
---------------------------------
office@byte-one.com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: XBROWSE bug and question
Posted: Sat Apr 20, 2013 12:50 AM

Mr Günther

You are right. bChange is assigned now only when DATASOURCE is specified as a part of the command.

We shall correct this in the next version.

For now, you may please add the line:
oBrw:bChange := bChange
after the line

Code (fw): Select all Collapse

   XbrwSetDataSource( oBrw, cDataSrc, lAddCols, lAutoSort, ;
      If( aCols == nil, nil, aCols[ 1 ] ), aRows, aHeaders, bChange  )

in the function XBrowseNew(....) in xbrowse.prg.

Anyway we recommend specifying the datasource in the command itself.

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

Continue the discussion