Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Full path in title bar
Message
From
18/03/2009 11:37:43
 
 
To
18/03/2009 09:46:53
Lutz Scheffler
Lutz Scheffler Software Ingenieurbüro
Dresden, Germany
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Miscellaneous
Thread ID:
01389067
Message ID:
01389142
Views:
74
>>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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform