Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to change accept command entry font size or replace it
Message
De
30/07/2015 02:46:47
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
How to change accept command entry font size or replace it
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows Server 2012
Network:
Windows 2000 Server
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01622675
Message ID:
01622675
Vues:
74
I created code below to scan barcodes using wifi bardcode scanner running application in server using RDP.

Scanner screen is small
Font of data entered as response to accept command is small, rendered in bottom of row. It looks like it is FoxFont or something like.
How to increase its size ?

Or is there some other command which provides similary way to input lines using console mode and allowing to use other fonts?
This program shows last readings in previous rows. Replacing it with say get requires lot of programming.

After pressing enter after enty, empty line appears.
How to remove this empty line so that every line contains data? Terminating entry using Esc does not leave empty line but barcode reader generates enter key after barcodes.
MODIFY WINDOW screen FONT 'Arial',14
* this also does not change font:
*!*	define window sisestus from srows()-12,0 to srows()-1, scols()-1 ;
*!*	    color scheme 10 system nomdi ;
*!*	      font 'Courier New', 12 ;
* acti wind sisestus

ACTIVATE SCREEN
do while .t.
clear
?'1. Scan'
?'3. Exit'

accept to tulem
 
IF tulem='3'
  RETURN
  ENDIF

DO WHILE .t.
accept 'Code  ' to kood
accept 'Quantity  ' to kogus
IF EMPTY(kood)
  EXIT
  ENDIF
* INSERT INTO temprid VALUES (kood, kogus)
  enddo
ENDDO
Andrus
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform