Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Error with Tooltips
Message
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00903265
Message ID:
00903362
Views:
12
>Look at the PEMSTATUS function in help. Message #895411 has an example. A FOR EACH loop in your VFP 7 forms init. But I don't knowe if that updates the SCX?
>
>You could hack the scx.
>
use myform.scx
>*W*A*R*N*I*N*G MAKE SURE YOU HAVE BACKUP OF PROJECT
>go top
>SCAN
>lnATLINE=ATLINE("ToolTipText =",myform.properties)
* had to fix this one, sorry, checkin for less than 2 quotes
if lnATLINE>0 and occurs(["],mline(myform.properties,lnALINE))<2
>   * We have a prospect, move it to an array
>   ALINE(arTmp,myform.properties)
>   lcFixLine=substr(arTmp[lnATLINE],14,1000) && First char after the equal
>   lcFixLine=["]+strtran(lcFixLine,["],[ ])+["] && Bye Bye and hello
>   arTmp[lnATLINE]="ToolTipText ="+lcFixLine
>   replace myform.properties with "" && Empty it out
>   lcFixLine=""
>   for c=1 to alen(arTmp) && Build replacement string
>   lcFixLine=lcFixLine+arTmp[c]+chr(13)
>   endfor
>   replace myform.properties with lcFixLine
>else
>endif
>ENDSCAN
>
>P.S.
>Not tested:)
>
>>Hi
>>
>>
>>When upgrading a VFP 7.0 's project to 8.0 i have a Syntazx Error message in almost forms. It's because some TooltipText properties doesn't have "".
>>
>>How can i change it automatically?
>>(at this moment, i have to open my form with VFP 7.0, change the TooptipText, and open with VFP 8).
>>
>>
>>Best regards,
>>
>>
>>Ricardo Almeida
Imagination is more important than knowledge
Previous
Reply
Map
View

Click here to load this message in the networking platform