Code: Alles auswählen
XbpRtf():getCursorPos()
Ich habe eine weitere Methode zur Klasse hinzugefügt:
Code: Alles auswählen
METHOD XbpRtf:GetLinePos( nLine )
LOCAL nLinePos, nPos, nX, nY
nLinePos := ::GetLineStart( nLine )
nPos := SendMessageA( ::GetHWND(), EM_POSFROMCHAR, nLinePos, 0 )
nX := Bin2W( Left(L2Bin(nPos), 2) )
nY := Bin2W( SubStr(L2Bin(nPos), 3) )
IF ::SystemOrigin == .F.
nY := ::CurrentSize()[2] - nY
ENDIF
RETURN {nX,nY}
Beides hat leider einen Haken bei der Dialogdarstellung: Wenn der Rtf-Text so groß ist, daß Scrollbars eingeblendet werden, wird die Positon leider nur relativ zum Ausschnitt ohne Berücksichtigung des Scrollbars berechnet.
Meine Frage:
Wie komme ich an die Scrollbars des XbpRtf() und deren aktuelle Einstellungen heran?
Uli
P.S. kann mich leider erst Freitag wieder melden.