Simulate BackSpace on a Get resolved !!

[Silvio.Falconi]

How I can simulate backspace on a get ? ( Explain : to delete one caracter from right to left)

[ukoenig]

Silvio,

do You want to delete a caracter on BUTTONACTION ?

Regards
Uwe

[Silvio.Falconi]

yes

[James Bott]

Maybe something like:

oGet:oGet:varPut(left(oGet:oGet:varGet(),len(rtrim(oGet:oGet:varGet())-1)))

Note that FW's TGet class contains an oGet object thus the syntax oGet:oGet.

Regards,
James

[Silvio.Falconi]

I need it on msgcalc and your line not run good

[James Bott]

Code: Select all  Expand view

// Purpose: Show simulated backspace for a GET
// Author : James Bott
// Date   : 5/5/2013

#include "fivewin.ch"

function Main()
   local oDlg, cVar, oGet, oBtn

   cVar:="12345    "

   define dialog oDlg

   @ 2,2 get oGet var cVar of oDlg

   @ 3,2 button oBtn ;
     action (oGet:oGet:varPut( left( oGet:oGet:varGet(),len( rtrim(oGet:oGet:varGet()) )-1) ), oGet:refresh() )

   activate dialog oDlg center

return nil

[Armando]

Silvio:

Using the James' example, try this code

Code: Select all  Expand view

// Purpose: Show simulated backspace for a GET
// Author : James Bott
// Date   : 5/5/2013

#include "fivewin.ch"
#include "vKey.ch"       // Don't forget this line

function Main()
   local oDlg, cVar, oGet, oBtn

   cVar:="12345    "

   define dialog oDlg

   @ 2,2 get oGet var cVar of oDlg

   @ 3,2 button oBtn ;
     action Teclado(oDlg,VK_BACK,1)

   activate dialog oDlg center

return nil


/*
* -------------------------------------------------------------------------*
* -------------------------------------------------------------------------*
*/
FUNCTION Teclado(oDlg,nKey,nTimes)
    LOCAL nTime
    DEFAULT nTimes := 1

    oDlg:SETFOCUS()
    FOR nTime := 1 TO nTimes
        oDlg:POSTMSG(WM_KEYDOWN,nKey,0)
    NEXT
RETURN (NIL)

 

Regards

[Silvio.Falconi]

Sorry but not run ok

I re-made msgcalc() on W7



I wish use the butoon <- to erase cr on the get

[James Bott]

Silvio,

>Sorry but not run ok

First my example does run OK. Making the statement above does not give us anything to work with. You haven't showed us the code or explained exactly what you are trying to do, nor have you said exactly what is happening with what you tried (i.e. error message, not working the way you want, nothing happening, or what?).

James

[Silvio.Falconi]

I made a button "<-" command with the ACTION
ACTION (oGet:oGet:varPut(left(oGet:oGet:varGet(),len(rtrim(oGet:oGet:varGet())-1))))

I have a Get oGet and a GEt oRes
if you see msgcalc() function perhaps you understand

I put thi command insteas of btnpaste button

@ 0,0.5 GET oGet VAR cGet OF oDlg SIZE 95,10
oGet:bChange := {|nKey,nFlag,oB|(Chr(nKey)$"0123456789.")} // Logical
oGet:bKeyDown := { | nKey | VerKey(nKey,oBSum,oBMin,oBMol,oBDiv,oBPer,oBCan,oBRes) }

@ 1,5.6 GET oRes VAR cRes OF oDlg SIZE 55,10 RIGHT COLOR CLR_RED,CLR_WHITE READONLY
//@ 1.3,1 BUTTON oBtn PROMPT "&Paste" OF oDlg ACTION (oBCan:Click(),SayNum(oGet,nVal)) FONT oFont SIZE 38,10

@ 1.3,1 BUTTON oBtn PROMPT "<-" OF oDlg ACTION(oGet:oGet:varPut(left(oGet:oGet:varGet(),len(rtrim(oGet:oGet:varGet())-1)))) FONT oFont SIZE 38,10


I click on <- button and it not make any command

[James Bott]

@ 1.3,1 BUTTON oBtn PROMPT "<-" OF oDlg ACTION(oGet:oGet:varPut(left(oGet:oGet:varGet(),len(rtrim(oGet:oGet:varGet())-1)))) FONT oFont SIZE 38,10

You left out the oGet:refresh().

@ 1.3,1 BUTTON oBtn PROMPT "<-" OF oDlg ACTION(oGet:oGet:varPut(left(oGet:oGet:varGet(),len(rtrim(oGet:oGet:varGet())-1)))), oGet:refresh() ) FONT oFont SIZE 38,10

James

[Silvio.Falconi]

nOW GIVE ME THIS ERROR

Code: Select all  Expand view

Application
===========
   Path and name: C:\Work\Prg\msgcalc\msgcalc.Exe (32 bits)
   Size: 2,137,088 bytes
   Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6715)
   FiveWin  Version: FWHX 12.03
   Windows version: 6.1, Build 7600

   Time from start: 0 hours 0 mins 5 secs
   Error occurred at: 05/06/13, 18:52:15
   Error description: Error BASE/1082  Argument error: -
   Args:
     [   1] = C   123456
     [   2] = N   1

Stack Calls
===========
   Called from: msgcalc.prg => (b)MSGCALC( 126 )
   Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK( 157 )
   Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( 1654 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3153 )
   Called from:  => SENDMESSAGE( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND( 379 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 886 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 270 )
   Called from: msgcalc.prg => MSGCALC( 369 )

[James Bott]

Well, I answered your original question of how to simulate a backspace with a button. Now you are trying to debug a larger program which could take some work. I suggest commenting out the bChange and bKeydown codeblocks first to see if they are causing the problem.

James

[Silvio.Falconi]

James,
do you Know msgcalc() ?
I not think it have problems on

oGet:bChange := {|nKey,nFlag,oB|(Chr(nKey)$"0123456789.")}
oGet:bKeyDown := { | nKey | Load_Get(oGet),VerKey( nKey, oBSum, oBMin, oBMol,oBDiv, oBPer, oBCan, oBRes ) }

and if we change Len(AllTrim(oGet:cText) instead of oGet:oGet ... ?

[FranciscoA]

Silvio, I think the error is caused for this:

The code You show is: len(rtrim(oGet:oGet:varGet())-1)
I think the correct way is: len( rtrim(oGet:oGet:varGet()) )-1
Regards.