FiveTech Support Forums

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()

#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()

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