Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Class Code not fired without Scope Resolution
Message
From
26/01/2007 10:44:50
 
 
To
26/01/2007 09:28:01
Gary Foster
Pointsource Consulting LLC
Chanhassen, Minnesota, United States
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Environment versions
Visual FoxPro:
VFP 7 SP1
OS:
Windows XP SP2
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01189501
Message ID:
01189650
Views:
6
Good call, Gary

That made me think. As I said, I'd put these nav buttons in a container. I checked my nav buttons container, complete with its set of buttons, and found I'd put:

Thisform.nOldRec = RECNO()

in the .click() of each, thus hijacking their native code.

Du-UH!

Thing is, though, in my defence, I made the classes years ago but this is the first time I've used the buttons stand-alone, asdescribed in my initial question.


>Assuming that mclNext::Click() is not the next method in the object chain, you might check for even a single space in the immediate parent class. That's almost invisible and will stop the calling chain.

Cheers

Terry

>
>Gary
>
>>I have a series of rec navigation button classes, set in a container, with .Click() code as, for example the below "Go to next record" button: mclNext
>>
>>Select ( thisform.cpAlias)
>>If not EOF()
>>    Skip 1
>>    If EOF()
>>	Go BOTTOM
>>	This.Enabled                 = .F.
>>	This.Parent.cmdLast.Enabled  = .F.
>>    Endif
>>    With This.Parent
>>      .cmdPrev.Enabled                = .T.
>>      .cmdFirst.Enabled               = .T.
>>    EndWith
>>EndIf not EOF()
>>Thisform.Refresh
>>
>>
>>thisform.cpAlias is a text prop bearing the name of the form's subject table
>>
>>Now I often use this is conjunction with other commands, e.g. when the user clicks the Next button, and the next record is reached, I want certain other data to be got, certain things diplayed, etc. So I often embed in the form button's .Click() things like:
>>
>>
>>mclNext::Click()
>>Thisform.lmGetRouteDetails()
>>
>>
>>On my latest form, though, all I want is the next record, so I leave the .click() empty, to do the default class code. But when I click the button nothing happens. In Trace it doesn't go into the class code. So I have to include
>>
>>mclNext::Click()
>>
>>in the .Click() method to make it work.
>>
>>Wassup with that?
>>
>>'ppreciate it
>>
>>Terry
- Whoever said that women are the weaker sex never tried to wrest the bedclothes off one in the middle of the night
- Worry is the interest you pay, in advance, for a loan that you may never need to take out.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform