Subclass Xbrowse with method GoLeft() and GoRight()
Posted: Wed Nov 20, 2024 7:24 pm
Code: Select all | Expand
CLASS MyxBrowse FROM TXBrowse
CLASSDATA lRegistered INIT .f.
DATA aMyColHelpdata AS ARRAY init ARRAY(0)
DATA cMyBrwName INIT "" // Name van de Browse
METHOD GoLeft()
METHOD GoRight()
ENDCLASS
//----------------------------------------------------------------------------//
// De :: Vervangt de oBrw
METHOD GoRight() CLASS MyXBrowse
h_system["TOOLTIP"] = ::aCols[::nColSel]:cHeader+" -> "+::aMyColHelpData[::nColSel]
return ::Super:GoRight()
METHOD GoLeft() CLASS MyXBrowse
h_system["TOOLTIP"] = ::aCols[::nColSel]:cHeader+" -> "+::aMyColHelpData[::nColSel]
return ::Super:GoLeft()
If I wanted to add a method MyLeft() + MyRight() and I want this method to go left, but do nothing else, no checking, reading etc.. can that be done ?
If I try i'm using
return ::Super:GoLeft()
as return, but then Xbrowse off cource act again with his GoLeft()
Subclassing is totaly new for me ...
If you wonder why i want this : The more stuff I put in xbrowse the more it slows down, and that is because of my way of programming, NOT XBROWSE. I know that and so I just wanted to test the new method MYLEFT that does nothing at all except go left.
Call it HighSpeed navigation
