FiveTech Software tech support forums

Code: Select all

#include "FiveWin.ch"
function Main()
   LOCAL oWnd, oBar

   DEFINE WINDOW oWnd MDI

      DEFINE BUTTONBAR oBar 3DLOOK BUTTONSIZE 40, 40 OF oWnd

      DEFINE BUTTON RESOURCE "END_END" OF oBar  ;
             TOOLTIP "Uscita dal sistema" ;
             ACTION oWnd:END()

      DEFINE BUTTON RESOURCE "Search" OF oBar  ;
             TOOLTIP "TestTree" ;
             ACTION TestTree()   // this is not good    :-(

      ACTIVATE WINDOW oWnd MAXIMIZED ;
            ON INIT ( TestTree(),;    // This is good
                           MsgInfo( "Good  :-)", "TestTree()" ),;
                           MsgInfo( "No Good :-( " + CRLF +;
                                         "if press the 2° button", "TestTree()" ) )

      RETURN Nil

//------------------------------------------------------------------------------
// From here is the standard treeview sample
STATIC FUNCTION TestTree()

   local oDlg, oBtn1, oBtn2
   local oTree, oBmp1, oBmp2, oImageList
   local oFont

   DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -12

   DEFINE DIALOG oDlg NAME "ARBOL" FONT oFont

   oImageList = TImageList():New()

   oBmp1 = TBitmap():Define( , "..\bitmaps\16x16\folder.bmp" , oDlg )
   oBmp2 = TBitmap():Define( , "..\bitmaps\16x16\fldMask.bmp", oDlg )

   oImageList:Add( oBmp1, oBmp2 )

   oTree := TTreeView():Redefine( 100, oDlg  )

   oTree:bLDblClick := { | nRow, nCol, nKeyFlags | MyClick( nRow, nCol, oTree ) }

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT FillTree( oTree, oImageList )

   oImageList:End()
   oBmp1:End()
   oBmp2:End()


return nIL

//------------------------------------------------------------------------------------------//

function MyClick( nRow, nCol, oTree )

   local oItem

   oItem := oTree:HitTest( nRow, nCol )

   if oItem != NIL
      MsgInfo( oItem:cPrompt )
   else
      MsgInfo( "Not found!" )
   endif

return NIL

//----------------------------------------------------------------------------//

function FillTree( oTree, oImageList )

   local oItem1, oItem2, n

   oTree:SetImageList( oImageList )

   oItem1 := oTree:Add( "Hello world!" )

   oItem1:Add( "xBase & OOPS" )

   oItem2 := oItem1:Add( "Clipper 5" )
    oItem2:Add( "Another" )
   oItem2:Add( "item" )

   oTree:Add( "FiveWin power!" )

   oItem2 := oTree:Add( Time() )
    oItem2:Add( Time() )

    for n = 1 to 50
       oItem2:Add( Str( n ) )
   next

return nil

Code: Select all

in New() method I changed:
    nClrBack := oWnd:nClrPane,; // GetSysColor( COLOR_WINDOW ),;
    // I have tested in default mode but do not work!
    // and in the Add Method I have added the management cCargo
//----------------------------------------------------------------------------//
// Aggiunto cCargo (gestito dal TTVItem ma qui non riportato) Ugo Garombo 24/11/2004
METHOD Add( cPrompt, nImage, cCargo ) CLASS TTreeView

   local oItem

   oItem := TTVItem():New( TVInsertItem( ::hWnd, cPrompt, , nImage ), Self, cCargo, cPrompt, nImage )
   // Verificare ... Linares aveva tolto i rem nelle 2 righe sotto
   // also I have removed the next two lines because it are already
   // present in TTvItem New() Method:
   // oItem:cPrompt := cPrompt
   // oItem:nImage  := nImage

   AAdd( ::aItems, oItem )

return oItem

Code: Select all

   METHOD ARefresh()           // added by Ugo Garombo Nov. 2004
                               // a differenza di Refresh fa il refresh di tutti gli oggetti


//----------------------------------------------------------------------------//

METHOD ARefresh() CLASS TWindow

   if ValType( ::aControls ) == "A"
      AEval( ::aControls, {| a | a:Refresh() } )
   endif

return nil

//----------------------------------------------------------------------------//

Code: Select all

FUNCTION tbaddmenu(); RETURN nil
FUNCTION TBGETRECT (); RETURN NIL
FUNCTION TBSETTEXT(); RETURN NIL
FUNCTION TVSETCOLOR(); RETURN NIL
FUNCTION TVSETTEXTIMAGE(); RETURN NIL