Simulate BackSpace on a Get resolved !!

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Simulate BackSpace on a Get resolved !!!!!
Posted: Mon May 06, 2013 06:15 PM

James, Armando, ukoenig

NOW RUN OK !!!!

@ n + 1.20,0.6 BUTTON oBtnPast PROMPT "<-" OF oDlg ;
FONT oFont SIZE 20,13 ACTION (cText := Alltrim(oGet:cText()),;
oGet:cText( padR(left(alltrim(cText),len(cText)-1),100,' ') ) ,;
oGet:refresh() )

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

James Bott

Posts: 4840

Joined: Fri Nov 18, 2005 04:52 PM

Re: Simulate BackSpace on a Get resolved !!
Posted: Mon May 06, 2013 08:10 PM

Silvio,

Glad to hear you got it working but my original line of code was correct and working. You made some typos when you typed it into your code. If you will try just copy & paste it from my original example you will find that it IS working.

My line:
ACTION (oGet:oGet:varPut( left( oGet:oGet:varGet(),len( rtrim(oGet:oGet:varGet()) )-1) ), oGet:refresh() )
and your retyped line:
ACTION (oGet:oGet:varPut( left( oGet:oGet:varGet(),len( rtrim(oGet:oGet:varGet()) -1) )))

It is usually better to copy and paste than to retype and risk errors.

James

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10

FiveTech Support Forums

Continue the discussion