EDIT MEMO

[MarcoBoschi]

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

[karinha]

Try

Code: Select all  Expand view  RUN

   REDEFINE GET oGet VAR cModifica ID 101 OF oDlg MULTILINE
 

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=34507

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=44545&p=270354&hilit=multiline&sid=f7bc11204266e763a5b99de77a74a984&sid=64381ba57610239b161f18d276fe8276#p270354

Regards, saludos.

[nageswaragunupudi]

MEMO or MULTILINE or TEXT mean exactly the same thing. No difference.

[MarcoBoschi]

karinha,
thank you
One of the two problem is solved in this way

Code: Select all  Expand view  RUN

oGet:bGotFocus = { || oGet:SetSel( 0, 0 ),;
                            oGet:Goto( oGet:GetLineCount() ),;
                           __Keyboard( Chr( VK_END ) ) }

but double click that select the entire line no
with this function if the get is not a MEMO works fine

written by emag software

Code: Select all  Expand view  RUN

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
 

[karinha]

// C:\FEH\SAMPLES\GETSEL.PRG

Code: Select all  Expand view  RUN

#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
 

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=42467

Regards, saludos.