Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Full path in title bar
Message
De
18/03/2009 11:37:43
 
 
À
18/03/2009 09:46:53
Lutz Scheffler
Lutz Scheffler Software Ingenieurbüro
Dresden, Allemagne
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Divers
Thread ID:
01389067
Message ID:
01389142
Vues:
75
>>Hi All:
>>
>>When I MODI COMM a program, the name of the program appears in the title bar. Is there a way to have the full path appear?
>>
>>I need this since I'm working with two versions of the same program and it's sometimes confusing when I have both of them up on the screen.
>>
>>Thanks,
>>
>>Yossi
>
>A way I see would need to define a window.
>
>*next two lines pseudocode
>lcProg1 = YourFirst.prg
>lcProg2 = YourSecond.prg
>*fix the dimensions
>DEFINE WINDOW 'blabla' FROM 1,1  TO 10,10 ZOOM MINIMIZE FLOAT CLOSE GROW TITLE (lcProg1) IN SCREEN NAME Prog1
>DEFINE WINDOW 'blabla' FROM 2,2  TO 10,10 ZOOM MINIMIZE FLOAT CLOSE GROW TITLE (lcProg2) IN SCREEN NAME Prog2
>MODIFY COMMAND (lcProg1) IN WINDOW Prog1
>ACTIVATE WINDOW Prog1
>MODIFY COMMAND (lcProg2) IN WINDOW Prog2
>ACTIVATE WINDOW Prog2
>
I had to modify your program slightly. The titles appear correctly, BUT both windows are blank and readonly! Please see comments at the begginning of the program.
*This is the line used to invoke this program
*do \common30\mc2 WITH '\posprgs\pos\help2', '\posprgs\po\help2'

*this works when execuited from the command line
*MODIFY COMMAND \posprgs\pos\help2

LPARAMETERS tcProg1, tcProg2

DEFINE WINDOW tcProg1 FROM 0,0  TO 57,60 ZOOM MINIMIZE FLOAT CLOSE GROW TITLE (tcProg1) IN SCREEN NAME Prog1
DEFINE WINDOW tcProg2 FROM 0,61  TO 57,120 ZOOM MINIMIZE FLOAT CLOSE GROW TITLE (tcProg2) IN SCREEN NAME Prog2
MODIFY COMMAND (tcProg1) IN WINDOW tcProg1
ACTIVATE WINDOW tcProg1
MODIFY COMMAND (tcProg2) IN WINDOW tcProg2
ACTIVATE WINDOW tcProg2
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform