Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
VFP 6 menus in VFP 5?
Message
From
23/06/1999 21:22:30
 
 
To
21/06/1999 06:52:07
Franz Mueller
J. Schuh Ges.m.b.H.
Kirchberg, Austria
General information
Forum:
Visual FoxPro
Category:
Menus & Menu designer
Miscellaneous
Thread ID:
00228774
Message ID:
00233289
Views:
79
Thanks Franz.

>Hi Mark,
>
>Here is very simple example how you can do this automaticaly.
>
>**************************************************
>*-- Class: pjhConvertMNU (project_hook.vcx)
>*-- ParentClass: projecthook
>*-- BaseClass: projecthook
>*-- Zeitstempel: 06/21/99 12:55:06 PM
>*
>DEFINE CLASS pjhconvertmnu AS projecthook
>
>
> Height = 22
> Width = 23
> Name = "pjhconvertmnu"
>
> *-- saves the filename of all modified menues
> DIMENSION iaopenedmenues[1]
>
>
> PROCEDURE QueryModifyFile
> LPARAMETERS oFile, cClassName
>
> LOCAL lcFileName, lnCount
> lcFileName = oFile.Name && Name of the file which is opened now
>
> *
> * check if the file is a menu and if it is not registered yet
> *
> IF UPPER(JUSTEXT(lcFileName)) = "MNX" AND ASCAN(this.iaOpenedMenues, lcFileName) = 0
> lnCount = ALEN(this.iaOpenedMenues)
> IF NOT (lnCount = 1 AND VARTYPE(this.iaOpenedMenues[1]) = "L")
> DIMENSION this.iaOpenedMenues[lnCount + 1]
> lnCount = lnCount + 1
> ENDIF
> this.iaOpenedMenues[lnCount] = lcFileName
> ENDIF
> ENDPROC
>
>
> PROCEDURE Destroy
> IF ALEN(this.iaOpenedMenues) >= 1 AND NOT VARTYPE(this.iaOpenedMenues[1]) = "L"
> LOCAL lnI
>
> FOR lnI = 1 TO ALEN(this.iaOpenedMenues)
> USE (this.iaOpenedMenues[lnI]) ALIAS tmpMenu EXCLUSIVE
> =AFIELDS(laFileStructure)
> IF laFileStructure[22, 1] = "LOCATION" AND ;
> laFileStructure[22, 3] = 2
>
> *
> * we have a menu in VFP 6 fileformat, so we modify this menu
> *
> WAIT CLEAR
> WAIT WINDOW "Menu " + this.iaOpenedMenues[lnI] + " is converted to VFP 5!" NOWAIT
> alter table tmpMenu alter column location N(1)
> ENDIF
> USE IN tmpMenu
> ENDFOR
> WAIT CLEAR
> WAIT WINDOW "Updating of all menues is complete!" NOWAIT
> ENDIF
> ENDPROC
>
>
>ENDDEFINE
>*
>*-- EndDefine: pjhsetdefaults
>**************************************************
>
>Regards
>
> Franz
>
>
>>How would I do that?
>>
>>
>>>Hi Mark,
>>>
>>>>Thanks, but I was trying to deal with the PM problem. Oh well. I'll just have to modify delivered code.
>>>>
>>>
>>>I have an other idea. What do you think about writing a project-hook, which makes the necessary change to the file structure, after you have opened and modified your menu in VFP 6.
>>>
>>>e.g.:
>>>yourmenu.mnx (VFP 5 file-format) --> you can open it in VFP 5 and VFP 6
>>>in VFP 5: you do not have to do anything
>>>in VFP 6: after opening and modifying the menu, VFP 6 changes the structure.
>>> After closing the menu, your project hook undoes the structure
>>> changes
>>>
>>>Can you follow my ideas?
>>>
>>>Regards
>>>
>>> Franz
Previous
Reply
Map
View

Click here to load this message in the networking platform