Cursor position in a Get

[Jeff Barnes]

I have a multiline get. If the user clicks into it, the cursor will be placed where they clicked.
How can I force the cursor to go the the start of the get but only when the get receives the focus.
If the get has the focus, the user should be able to click anywhere they want in the get.

[Armando]

Jeff:

Pls Have a look to Antonio's answer. perhaps it can help you.

viewtopic.php?f=3&t=25979&p=142184&hilit=cursor#p142184

Regards

[Rick Lipkin]

Jeff

Consider this code .... the cursor is moved to the first character of the text within the get.

Rick Lipkin

Code: Select all  Expand view

cMEMO  := StrTran( oRs:Fields(cField):Value, Chr( 141 ) + Chr( 10 ), "" )

If empty( cMemo) .or. cMemo = "  "
Else
   cMemo := alltrim( cMemo )
Endif


DO CASE
CASE cMODE = "A"
     cTITLE := cTitle +"      ADD"
CASE cMODE = "E"
     cTITLE := cTitle +"     EDIT"
CASE cMODE = "V"
     cTITLE := cTitle +"     VIEW"
ENDCASE


DEFINE DIALOG oUSERS RESOURCE "MEMO" ;
       TITLE cTITLE              ;


IF cMODE = "E"

   REDEFINE GET oMEMO      VAR cMEMO MEMO ID 130 of oUSERS UPDATE

ELSE     // view

   REDEFINE GET oMEMO      VAR cMEMO ID 130 of oUSERS READONLY

ENDIF


     IF cMODE = 'E'
        oMemo:bGotFocus = { || oMemo:SetSel( 0, 0 ),;
                         oMemo:Goto( oMemo:GetLineCount() ),;
                         __Keyboard( Chr( VK_END ) ) }
     ENDIF

REDEFINE BTNBMP oBtn1 ID 111 of oUSERS   ;     // ok
         RESOURCE "OK", "DOK", "DOK" ;
         PROMPT "  &Ok    " LEFT 2007;
         ACTION (IF(cMODE ="E", _DOIT(cMemo,oRs,cField), ),    ;
                  oUSERS:END()  )

REDEFINE BTNBMP oBtn2 ID 112 of oUSERS   ;    // cancel
         RESOURCE "CANCEL", "DCANCEL", "DCANCEL" ;
         PROMPT "&Cancel   " LEFT 2007;
         ACTION oUSERS:END()

ACTIVATE DIALOG oUSERS

RETURN( NIL )

 

[Jeff Barnes]

Thanks Guys.
Got it working with: oGet1:bGotFocus := {|| oGet1:SetPos(0,0) }