tree control needed

[grumpy]

Does anyone have a working tree control for FW and xHarbour. Or has anyone successfully compiled Goran Savckic's Tree for use with xHarbour, if so could you be so kind as to email me a copy please.

grumpy@internode.on.net

Thanks in Advance
Gerry

[R.F.]

Here you go:

http://www.google.d2g.com/tree32.zip

[R.F.]

Here you go:

http://www.google.d2g.com/tree32.zip

[grumpy]

The library is not compatible it say Treeview.c was compiled by older version pcode 4 is no longer support - please recompile?

Cheers
Gerry

[R.F.]

I think the source code (PRG & C) is included, if not, let me know which version of FW are you using, and I can recompile it.

[grumpy]

That would be great Rene I have version 2.3.

Cheers and much appreciated.
Gerry

[R.F.]

What version of (x)HB are you currently using ?

[grumpy]

0.99.3 is the xHarbour build. Oh and I use the BCC Version.

[AlexSchaft]

Hi, Could you post the source? I'd like to recompile for xhb builder

Thx,
Alex

[ShumingWang]

FUNCTION eng0504(itemid1)
local oWnd1, oBar, oTree, oBmp1, oBmp2, odb1
private oImageList

DEFINE WINDOW oWnd1 FROM 3, 0 TO 30, 105 ;
TITLE "物料 "+ALLTRIM(itemid1) + " 树型BOM展开表"

oImageList = TImageList():New()

oBmp1 = TBitmap():Define( "folder",, oWnd )
oBmp2 = TBitmap():Define( "fldMask",, oWnd)

oImageList:Add( oBmp1, oBmp2 )

oTree = TTreeView():New( 3, 0, oWnd1)
oTree:bChanged = { || eng050401( oTree:GetSelected()) }

oTree:SetImageList( oImageList )

oItem = oTree:Add(itemid1)

odb1:=oServer:Query("select bom2.itemidc itemidc,goods2.descrip descrip,unit.unit unit,substring(bom2.mem,1,25) mem,bom2.qty/bom2.qtydevisor/(1-ifnull(bom2.scraprate,0)/100) qty,bom1.version version";
+" from bom1,bom2,goods2";
+" left outer join unit on unit.itemid=bom2.itemidc and unit.unitid=bom2.unitid";
+" where bom1.itemid='"+itemid1+"' and bom1.startdate<=curdate() and bom1.enddate>=curdate() and bom2.itemid='"+itemid1+"' and bom2.version=bom1.version and goods2.itemid=bom2.itemidc ")

while !odb1:EOF()
oItem:Add(odb1:itemidc+" "+odb1:descrip+" "+odb1:unit+" "+padl(cvaltochar(odb1:qty),nqtylen," ")+" V"+alltrim(odb1:version)+" "+odb1:mem)
odb1:SKIP()
enddo

oWnd1:oClient:=oTree
oTree:Expand()
SET MESSAGE OF oWnd1 TO "BOM树型展开表" FONT ofont14
ACTIVATE WINDOW oWnd1 VALID (oBmp1:End(),oBmp2:End(),.t.)
odb1:end()
oImageList:End()
oBmp1:End()
oBmp2:End()
return

FUNCTION eng050401(oItem)
local odb1

if LEN(oItem:aItems)=0

odb1:=oserver:Query("select bom2.itemidc itemidc,goods2.descrip descrip,unit.unit unit,substring(bom2.mem,1,25) mem,bom2.qty/bom2.qtydevisor/(1-ifnull(bom2.scraprate,0)/100) qty,bom1.version version ";
+" from bom1,bom2,goods2 ";
+" left outer join unit on unit.itemid=bom2.itemidc and unit.unitid=bom2.unitid";
+" where bom1.itemid='"+LEFT(oitem:cprompt,nitemidlen)+"' and bom1.startdate<=curdate() and bom1.enddate>=curdate() and bom2.itemid='"+LEFT(oitem:cprompt,nitemidlen)+"' and bom2.version=bom1.version and goods2.itemid=bom2.itemidc ")


while !odb1:EOF()
oItem:Add(odb1:itemidc+" "+odb1:descrip+" "+odb1:unit+" "+STR(odb1:qty*val(substr(oitem:cprompt,nitemidlen+len(odb1:descrip)+len(odb1:unit)+4,nqtylen)),nqtylen,nqtydec)+" V"+odb1:version+" "+odb1:mem)
odb1:SKIP()
enddo
oitem:expand()
odb1:end()
endif

return

[AlexSchaft]

I'm actually looking for the source to tree32.lib, so I can rebuild for xHarbour builder.

Alex

[grumpy]

I have the source for V5 but do not know how or what to change. The C files are what is the problem.

[AlexSchaft]

I can recompile the c with xharbour builder

[grumpy]

Where would you like me to send it.....

[AlexSchaft]

Please send to

alexs at quicksoftware dot co dot za