Thanks Jan,
That is pretty much what I am doing. In my approach, I can have more than one space as I use a SFIL functions to enter the proper number of spaces. Javier, Javier Valencia, PE O: 913-829-0888 H: 913-397-9605 C: 913-915-3137 From: [email protected] [mailto:[email protected]] On Behalf Of jan johansen Sent: Friday, March 02, 2012 5:10 PM To: RBASE-L Mailing List Subject: [RBASE-L] - Re: On screen keyboard Javier, I created a keyboard using the following approach. There is a custom form action named KeyPress. In the form action is this code. SET VAR vlast TEXT SET VAR vnext TEXT = .%1 SWITCH (.vnext) CASE 'Enter' SET VAR vlast = 'enter' BREAK CASE 'space' SET VAR vlast = 'space' BREAK CASE 'bksp' IF (SLEN(.vAddResult)) > 0 THEN SET VAR vAddResult = (SGET(.vAddResult,((SLEN(.vAddResult)) - 1),1)) ENDIF SET VAR vlast = 'bksp' BREAK DEFAULT IF vlast = 'space' THEN SET VAR vAddResult = (CTXT(.vAddResult)&CTXT(.vnext)) ELSE SET VAR vAddResult = (CTXT(.vAddResult)+CTXT(.vnext)) ENDIF SET VAR vlast = ' ' BREAK ENDSW RECALC VARIABLES RETURN Show each keypress calls the form action. An 'E' has the OnClick EEP PROPERTY RBASE_FORM_ACTION KeyPress 'Using E' RETURN and so on. This snippet of code was borrowed from Emmitt awhile back. I only used Upper case and my keyboard does not have a DELETE. Jan -----Original Message----- From: "Javier Valencia" <[email protected]> To: [email protected] (RBASE-L Mailing List) Date: Fri, 2 Mar 2012 15:18:20 -0600 Subject: [RBASE-L] - On screen keyboard Hello List, I have an application where the user can access the screen only via the mouse (no keyboard, no touchscreen). I can use the Windows on screen keyboard (osc.exe) and works correctly; however, I want to restrict the keys the user can use to alpha-numeric, shift, space, backspace and delete. I have created a form with a nice looking keyboard using bit buttons and I have most of the features working. I simply initialize the variable and anytime a "key" is pressed (mouse click on bit button) the corresponding character is added to the string. When the backspace key is pressed the last character is deleted from the variable. Fairly straight forward I have two questions that I need to resolve. How do I add a blank character at the end of the variable? I have tried different characters with no luck; it seems that the variable is not able to store a "blank" character as the last character. I have two workaround but I am not crazy about either. The first involves adding CHAR(255) and using the Terminal Font. The space is displayed correctly with that font (and the R:BASE OEM r> prompt font) but with other fonts I displays " ΓΏ" instead of spaces. I do a string replace to change the CHAR(255) back to blank. The second involves counting the blank spaces pressed and when the next non-blank character is pressed on the screen keyboard, the blank spaces are inserted before the last non-blank character and the count reset to 0. Both solutions work, but I feel like there should be a more elegant/straight forward solution. The second question is how do I duplicate the "Delete" key on the keyboard with a bit button? Using the mouse I can select a portion of the text and I would like to delete it by clicking on a button on the screen keyboard. Any Ideas? Next on the list is determine relative cursor position in the screen to allow inserting and deleting characters at positions other than the end. I don't have clue on how to do that but this feature is not critical at this time I can do all these thing with the Windows On Screen Keyboard; I just prefer the look and the flexibility of an all R:Base solution. Javier, Javier Valencia, PE O: 913-829-0888 H: 913-397-9605 C: 913-915-3137
