Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Got SDT 5.1 Working, heres how...
Message
From
04/11/1998 15:18:56
 
General information
Forum:
Visual FoxPro
Category:
The Mere Mortals Framework
Miscellaneous
Thread ID:
00140845
Message ID:
00154517
Views:
23
Hi Kevin -

Besides the changes you mentioned here....

>
>If you make the following change to the Framework's CStonefield class, it will accomplish something similar to what you had discovered:
>
>CStoneField.Init()
>
>Change...
>This.Parent.AddObject('oMeta', 'MetaMgr', This.Parent.lDebugMode, ;
> This.cMetaDataDir)
>
>To...
>This.Parent.oMeta = CREATEOBJ('MetaMgr', This.Parent.lDebugMode, ;
> This.cMetaDataDir)
>
>In addition, the new instructions in the Developer's Guide include information about adding an "oMeta" property to the application object.
>
>I have also made the following change to CFormMgr.AutoArrangeForms() so you don't need to add the lAutoCenter property to the MetaMgr:
>
>CFormMgr.AutoArrangeForms()
>
>Changed…
>IF TYPE("loForm") == "O" AND ;
> UPPER(loForm.BaseClass) != 'TOOLBAR' AND ;
> loForm.lAutoCenter = .T.
>
>To…
>IF TYPE("loForm") == "O" AND ;
> UPPER(loForm.BaseClass) != 'TOOLBAR' AND ;
> TYPE('loForm.lAutoCenter') == 'L' AND ;
> loForm.lAutoCenter = .T.
>

Are similar changes necessary to the cFormMgr.GetFormCount() to prevent counting the SDT Form when getting a count of all open forms. Without the following code, I seem to always have one form open (the DBCXMGR form):

CFormMgr.GetFormCount()

Changed…
IF TYPE("loForm") == "O" AND ;
UPPER(loForm.BaseClass) != 'TOOLBAR'

To…
IF TYPE("loForm") == "O" AND ;
UPPER(loForm.BaseClass) != 'TOOLBAR' AND ;
TYPE('loForm.lAutoCenter') == 'L'

Best,

Rick Hawkins
Rose Valley Software Studio
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform