ttreeview

[reinaldocrespo]

hi.

I'm trying to implement the use of trees for the first time. Having some trouble. I'd like to have a tree inside a dialog window that is really a tab on a folder control.

here is the code I'm using:

Code: Select all

	REDEFINE FOLDER aoFld id 101 of oDlg 		;
			PROMPTS 	"&Basic Info", 	;
				"&Abstract", 	;
				"&Discharge", 	;
				"C&onsults", 	;
				"&Notes", 		;
				"Do&cuments"	;
			DIALOGS 	"adm_TAB1", 	;
				"adm_TAB2",	;
				"adm_TAB3", 	;
				"adm_TAB4", 	;
				"adm_docs"

	REDEFINE_Tab1( aoFld:adialogs[1], oDbf)
	REDEFINE_Tab2( aoFld:adialogs[2], oDbf)
	REDEFINE_Tab3( aoFld:adialogs[3], oDbf )
	REDEFINE_Tab4( aoFld:adialogs[4], oDbf )
	REDEFINE_documents( aofld:aDialogs[ 12 ], odbf )
.....
*-----------------------------------------------------------------------------------
static function REDEFINE_documents( odlg, odbf )
local oImageList	:= TImageList():New()
local oBmp1 	:= TBitmap():Define( "branch",, odlg )
local oBmp2 	:= TBitmap():Define( "branch_Mask",, odlg )
local oTree 	:= TTreeView():New( 2, 0, oDlg )
local oRep1, oRep2

	oImageList:Add( oBmp1, oBmp2 )

	oTree:SetImageList( oImageList )
	oRep1 := oTree:Add( "Report1" )
	oRep1:Add( "Comp1 in Rep1" )
	oRep1:Add( "Comp2 in Rep1" )
	oRep1:Add( "Comp3 in Rep1" )
	oRep1:Add( "Comp4 in Rep1" )

	oRep2 := oTree:Add( "Report2" )

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

Return Nil

When this code executes I get an error:

Code: Select all

Application
===========
   Path and name: F:\mp\test.exe (32 bits)
   Size: 2,940,416 bytes
   Time from start: 0 hours 0 mins 16 secs 
   Error occurred at: 09/09/2006, 20:08:28
   Error description: Error FiveWin/1  Non defined Id: No:    210

Stack Calls
===========
   Called from: CONTROL.PRG => TTREEVIEW:INITIATE(0)

Notice I'm not using any code with ID 210 anywhere on my code.

Can someone help?

Reinaldo.

[Antonio Linares]

Reinaldo,

You have to use TTreeView():ReDefine( nId, oWnd, nClrFore, nClrBack, lDesign, cMsg ) instead of TTreeView():New( ... ).

Use SysTreeView32 as the type of the control in your dialog resource.

[reinaldocrespo]

Antonio;

Thank you. I no longer get the error. But, no tree is displayed. I see nothing. Another hand?

Reinaldo.

[Antonio Linares]

Reinaldo,

This code has to be executed from the ON INIT clause of the main dialog, as the tree does not has a valid hWnd before:

Code: Select all

   oTree:SetImageList( oImageList ) 
   oRep1 := oTree:Add( "Report1" ) 
   oRep1:Add( "Comp1 in Rep1" ) 
   oRep1:Add( "Comp2 in Rep1" ) 
   oRep1:Add( "Comp3 in Rep1" ) 
   oRep1:Add( "Comp4 in Rep1" ) 

   oRep2 := oTree:Add( "Report2" )

[James Bott]

Reinaldo,

>Thank you. I no longer get the error. But, no tree is displayed. I see nothing. Another hand?

Perhaps because you are ending the Tree in the redefine_documents() function? I think you don't want to end the tree until the dialog is ended (this would be easier to program if you built a class instead of using functions).

James

[reinaldocrespo]

James;

Good to see your note.

I thought of that. Took the end() out. Same result.

Yes, making the whole thing an object would make a lot of sense. I'm just as fanatic about OOP. But I'm only adding a new tab to some very old code. Everything else is working just fine. I'm not about to re-write the whole thing now. Other things to do. Besides, Ending() the tree at dialog end() won't be a problem.

You know, I think I just thought what the problem is:

"local oBmp1 := TBitmap():Define( "branch",, odlg )"

That's the problem. It has been staring me at the eye. "Branch" is a resource. Not a file. I'll get back to you if I'm wrong on this.

Take care,


Reinaldo.

[reinaldocrespo]

Antonio;

Thank you. It worked!

Again, Thank you very much.


Reinaldo.