bb.donnay-software.com

Code: Select all

#include "dcdialog.ch"
#include "appevent.ch"

function Appsys()
return NIL

procedure main()
local getlist := {}, getoptions := {}, lRet, cName := "A             ", oGet

  readinsert(.t.)

  @ 5, 5 DCGET cName OBJECT oGet  // eval {|o| /*o:get:right()*/o:get:pos++, o:SetMarked({2,2}), dc_getrefresh(oGet) } 

  DCGETOPTIONS TITLE "Test"
  DCREAD GUI TO lRet OPTIONS getoptions ADDBUTTONS FIT EVAL {|o| oGet:get:pos++, oGet:SetMarked({2,2}), dc_getrefresh(oGet) }

RETURN

Code: Select all

.....DCGET.....
       GETEVAL {|o|o:setInputFocus:={|a,b,o|EndOfGet(o,GetOptions)}}

****************************************************
PROCEDURE EndOfGet(oXbp, GetOptions,lPlusOne) // lPlusOne=.T. for space at the end
LOCAL x                                       //    of the get, this is the default

DC_ValType(@lPlusOne,.T.)

x := Len(alltrim(oXbp:getdata()))+IIF(lPlusOne,2,1)
Re_ColorGets(oXbp,1,GetOptions)
x := IIF(x<IIF(lPlusOne,3,2), 1, x)     // If empty goto position 1
oXbp:Get:Pos := x
oXbp:setMarked({x,x})                   //   put cursor at end of text
RETURN
*************************************************
FUNCTION Re_ColorGets( o, nMode, GetOptions )
LOCAL aPres, aColor
IF valType(GetOptions) = "A"
  aColor := GetOptions[aGETOPT_COLORGETS]
ELSE
  aColor := DC_GetOptDefault()[aGETOPT_COLORGETS]
ENDIF

IF !Empty(aColor)
  IF Len(aColor) < 2
    AAdd(aColor,{ GRA_CLR_BLACK, GRA_CLR_WHITE })
  ENDIF
  IF nMode = 1
    aPres := { { XBP_PP_FGCLR, aColor[1,1] } , { XBP_PP_BGCLR, aColor[1,2] } }
  ELSE
    aPres := { { XBP_PP_FGCLR, aColor[2,1] } , { XBP_PP_BGCLR, aColor[2,2] } }
  ENDIF
  o:setPresParam(aPres)
ENDIF
RETURN nil