kann mir jemand etwas Nachhilfe bei TreeView geben? Wie kann ich den markierten Inhalt der zwei xbpTreeView.Objete auswerten/anzeigen.
hier mein Problemcode
Code: Alles auswählen
FUNCTION hlinhalt(aoDlg)
LOCAL mp1, mp2, hlEvent, oXbp, aPresParam
LOCAL nCom := 1
LOCAL oDlg, drawingArea, aEditControls := {}
TabPos := {12,80}
TabSize := {750,450}
aPP := { { XBP_PP_COMPOUNDNAME, FONT_HELV_SMALL } }
aSize := {780,580}
aPos := CenterPos( aSize, AppDesktop():currentSize() )
hDlg := XbpDialog():new( aoDlg, , aPos, aSize, aPP, .F.)
hDlg:taskList := .T.
hDlg:title := "Inhaltsverzeichnis"
hDlg:create()
drawingArea := hDlg:drawingArea
drawingArea:setFontCompoundName( "8.Arial" )
hlzeig2 := XbpStatic():new( drawingArea, , {564,164}, {84,24} )
hlzeig2:caption := "-"
hlzeig2:clipSiblings := .T.
hlzeig2:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
hlzeig2:create()
*Anfang der Suche
hlvon := XbpTreeView():new( drawingArea, , {24,276}, {204,192}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
hlvon:hasLines := .T.
hlvon:hasButtons := .T.
hlvon:tabStop := .T.
hlvon:create()
*laden der TreeStruktur
hlStrukturladen(hlvon, 4)
* Ende der Suche
hlbis := XbpTreeView():new( drawingArea, , {288,276}, {204,192}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
hlbis:hasLines := .T.
hlbis:hasButtons := .T.
hlbis:tabStop := .T.
*geht nicht
* hlbis:itemMarked := {| mp1, mp2, obj | hlzeig2:setCaption(auftree:getdata()) }
hlbis:create()
*laden der Struktur
hlStrukturladen(hlbis, 4)
oXbp := XbpPushButton():new( drawingArea, , {384,24}, {96,24}, { { XBP_PP_BGCLR, XBPSYSCLR_BUTTONMIDDLE }, { XBP_PP_FGCLR, -58 } } )
oXbp:caption := "Abbruch"
oXbp:tabStop := .T.
oXbp:create()
oXbp:activate := {|| hDlg:destroy() }
oXbp := XbpPushButton():new( drawingArea, , {24,24}, {96,24}, { { XBP_PP_BGCLR, XBPSYSCLR_BUTTONMIDDLE }, { XBP_PP_FGCLR, -58 } } )
oXbp:caption := "Hilfe"
oXbp:tabStop := .T.
oXbp:create()
oXbp:activate := {|mp1,mp2,obj| PostAppEvent( xbeP_HelpRequest,,, obj ) }
oXbp := XbpPushButton():new( drawingArea, , {504,24}, {108,24}, { { XBP_PP_BGCLR, XBPSYSCLR_BUTTONMIDDLE }, { XBP_PP_FGCLR, -58 } } )
oXbp:caption := "Auswahl drucken"
oXbp:tabStop := .T.
oXbp:create()
oXbp:activate := {|| hoinhxbp(1, hDlg), hDlg:destroy() }
oXbp := XbpPushButton():new( drawingArea, , {636,24}, {108,24}, { { XBP_PP_BGCLR, XBPSYSCLR_BUTTONMIDDLE }, { XBP_PP_FGCLR, -58 } } )
oXbp:caption := "Auswahl anzeigen"
oXbp:tabStop := .T.
oXbp:DEFAULT := .T.
oXbp:create()
oXbp:activate := {|| hoinhdr(1), hDlg:destroy() }
hDlg:show()
hlEvent := xbe_None
DO WHILE hlEvent <> xbeP_Close
hlEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( hlEvent, mp1, mp2 )
ENDDO
RETURN NIL
Reiner
