home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2002 March / PCWMAR02.iso / software / turbocad / V4 / tcw.z / tcwapi40.app < prev    next >
Text File  |  1997-10-03  |  10KB  |  329 lines
  1. '******************************************************************
  2. '*                                                                *
  3. '*                      TurboCAD for Windows                      *
  4. '*                   Copyright (c) 1993 - 1996                    *
  5. '*             International Microcomputer Software, Inc.         *
  6. '*                            (IMSI)                              *
  7. '*                      All rights reserved.                      *
  8. '*                                                                *
  9. '******************************************************************
  10. '  This file gets appended to scripts.  These routines are        '
  11. '  used to support getting and setting properties.  They          '
  12. '  were written to get around a missing feature in Enable         '
  13. '  Basic - Variants are not supported with dlls.                  '
  14. '                 DO NOT CHANGE THIS FILE                         '
  15.  
  16. Declare Function TCWGetIntResult lib "TCAPI40" ( _ 
  17. ) As Integer
  18.  
  19. Declare Function TCWGetLongResult lib "TCAPI40" ( _ 
  20. ) As Long
  21.  
  22. Declare Function TCWGetDoubleResult lib "TCAPI40" ( _ 
  23. ) As Double
  24.  
  25. Declare Function TCWGetStringResult lib "TCAPI40" ( _ 
  26.     ByRef tcwstr As String _ 
  27. )
  28.  
  29. Declare Function TCWLayerPropertySetInt lib "TCAPI40" ( _ 
  30.     ByVal tcwl As Long, _ 
  31.     ByRef tcwstr As String, _ 
  32.     ByVal tcwvalue As Integer _ 
  33. )As Long
  34.  
  35. Declare Function TCWLayerPropertySetLong lib "TCAPI40" ( _ 
  36.     ByVal tcwl As Long, _ 
  37.     ByRef tcwstr As String, _ 
  38.     ByVal tcwvalue As Long _ 
  39. )As Long
  40.  
  41. Declare Function TCWLayerPropertySetString lib "TCAPI40" ( _ 
  42.     ByVal tcwl As Long, _ 
  43.     ByRef tcwstr As String, _ 
  44.     ByRef tcwvalue As String _ 
  45. )As Long
  46.  
  47. Declare Function TCWAppPropertySetInt lib "TCAPI40" ( _ 
  48.     ByRef tcwstr As String, _ 
  49.     ByVal tcwvalue As Integer _ 
  50. )As Long
  51.  
  52. Declare Function TCWAppPropertySetLong lib "TCAPI40" ( _ 
  53.     ByRef tcwstr As String, _ 
  54.     ByVal tcwvalue As Long _ 
  55. )As Long
  56.  
  57. Declare Function TCWAppPropertySetDbl lib "TCAPI40" ( _ 
  58.     ByRef tcwstr As String, _ 
  59.     ByVal tcwvalue As Double _ 
  60. ) As Long
  61.  
  62. Declare Function TCWAppPropertySetString lib "TCAPI40" ( _ 
  63.     ByRef tcwstr As String, _ 
  64.     ByRef tcwvalue As String _ 
  65. )As Long
  66.  
  67. Declare Function TCWDrawingPropertySetInt lib "TCAPI40" ( _ 
  68.     ByRef tcwstr As String, _ 
  69.     ByVal tcwvalue As Integer _ 
  70. )As Long
  71.  
  72. Declare Function TCWDrawingPropertySetLong lib "TCAPI40" ( _ 
  73.     ByRef tcwstr As String, _ 
  74.     ByVal tcwvalue As Long _ 
  75. )As Long
  76.  
  77. Declare Function TCWDrawingPropertySetDbl lib "TCAPI40" ( _ 
  78.     ByRef tcwstr As String, _ 
  79.     ByVal tcwvalue As Double _ 
  80. )As Long
  81.  
  82. Declare Function TCWDrawingPropertySetString lib "TCAPI40" ( _ 
  83.     ByRef tcwstr As String, _ 
  84.     ByRef tcwvalue As String _ 
  85. )As Long
  86.  
  87. Declare Function TCWGraphicPropertySetInt lib "TCAPI40" ( _ 
  88.     ByVal tcwg As Long,  _ 
  89.     ByRef tcwstr As String, _ 
  90.     ByVal tcwvalue As Integer _ 
  91. )As Long
  92.  
  93. Declare Function TCWGraphicPropertySetLong lib "TCAPI40" ( _ 
  94.     ByVal tcwg As Long, _ 
  95.     ByRef tcwstr As String, _ 
  96.     ByVal tcwvalue As Long _ 
  97. )As Long
  98.  
  99. Declare Function TCWGraphicPropertySetDbl lib "TCAPI40" ( _ 
  100.     ByVal tcwg As Long, _ 
  101.     ByRef tcwstr As String, _ 
  102.     ByVal tcwvalue As Double _ 
  103. )As Long
  104.  
  105. Declare Function TCWGraphicPropertySetString lib "TCAPI40" ( _ 
  106.     ByVal tcwg As Long, _ 
  107.     ByRef tcwstr As String, _ 
  108.     ByRef tcwvalue As String _ 
  109. )As Long
  110.  
  111. Declare Function TCWLayerPropertyGetX lib "TCAPI40" ( _ 
  112.     ByVal tcwlayer As Long, _ 
  113.     ByRef tcwpropertyname As String _ 
  114. ) As Long
  115.  
  116. Declare Function TCWAppPropertyGetX lib "TCAPI40" ( _ 
  117.     ByRef tcwpropertyname As String _ 
  118. ) As Long
  119.  
  120. Declare Function TCWDrawingPropertyGetX lib "TCAPI40" ( _ 
  121.     ByRef tcwpropertyname As String _ 
  122. ) As Long
  123.  
  124. Declare Function TCWGraphicPropertyGetX lib "TCAPI40" ( _ 
  125.     ByVal tcwg As Long, _ 
  126.     ByRef tcwpropertyname As String _ 
  127. ) As Long
  128.  
  129. 'Functions begin
  130. Function TCWAppPropertyGet(ByVal tcwstr As String) As Variant
  131.   Dim tcwResult As Variant
  132.   Dim tcwRType As Long
  133.  
  134.   tcwRType = TCWAppPropertyGetX(tcwstr)
  135.   tcwResult = TCWGetResult(tcwRType)
  136.   TCWAppPropertyGet = tcwResult
  137.  
  138. End Function
  139.  
  140. Function TCWAppPropertySet(ByVal tcwstr As String, ByVal tcwvalue As Variant) As Long
  141.   Dim tcwResult As Long
  142.   Dim tcwRType As Long
  143.   Dim tcwIType As Integer
  144.   Dim tcwLType As Long
  145.   Dim tcwDType As Double
  146.   Dim tcwSType As String
  147.   Dim vt As Long
  148.  
  149.   vt = TCWAppPropertyGetX(tcwstr)  
  150.   If (vt = 2) Then
  151.     tcwIType = tcwvalue
  152.     tcwResult = TCWAppPropertySetInt(tcwstr, tcwIType)  
  153.   ElseIf (vt = 3) Then
  154.     tcwLType = tcwvalue
  155.     tcwResult = TCWAppPropertySetLong(tcwstr, tcwLType)
  156.   ElseIf (vt = 5) Then
  157.     tcwDType = tcwvalue
  158.     tcwResult = TCWAppPropertySetDbl(tcwstr, tcwDType)
  159.   ElseIf (vt = 8) Then
  160.     tcwSType = tcwvalue
  161.     tcwResult = TCWAppPropertySetString(tcwstr, tcwSType)
  162.   ElseIf (vt = 11) Then
  163.     tcwIType = tcwvalue
  164.     tcwResult = TCWAppPropertySetInt(tcwstr, tcwIType)
  165.   Else 
  166.     MsgBox "Property type " & vt & " not supported"
  167.   End If
  168.  
  169.   TCWAppPropertySet = tcwResult
  170.  
  171. End Function
  172.  
  173.  
  174. Function TCWDrawingPropertyGet(ByVal tcwstr As String) As Variant
  175.   Dim tcwResult As Variant
  176.   Dim tcwRType As Long
  177.  
  178.   tcwRType = TCWDrawingPropertyGetX(tcwstr)
  179.   tcwResult = TCWGetResult(tcwRType)
  180.   TCWDrawingPropertyGet = tcwResult
  181.  
  182. End Function
  183.  
  184. Function TCWDrawingPropertySet(ByVal tcwstr As String, ByVal tcwvalue As Variant) As Long
  185.   Dim tcwResult As Long
  186.   Dim tcwRType As Long
  187.   Dim tcwIType As Integer
  188.   Dim tcwLType As Long
  189.   Dim tcwDType As Double
  190.   Dim tcwSType As String
  191.   Dim vt As Long
  192.  
  193.   vt = TCWDrawingPropertyGetX(tcwstr)
  194.   If (vt = 2) Then
  195.     tcwIType = tcwvalue
  196.     tcwResult = TCWDrawingPropertySetInt(tcwstr, tcwIType)  
  197.   ElseIf (vt = 3) Then
  198.     tcwLType = tcwvalue
  199.     tcwResult = TCWDrawingPropertySetLong(tcwstr, tcwLType)
  200.   ElseIf (vt = 5) Then
  201.     tcwDType = tcwvalue
  202.     tcwResult = TCWDrawingPropertySetDbl(tcwstr, tcwDType)
  203.   ElseIf (vt = 8) Then
  204.     tcwSType = tcwvalue
  205.     tcwResult = TCWDrawingPropertySetSTring(tcwstr, tcwSType)
  206.   ElseIf (vt = 11) Then
  207.     tcwIType = tcwvalue
  208.     tcwResult = TCWDrawingPropertySetInt(tcwstr, tcwIType)
  209.   Else 
  210.     MsgBox "Property type " & vt & " not supported"
  211.   End If
  212.  
  213.   TCWDrawingPropertySet = tcwResult
  214.  
  215. End Function
  216.  
  217. Function TCWGraphicPropertyGet(ByVal tcwg As Long, ByVal tcwstr As String) As Variant
  218.   Dim tcwResult As Variant
  219.   Dim tcwRType As Long
  220.  
  221.   tcwRType = TCWGraphicPropertyGetX(tcwg, tcwstr)
  222.   tcwResult = TCWGetResult(tcwRType)
  223.   TCWGraphicPropertyGet = tcwResult
  224.  
  225. End Function
  226.  
  227. Function TCWGraphicPropertySet(ByVal tcwg As Long, ByVal tcwstr As String, ByVal tcwvalue As Variant) As Long
  228.   Dim tcwResult As Long
  229.   Dim tcwRType As Long
  230.   Dim tcwIType As Integer
  231.   Dim tcwLType As Long
  232.   Dim tcwDType As Double
  233.   Dim tcwSType As String
  234.   Dim vt As Long
  235.  
  236.   vt = TCWGraphicPropertyGetX(tcwg, tcwstr)
  237.   If (vt = 2) Then
  238.     tcwIType = tcwvalue
  239.     tcwResult = TCWGraphicPropertySetInt(tcwg, tcwstr, tcwIType)  
  240.   ElseIf (vt = 3) Then
  241.     tcwLType = tcwvalue
  242.     tcwResult = TCWGraphicPropertySetLong(tcwg, tcwstr, tcwLType)
  243.   ElseIf (vt = 5) Then
  244.     tcwDType = tcwvalue
  245.     tcwResult = TCWGraphicPropertySetDbl(tcwg, tcwstr, tcwDType)
  246.   ElseIf (vt = 8) Then
  247.     tcwSType = tcwvalue
  248.     tcwResult = TCWGraphicPropertySetString(tcwg, tcwstr, tcwSType)
  249.   ElseIf (vt = 11) Then
  250.     tcwIType = tcwvalue
  251.     tcwResult = TCWGraphicPropertySetInt(tcwg, tcwstr, tcwIType)
  252.   Else 
  253.     MsgBox "Property type " & vt & " not supported"
  254.   End If
  255.  
  256.   TCWGraphicPropertySet = tcwResult
  257.  
  258. End Function
  259.  
  260. Function TCWLayerPropertyGet(ByVal tcwl As Long, ByVal tcwstr As String) As Variant
  261.   Dim tcwResult As Variant
  262.   Dim tcwRType As Long
  263.  
  264.   tcwRType = TCWLayerPropertyGetX(tcwl, tcwstr)
  265.   tcwResult = TCWGetResult(tcwRType)
  266.  
  267.   TCWLayerPropertyGet = tcwResult
  268.  
  269. End Function
  270.  
  271. Function TCWLayerPropertySet(ByVal tcwl As Long, ByVal tcwstr As String, ByVal tcwvalue As Variant) As Long
  272.   Dim tcwResult As Long
  273.   Dim tcwRType As Long
  274.   Dim tcwIType As Integer
  275.   Dim tcwLType As Long
  276.   Dim tcwSType As String
  277.   Dim vt As Long
  278.  
  279.   vt = TCWLayerPropertyGetX(tcwl, tcwstr)
  280.   If (vt = 2) Then
  281.     tcwIType = tcwvalue
  282.     tcwResult = TCWLayerPropertySetInt(tcwl, tcwstr, tcwIType)  
  283.   ElseIf (vt = 3) Then
  284.     tcwLType = tcwvalue
  285.     tcwResult = TCWLayerPropertySetLong(tcwl, tcwstr, tcwLType)
  286.   ElseIf (vt = 8) Then
  287.     tcwSType = tcwvalue
  288.     tcwResult = TCWLayerPropertySetString(tcwl, tcwstr, tcwSType)
  289.   ElseIf (vt = 11) Then
  290.     tcwIType = tcwvalue
  291.     tcwResult = TCWLayerPropertySetInt(tcwl, tcwstr, tcwIType)
  292.   Else 
  293.     MsgBox "Property type " & vt & " not supported"
  294.   End If
  295.  
  296.   TCWLayerPropertySet = tcwResult
  297.  
  298. End Function
  299.  
  300. Function TCWGetResult(ByVal tcwret As Long) As Variant
  301. Dim tcwResult As Variant
  302. Dim tcwIType As Integer
  303. Dim tcwDType As Double
  304. Dim tcwLType As Long
  305. Dim tcwSType As String
  306.  
  307.   If (tcwret = 0) Then
  308.     tcwResult = 0
  309.   ElseIf (tcwret = 2) Then
  310.     tcwIType = TCWGetIntResult()  
  311.     tcwResult = tcwIType
  312.   ElseIf (tcwret = 3) Then
  313.     tcwLType = TCWGetLongResult()
  314.     tcwResult = tcwLType
  315.   ElseIf (tcwret = 5) Then
  316.     tcwDType = TCWGetDoubleResult()
  317.     tcwResult = tcwDType
  318.   ElseIf (tcwret = 8) Then
  319.     TCWGetStringResult tcwSType
  320.     tcwResult = tcwSType
  321.   ElseIf (tcwret = 11) Then
  322.     tcwIType = TCWGetIntResult()
  323.     tcwResult = tcwIType
  324.   End If
  325.  
  326.   TCWGetResult = tcwResult
  327. End Function
  328.  
  329.