Simulate BackSpace on a Get resolved !!

Re: Simulate BackSpace on a Get resolved !!!!!

Postby Silvio.Falconi » Mon May 06, 2013 6: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 November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 7056
Joined: Thu Oct 18, 2012 7:17 pm

Re: Simulate BackSpace on a Get resolved !!

Postby James Bott » Mon May 06, 2013 8: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
User avatar
James Bott
 
Posts: 4840
Joined: Fri Nov 18, 2005 4:52 pm
Location: San Diego, California, USA

Previous

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 83 guests