FiveTech Software tech support forums

... ya que los usuarios hacen siempre click en el SAY como para colocar el cursor donde van a escribir y les digo que no hace falta, que solo usen la BACKSPACE o retroceso, ya se van acostumbrando, pero no les gusta mucho...saludos... :shock: FUNCTION browqry( oQry, cVar, aCampos, aTitulos )  ...

... the array that don't contain the search characters and this would have to be done after each keystroke. Another complication would be if the user backspaced, then the array would have to be reloaded and then items NOT matching the search characters left after the backspace would have to be deleted. ...

Hi Antonio , I am trying to locate the problem I am not sure where it is failing. But I when I type some characters and use backspace 3-4 times it fails. I was looking the code of Dolphinseek METHOD. It has so many changes after FWH 12.11. In the code we change the WHERE clause at RUN ...

... The given code requires Dolphin Connection and Dolphin Qry Object. Please edit MAIN procedure ,compile it and run the code. I believe when I press backspace key it does not work and Windows message shows "No response" and it stops the application. It is my humble request to you to solve ...

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:v...

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() )

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.

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:oGe...

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

nOW GIVE ME THIS ERROR 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&nb...

@ 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(rt...

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 ...

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 wo...

Sorry but not run ok

I re-made msgcalc() on W7



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

Silvio: Using the James' example, try this code // Purpose: Show simulated backspace for a GET// Author : James Bott// Date   : 5/5/2013#include "fivewin.ch"#include "vKey.ch"       // Don't forget this linefunction Main()   local ...