Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Full path in title bar
Message
De
18/03/2009 13:18:20
 
 
À
18/03/2009 11:37:43
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:
01389170
Vues:
72
OK, I solved it. Thanks to Agnes Beste for pointing to the right solution. Thanks also to Mike and Srdjan.
*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

* The 'system' option creates scrollbars.
DEFINE WINDOW tcProg1 FROM 0,0  TO 57,60 FONT 'Courier New', 10 ZOOM MINIMIZE SYSTEM FLOAT CLOSE GROW TITLE (tcProg1) IN SCREEN NAME Prog1
DEFINE WINDOW tcProg2 FROM 0,61  TO 57,120 FONT 'Courier New', 10 ZOOM MINIMIZE SYSTEM FLOAT CLOSE GROW TITLE (tcProg2) IN SCREEN NAME Prog2
MODIFY COMMAND (tcProg1) WINDOW tcProg1 nowait
*ACTIVATE WINDOW tcProg1
MODIFY COMMAND (tcProg2) WINDOW tcProg2 nowait
*ACTIVATE WINDOW tcProg2
>>>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
Répondre
Fil
Voir

Click here to load this message in the networking platform