Hi to all,
why in this memo
REDEFINE GET oGet VAR cModifica ID 101 OF oDlg MEMO
I found selected all text?
Second question is
I desire than if I perform a double click in a line all the current line has to be selected not only some characters (if you see notepad has the same behavior)
For instance
Marco!Boschi!
<Marco!>Boschi<$%
bye bye to all
REDEFINE GET oGet VAR cModifica ID 101 OF oDlg MULTILINEMEMO or MULTILINE or TEXT mean exactly the same thing. No difference.
oGet:bGotFocus = { || oGet:SetSel( 0, 0 ),;
oGet:Goto( oGet:GetLineCount() ),;
__Keyboard( Chr( VK_END ) ) }STATIC FUNCTION DOPPIOCLICK( oGet )
LOCAL cVal := oGet:GetText()
LOCAL nSta := 0
LOCAL i
cVal := ALLTRIM( cVal )
FOR i = 1 TO LEN( cVal )
IF !EMPTY( SUBSTR( cVal, i, 1 ) )
nSta = i - 1
EXIT
ENDIF
NEXT
oGet:PostMsg( EM_SETSEL, nSta, nSta + LEN( ALLTRIM( cVal ) ) )
RETURN NIL#include "FiveWin.ch"
#define EM_SETSEL 0x00B1
PROCEDURE MAIN
LOCAL oDlg, oText_1, oBtn, cFilter := "SETSEL MULTILINE" + Space( 10 )
LOCAL oTimer
DEFINE DIALOG oDlg FROM 0, 0 TO 150, 200 PIXEL TITLE "Test Snap2Ctrl"
@ 010, 010 GET oText_1 VAR cFilter SIZE 160, 30 PIXEL OF oDlg MULTILINE
oText_1:PostMsg( EM_SETSEL, 0, Len( Trim( cFilter ) ) )
@ 050, 010 BUTTON oBtn PROMPT "&OK" SIZE 160, 50 PIXEL ;
ACTION( MsgInfo( cFilter ), oDlg:End() ) OF oDlg
ACTIVATE DIALOG oDlg CENTER
RETURN NIL