bb.donnay-software.com

Code: Select all

oTannenbaum:setData(oTannenbaum:rootItem:getChildItems()[1])

Code: Select all

FUNCTION DC_ExpandTree( oTree, lExpand )

LOCAL i, aChildList, oTannenBaum := oTree

DEFAULT lExpand := .t.

IF IsMethod(oTannenBaum,'LOCKUPDATE')
  oTannenBaum:lockUpdate(.t.)
ENDIF

IF oTree:isDerivedfrom('XbpTreeView')
   oTree := oTree:rootItem
ENDIF

aChildList := oTree:getChildItems()

FOR i := 1 TO Len(aChildList)
  aChildList[i]:expand(lExpand)
  DC_ExpandTree( aChildList[i], lExpand )
NEXT

IF IsMethod(oTannenBaum,'LOCKUPDATE')
  oTannenBaum:lockUpdate(.f.)
ENDIF

IF IsMemberVar(oTannenbaum,'rootitem')
  oTannenbaum:setData(oTannenbaum:rootItem:getChildItems()[1])
ENDIF

RETURN nil

Code: Select all

aItems:={ ;
  {"Kunden", 0, 0}, ;
    {"ohne Auftrag in Zeitraum..",1,                       12}, ;
    {"Monatsumsatz nach Abfallarten",1,                    27}, ;
    {"Umsatzrangliste (aus Lfs.)",1,                       30}, ;
    {"Mengenliste nach AVV-Nr. mit BV-Auswahl",1,          32}, ;
    {"Jahresabfallbilanz nach AVV-Nr. aus Rechnungen",1,   35}, ;
    {"Jahresabfallbilanz nach Artikeln (detailliert)",1,   37}, ;
    {"Jahresabfallbilanz Einzelartikel",1,                 38}, ;
  {"Auftragsanschriften", 0, 0}, ;
    {"ohne Auftrag in Zeitraum..",1,                       13}, ;
    {"Leistungen nach Mitarbeitern",1,                     93}, ;
  {"Beh„lter", 0, 0}, ;
    {"ohne Bewegung in Zeitraum..",1,                      11}, ;
    {"Beh„lterauslastung Monatsvergleich (2 Jahre)",1,    100}, ;
    {"Beh„lterauslastung 3-Jahres-Vergleich", 1,          103}, ;
  {"Fahrzeuge", 0, 0}, ;
    {"Tageserl”se/Kosten pro Monat",1,                     21}, ;
    {"nach Kfz-Gruppen",1,                                 22}, ;
    {"Jahresauswertung Erl”se/Kosten", 1,                 104}, ;
    {"Tageserl”se nach Baustellen pro Monat",1,            36}, ;
  {"Personal/Fahrer", 0, 0}, ;
    {"Tageserl”se/Kosten pro Monat",1,                     24}, ;
    {"Leistungen von Mitarbeitern",1,                      94}, ;
    {"Jahresauswertung Erl”se/Stunden", 1,                105}, ;
  {"Auftr„ge", 0, 0}, ;
    {"šS-Liste nach Zeitraum",1,                           31}, ;
    {"šS-Liste nach Abfallarten",1,                        33}, ;
    {"šS-Liste nach Entsorgern",1,                         34}, ;
    {"nach Erl”s/Preis (Alle,Kunden,ADM)",1,               23}, ;
    {"Entsorgungsleistungen",1,                            25}, ;
    {"Umsatzerl”se nach Konten/Kostenstellen",1,           26}, ;
    {"Auftr„ge nach Ort/Bezirk",1,                         29}, ;
    {"Auftr„ge mit/ohne Lfs.", 1,                           5}, ;
    {"Jahresvergleich Auftr„ge", 1,                         8}, ;
    {"Anzahlungsliste fr Auftr„ge", 1,                   102}, ;
  {"Diverses", 0, 0}, ;
    {"Monatsumsatz Deponien nach Abfallarten",1,           28}, ;
    {"Mengen fr Entsorgungsnachweise",1,                   7}, ;
    {"Tagesmengen Auftr„ge und Platz", 1,                   9}, ;
  {"Auswertung fr Sub-Auftr„ge", 0,                      101} ;
}

DCGET OPTIONS ICON iconnr TABSTOP SAYLEFT CHECKGET HIDE

@ 1,48 DCSTATIC TYPE XBPSTATIC_TYPE_RAISEDBOX SIZE 68,23 OBJECT oShowBox

@ 1,1 DCTREEROOT SIZE 45,25 OBJECT oTree ;
      HASLINES ;
      HASBUTTONS ;
      ALWAYSSHOWSELECTION ;
      ITEMMARKED {|o| nSelected:=o:cargo[3],SetVonBis(nSelected), dc_getrefresh(Getlist) }

l:=len(aItems)
for i:=1 to l
   if aItems[i][2]=0
       oTreeZr:=nil
       DCTREEITEM CAPTION aItems[i][1] PARENT oTree OBJECT oTreeZr CARGO aItems[i][3] IMAGENORMAL ICON_ARROW_R
   else
       DCTREEITEM CAPTION aItems[i][1] PARENT oTreeZr CARGO aItems[i][3] IMAGENORMAL ICON_INFO IMAGEMARKED ICON_INFO
   endif
next
....

DCREAD GUI ;
   TITLE cTitel ;
   OPTIONS GetOptions ;
   FIT ;
   SETAPPWINDOW ;
   SETFOCUS @oTree ;
   HANDLER StdDlgHandler ;
   EVAL {|o| oDlg:=o, DC_ExpandTree(oTree), CenterControl(o,M->oMainDlg), o:show() }

Code: Select all

EVAL {|o| oDlg:=o, DC_ExpandTree(oTree), ;
              oTree:setData(oTree:rootItem:getChildItems()[1], ;
              CenterControl(o,M->oMainDlg), o:show() }

Code: Select all

/****************************************************************************
* http://msdn.microsoft.com/en-us/library/windows/desktop/bb773566%28v=vs.85%29.aspx
*
* Ensures that a tree-view item is visible, expanding the parent item
* or scrolling the tree-view control, if necessary.
*
*    wParam
*       Must be zero.
*
*    lParam
*       Handle to the item.
*
*    Return value
*       Returns nonzero if the system scrolled the items in the tree-view control
*       and no items were expanded. Otherwise, the message returns zero.
*****************************************************************************/

//#define TV_FIRST                                                0x1100
//#define TVM_ENSUREVISIBLE                               (TV_FIRST + 20)
// o:APIEnsureVisible( oTree:rootItem:getChildItems()[1]:GethWnd() )

INLINE METHOD APIEnsureVisible(hItem)
LOCAL hRet   := 0
   hRet := @user32:SendMessageA(hTreeView,TVM_ENSUREVISIBLE,0,tem)
RETURN hRet

Code: Select all

xxx := oTree:rootItem:getChildItems()[1] -> XbpTreeViewItem()
zzz := xxx:GethWnd() -> crash

Code: Select all

 oTree:setdata(XbpTreeViewItem)