That is the code that would be created by the Builder that ships with VFP8. I include exactly as the builder would create it so the builder will be able to detect it and not add code twice.
The reason for the code is to prevent certain methods from running more than once during instanciation. It is also a workaround because the methods fire in a strange order. Primarily because the Init is called *after* the CursorFill. So to make sense of the the way the code flows, start with the AutoOpen code which calls the Init BEFORE allowing the CursorFill to fire.
>Hi Mark !
>I know that such code (see code below) produce cursoradapter builder. Do you know what for is the code. When __VFPSetup property is used. For me it looks quite strange.
>
>
>>do case
>> case not pemstatus(This, '__VFPSetup', 5)
>> This.AddProperty('__VFPSetup', 0)
>> case This.__VFPSetup = 2
>> This.__VFPSetup = 0
>> return
>>endcase
Mark McCasland
Midlothian, TX USA