********************************************************************************
*!* ctl32.prg
********************************************************************************
*!* This is the main file for the ctl32 classes. This gets called by
*!* each and every class in the Init event.

#Include ctl32.h

*!* Adding this file location to the path list. ADDITIVE is not used, it seems
*!* to have problems with expressions, so to avoid using macro substitution:
If .F.
	Local m.lcPath As String

	m.lcPath = Addbs(Justpath(Sys(16)))

	If Empty(Set("Path")) Then
		Set Path To (m.lcPath)
	Else
		If Not m.lcPath $ Set("Path") Then
			Set Path To (Set("Path") + ";" + m.lcPath)
		Endif
	Endif

	*!* Load the main visual classes VCX file:
	If Not "CTL32.VCX" $ Upper(Set("Classlib")) Then
		Set Classlib To m.lcPath + "ctl32.vcx" Additive
	Endif
Endif

*!* Load ctl32 modules:
Do ctl32_api.prg
Do ctl32_classes.prg
Do ctl32_functions.prg
Do ctl32_structures.prg
Do ctl32_vfp2c32.prg

Return


