40 lines
1.0 KiB
Plaintext
40 lines
1.0 KiB
Plaintext
********************************************************************************
|
|
*!* 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
|
|
|
|
|