XbpQuickbrowse : Header:lbdown ? [erledigt]

[AUGE_OHR]

hi,

in einem XbpBrowse kann ich bei einen Click auf den Header so reagieren

Code: Alles auswählen

::getColumn( i ):heading:lbClick := {|| blabla() }

Frage : wie mache ich das bei einem XbpQuickbrowse wo ich keine Column habe ?

[AUGE_OHR]

Code: Alles auswählen

CLASS MyQuickBrowse FROM XbpQuickBrowse
// Das Objekt, welches die Kopfzeilen (Überschriften) der Spalten im Browser anzeigt
   ::heading:lbDown := {| aPos, uNIL, oSelf | ::SortMenu(aPos,oSelf) }

METHOD MyQuickBrowse:SortMenu(aPos,oSelf)
LOCAL aCol  := oSelf:cellFromPos(aPos)
LOCAL nPosi := aCol[2]
   IF !EMPTY(::DataArray)
      IF ::upDown == .T.
         ::upDown := .F.
         ASORT(::DataArray,,, {|aX,aY| aX[nPosi] < aY[nPosi] } )
      ELSE
         ::upDown := .T.
         ASORT(::DataArray,,, {|aX,aY| aX[nPosi] > aY[nPosi] } )
      ENDIF
      ::datalink:refresh()
   ENDIF
RETURN self