class MyBrowse from Xbrowse NOT RUN

[Silvio.Falconi]

I made a class from Xbrowse

Code: Select all | Expand

CLASS MyBrowse  FROM TXBrowse
   CLASSDATA lRegistered AS LOGICAL
    DATA aBtnBrow  AS ARRAY
    METHOD New (nRow, nCol, nWidth, nHeight, oWnd)
ENDCLASS

METHOD New(nRow, nCol, nWidth, nHeight, oWnd)  CLASS MyBrowse
   ::aBtnBrow:= array(5)
   return ::Super:New()

when I insert the xbrowse on a dialog it run ok





if I insert the xbrowse on Folder not run , the xbrowse is showed on dialog and not on folder




the sample:

Code: Select all | Expand

#include "fivewin.ch"
#include "constant.ch"

#define TXT_FOLDER1    " 1 folder "          
#define TXT_FOLDER2    " 2 folder "        
#define TXT_FOLDER3    " 3 folder "  
#define TXT_FOLDER4    " 4 folder "                  


Function test()
   local oDlg,oFld,Font,oBold
   local  nBottom   := 29
   local  nRight    := 60
   local  nWidth :=  Max( nRight * DLG_CHARPIX_W, 180 )
   local  nHeight := nBottom * DLG_CHARPIX_H
   local aArray := {}

 DEFINE DIALOG oDlg          ;
         SIZE nWidth, nHeight   PIXEL  ;
         TITLE "test con folder"

 @ 5, 3.5 FOLDER oFld ITEMS TXT_FOLDER1 , TXT_FOLDER2 ,TXT_FOLDER3 ,TXT_FOLDER4 ;
      SIZE oDlg:nWidth-242,oDlg:nbottom-240 PIXEL OF oDlg;
      OPTION 1

 @ 5, 2 XBROWSE  oLbx OF oFld:aDialogs[2] ;
         SIZE 150,105 PIXEL  CLASS MyBrowse()

       oLbx:SetArray(aArray)
       oLbx:CreateFromCode()

ACTIVATE DIALOG oDlg center
RETURN NIL



//-------------------------------------------------//
CLASS MyBrowse  FROM TXBrowse
   CLASSDATA lRegistered AS LOGICAL

    DATA aBtnBrow  AS ARRAY


    METHOD New (nRow, nCol, nWidth, nHeight, oWnd)


ENDCLASS

METHOD New(nRow, nCol, nWidth, nHeight, oWnd)  CLASS MyBrowse
   ::aBtnBrow:= array(5)
   return ::Super:New()

I tried also to insert

Code: Select all | Expand

@ 5, 2 XBROWSE  oLbx OF oFld:aDialogs[2] ;
         SIZE 150,105 PIXEL  CLASS MyBrowse():New (, , , , oFld:aDialogs[2])