in einem XbpBrowse kann ich bei einen Click auf den Header so reagieren
Code: Alles auswählen
::getColumn( i ):heading:lbClick := {|| blabla() }
Moderator: Moderatoren
Code: Alles auswählen
::getColumn( i ):heading:lbClick := {|| blabla() }
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