Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
MM and Win2K
Message
 
To
09/03/2000 20:10:55
Rex Mahel
Realm Software, Llc
Ohio, United States
General information
Forum:
Visual FoxPro
Category:
The Mere Mortals Framework
Title:
Miscellaneous
Thread ID:
00343974
Message ID:
00344292
Views:
21
Rex,

>Just wondering if you have updated the framework for Win2K?

>One place I found is in CAppBase.GetSystemSettingClass() replacing the following line:
>
>CASE UPPER(OS()) = "WINDOWS NT" OR LEFT(UPPER(OS()),9) = "WINDOWS 4"
>
>with
>
>CASE UPPER(OS()) = "WINDOWS NT" OR LEFT(UPPER(OS()),9) = "WINDOWS 4" OR LEFT(UPPER(OS()),9) = "WINDOWS 5".>

Actually, I just did last week...As soon as we get our new web site on line (which should be soon!) I'll post this and a few other changes. However, for now...

The only change I've needed to make (so far) has been in the GetSystemSettingClass() method. However, I've changed this method completely, since it really doesn't need to check for 16-bit Windows at all.

Here's all the code for the updated CAppBase.GetSystemSettingClass() method:

LOCAL lcSystemSettingClass

IF !This.lUseINIFile
*--------------------------------------------------------------
*-- Define the cRegistry as the class handling system settings.
*--------------------------------------------------------------
lcSystemSettingClass = "Registry"

*-----------------------
*-- Get the registry key
*-----------------------
This.cRegistryKey = This.GetRegistryKey()

*------------------------------
*-- Initialize the INI property
*------------------------------
This.cINIFile = ""
ELSE
*-------------------------------------------------------
*-- Assume the class that is handling the system setting
*-- is the CINIFile class (16 Bit OS
*-------------------------------------------------------
lcSystemSettingClass = "INIFile"

*--------------------------------------------------------
*-- Initialize the cRegistryKey property, again under the
*-- assumption we are using a 16 Bit OS
*--------------------------------------------------------
this.cRegistryKey = ""

*--------------------------------------------------
*-- Retrieve the name of the application's INI file
*--------------------------------------------------
This.cINIFile = This.GetINIFile()
ENDIF

RETURN lcSystemSettingClass

Regards,
Kevin McNeish
Eight-Time .NET MVP
VFP and iOS Author, Speaker & Trainer
Oak Leaf Enterprises, Inc.
Chief Architect, MM Framework
http://www.oakleafsd.com
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform