ich bin am testen wie ich auf eine Class "von aussen" Einfluss nehmen kann.
Nun kann ich meine eigenen Methoden schreiben und die Property von iVARs ändern,
aber wie ist das mit Events ? Dafür bräuchte ich doch wohl einen CallBack Slot ?
Ich habe hier ein Beispiel aus der Splitbar Class :
Code: Alles auswählen
PROCEDURE MAIN()
...
::XbpDialog:init( oParent, oOwner, aPos, aSize, aPP, lVisible )
::XbpDialog:drawingArea:resize := { |aOldSize,aNewSize,oSelf| ::MainReSize(
...
::oSplit := XbpSplitbar():new( ::drawingArea, , {204,0}, {8,372} )
::oSplit:SplitterMoved := { || _Resize( ::oDlg , ::oSplit, ::oStatLWl , ::oStatLWr ...}
...
Static Function _Resize( poDlg , poSplitBar , poBox1 , poBox2 , poMLE1 , poMLE2...)
...
CLASS XbpSplitbar FROM XbpStatic
INLINE METHOD SplitterMoved()
VAR SplitterMoved
Code: Alles auswählen
METHOD XCMForm:MainReSize(aOldSize, aNewSize, oSelf)
...
::oSplit:setPosAndSize(...)
::oStatLWl:setPosAndSize(...)
::oStatLWr:setPosAndSize(...)
...
PostAppEvent(xbeP_Resize,,,::oSplit)
... wenn ich "manuell" mit der Maus das mache wird ja die Position wo ich LbDown/LbUp mache
ermittelt ... aber die habe ich beim :Resize nicht ...
was fehlt mir da ?