FiveTech Software tech support forums

... 1. How can I know the nLevel when click? 2. Can I add bAction on Treelists? 3. How do I identify on click in Expand (+) or click treelists? 4. oItem1:Add( "xBase & OOPS", 1, {|| Test1( oDlg ) } ) Does it work with DIALOG? Thanks for any help Regards, Dutch

... PROMPT "CDiario" OF oBar TOOLTIP "Elaborar Comprobantes de Diario" ACTION Comprobante(.t.,"CD",oMenu:oItem1) //mucho menos sólo oItem1 Nuevamente gracias. Saludos

... MENUITEM oItem[69] PROMPT "Ne&grita" ACTION Set_FontWin(2,oItem[68],oItem[69]) ENDMENU STAT FUNC Set_FontWin(n,oItem1,oItem2) LOCAL cIni:=GetWinDir()+"\"+cNSys+".Ini", hFont, lFWnd hFont:=IF(n=1,"Normal","Bold") WritePProstring(cNSys,"hFont",hFont,cIni) ...

... == 7 TBitmap():Define( , ".\BITMAPS\wIndMask.bmp",, oWnd ) ) oTree = TTreeView():New( 2, 0, oWnd ) oTree:SetImageList( oImageList ) oItem1 = oTree:Add( "Ayuda de Menú Inicial" ) aFiles[1] := 'INICIAL.WLT' aItems[1] := "Ayuda de Menú Inicial" oItem2 := oItem1:Add( ...

... y lFile dirigen el flujo segun sea llamada a ayudas o a formatear anteced/historias FUNCTION MAIN( cPar ) local oTree, bMasMeno local oBar, oItem, oItem1, oItem2, oBmp1, oBmp2, oImageList, oSplit, oComo, oTxt, wOk, bComo, lG32 := .f. local oItem3, oItem4, aItems := Array( 50 ), bResize, cTLee, ...

... oMru1, oMru2, oMru3 Static cColorPan //----------------------------------------------------------------------------// function Main() local oBar, oItem1, oItem2, oImageList, oSplit local oMenuNew, oSay Local cClrDegrIni,cClrDegrFin Local cClrSelIni,cClrSelFin,cClrSelTxt,cClrSelBor Local cClrMenu,cClrMenuTxt ...

... DEL TREE CON UNA * TABLA DONDE ESTAN TODAS LAS REGIONDE DEL PAIS * !CHILE! *---------------------------------* FUNCTION ArmTree( oTree) LOCAL oItem1 Select RChile Go Top Do While !Eof() //--> Busco el nombre de la Region y lo coloco com rama del arbol Select Regiones Seek RChile->Regi_chile ...

No sé si hay otra forma, más que para averiguar si estoy en +

oItem1 := oTree:GetSelected()
if valtype(oItem1)='O' //'object'
return .f.
endif


Gracias

Luiz Fernando

Dietmar, > Even then we would need a parameter for the font when the item is added in FWH, don't we? oItem1 = oTree:Add( cPrompt, nImage, nValue, xxxoFontxxx ) or similar Can this be done in the (near) future? > Yes, though it is much more complex than that. You can check ...

... WS_OWNERDRAW for the treeview control in the resource Even then we would need a parameter for the font when the item is added in FWH, don't we? oItem1 = oTree:Add( cPrompt, nImage, nValue, xxxoFontxxx ) or similar Can this be done in the (near) future? For the bitmap: If the DIALOG is defined ...

... restore it on the way out ] Rick: Maybe this partial code can help you. Regards //------------------------------ Function BuildMenu() local oMenu, oItem1,oItem2 MENU oMenu 2007 MENUITEM oItem1 PROMPT "&Fichero" MENU MENUITEM "Emitir Recibo de &Caja" ACTION ( RCAJA(.T.) ...

... ejemplo te pueda ayudar. //----------------------------------------------------------------------------// function BuildMenu() local oMenu, oItem1,oItem2,oItem3 MENU oMenu MENUITEM "&Fichero" MENU MENUITEM oItem1 PROMPT "Edicion &Orden y/o Factura" ACTION ( oItem1:Disable(),oItem2:Disable(),oMenu:Refresh(),MULTIEQ(oItem1,oItem2,oMenu) ...

... 80, 60 COLOR 0, GetSysColor( COLOR_WINDOW ) ACTIVATE DIALOG oDlg CENTERED ; ON INIT AddItems( oTree ) return nil function AddItems( oTree ) local oItem1, oItem2, oItem3 oItem1 = oTree:Add( "First" ) oItem1:Add( "One" ) oItem1:Add( "Two" ) oItem1:Add( "Three" ) oItem2 = oTree:Add( "Second" ) oItem2:Add( ...

Hua,

You just need to keep a reference to the first item:

oItem1 = oTree:Add( "First one" )

and then, later on, just select it:

oTree:Select( oItem1 )

... Return Self METHOD MyClick(nRow, nCol, oTree) CLASS tNewrol local oItem Local nAt Local oUser local n, lWhen local oItem1 oItem := oTree:HitTest( nRow, nCol ) if oItem != NIL nAt := Ascan( ::aEmpresas, oItem:cPrompt ) aFill( ::aPerms, .T. ) ::oWnd:SetMenu( ::MakeMenu() ...