Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Create scrollable view of ASCII text file with Button Cl
Message
 
À
22/06/2001 15:09:02
Peter Brama
West Pointe Enterprises
Detroit, Michigan, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00522567
Message ID:
00533615
Vues:
11
Hi Peter:

I Used this procedure (in 2.6), hope this helps.

*!*********************************************************************
*! Procedure: CAPOUT
*!*********************************************************************
PROCEDURE capout
DEFINE WINDOW mp FROM 10,22 TO 12,58 SHADOW
ACTIVATE WINDOW mp
@ 0,1 SAY 'Compiling Report, please wait...'
STORE STR(SELECT()) TO mxsel
SELECT 21 && User table with memo field
SET MEMOWIDTH TO 132
APPEN MEMO contents FROM &mcapfile OVERWRITE
REPLACE contents WITH CHR(13)+CHR(10)+CHR(13)+'End '+CHR(13)+CHR(10) ADDITIVE

DEFINE WINDOW REPORT FROM 1,0 TO 24,79 TITLE ' Scroll Window ' SYSTEM FLOAT ZOOM GROW CLOSE
RELE WINDOW mp

ON KEY LABEL enter KEYBOARD CHR(17) && Ctrl Q - Exit
ON KEY LABEL rightmouse KEYBOARD CHR(17)
MODIFY MEMO contents NOEDIT WINDOW REPORT
ON KEY LABEL enter
ON KEY LABEL RIGHTMOUSE KEYBOARD CHR(13)
REPLACE contents WITH SPACE(0)
SET MEMOWIDTH TO 80
RELE WINDOW REPORT
SELECT &mxsel
RETURN




>I have a form that uses an ASCII text file to create a comma delimited text file after a bunch of processes and database work. On my final page, I want to provide a button that will allow the user to "view" either of these ascii text files. The file might be wider than the screen so therefore I want a horizontal scroll bar as well. Neither file will be edited using this, just viewed.
>
>Suggestions?
One can acquire everything in solitude but character.
Stendhal (1783-1842)
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform