tree control needed

grumpy
Posts: 48
Joined: Tue Dec 27, 2005 12:40 pm
Location: Australia

tree control needed

Post by 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.
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Post by R.F. »

Saludos
R.F.
R.F.
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Post by R.F. »

Saludos
R.F.
grumpy
Posts: 48
Joined: Tue Dec 27, 2005 12:40 pm
Location: Australia

Doesn't work

Post by 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.
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Post by 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.
Saludos
R.F.
grumpy
Posts: 48
Joined: Tue Dec 27, 2005 12:40 pm
Location: Australia

Tree Control

Post by grumpy »

That would be great Rene I have version 2.3.

Cheers and much appreciated.
Gerry
R.F.
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Post by R.F. »

What version of (x)HB are you currently using ?
Saludos
R.F.
grumpy
Posts: 48
Joined: Tue Dec 27, 2005 12:40 pm
Location: Australia

Version

Post by grumpy »

0.99.3 is the xHarbour build. Oh and I use the BCC Version.
User avatar
AlexSchaft
Posts: 172
Joined: Fri Oct 07, 2005 1:29 pm
Location: Edenvale, Gauteng, South Africa

Tree32 source

Post by AlexSchaft »

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

Thx,
Alex
ShumingWang
Posts: 454
Joined: Sun Oct 30, 2005 6:37 am
Location: Guangzhou(Canton),China

Post by 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
User avatar
AlexSchaft
Posts: 172
Joined: Fri Oct 07, 2005 1:29 pm
Location: Edenvale, Gauteng, South Africa

Tree32 source

Post by AlexSchaft »

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

Alex
grumpy
Posts: 48
Joined: Tue Dec 27, 2005 12:40 pm
Location: Australia

Treelib

Post by grumpy »

I have the source for V5 but do not know how or what to change. The C files are what is the problem.
User avatar
AlexSchaft
Posts: 172
Joined: Fri Oct 07, 2005 1:29 pm
Location: Edenvale, Gauteng, South Africa

Tree32 c source

Post by AlexSchaft »

I can recompile the c with xharbour builder
grumpy
Posts: 48
Joined: Tue Dec 27, 2005 12:40 pm
Location: Australia

Tree

Post by grumpy »

Where would you like me to send it.....
User avatar
AlexSchaft
Posts: 172
Joined: Fri Oct 07, 2005 1:29 pm
Location: Edenvale, Gauteng, South Africa

Source

Post by AlexSchaft »

Please send to

alexs at quicksoftware dot co dot za
Post Reply