>Visual FoxPro barcode scanner application uses accept command for barcode collection via RDP:
>
>
_screen.FontSize=20
> _screen.FontName='Arial'
> DO WHILE .T.
> accept 'Barcode' to cBarCode
> if empty(cBarCode)
> exit
> endif
> insert into barcodes value (cBarCode)
> ENDDO
>
>
>Scanned barcode font size is too small (see
https://i.stack.imgur.com/ZJPbF.png ).
>
>How to increase displayed scanned barcode 123456 font size?
>
>Only ACCEPT prompt font size can changed.
>Re-writing application using @ GET commands or Forms is huge work.
>Answer in
>
https://social.msdn.microsoft.com/Forums/en-US/c3f9e89a-8917-4236-bc2c-474592f1af4c/increase-font-size-on-accept-input-and-wait?forum=visualfoxprogeneral>
>recommends to use INPUTBOX() but this hides whole mobile screen.
>
>Maybe there is FoxPro code for command line data entry which uses INKEY() or something other to mimics this command?
>Or can some Windows api function or external dll called for this?
>
>Posted also in
https://stackoverflow.com/questions/73824658/increasing-accept-command-entry-font-sizeHi Andrus
You use an outdated and depricated command, it might be deleted in the next version.
#1 Read the docu, it points to @ GET. Anyway, this is outdated as well.
Create a class - for example from custom
Create a Method. Lets say GetKeyFromScreen
This needs parameter like:
LPARAMETERS tnKeyCode, tnShiftAltCtrl
?tnKeyCode,tnShiftAltCtrl
Assuming you have no form etc on your screen, just the screen itself.
Instantiate your class to _SCREEN.oCustom
Bind _Screen Keypress event to your method
BINDEVENT(_SCREEN,'KeyPress',_SCREEN.oCustom,'GetKeyFromScreen')
As you can see, GetKeyFromScreen is processing your input in the background. Now you can write your own code gathering the input, writing to screen with any font property and write to some var.
HTH
Lutz
Update: This example is as numb as possible. There is no need to create to _screen etc, this is just an example. If run from command window, note to click into screen, else the input will go elsewhere.
Logically you can create an idiot form, set to fullscreen, activate and use it's KeyPress event, writing to the form. There are many ways to solve it like this.
Words are given to man to enable him to conceal his true feelings.
Charles Maurice de Talleyrand-Périgord
Weeks of programming can save you hours of planning.
OffThere is no place like [::1]