Initial commit — sursa COMUN (framework partajat ROA)

utile/ctl32/ctl32.prg

@@ -0,0 +1,39 @@
+********************************************************************************
+*!* 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
+
+