home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2002 March / PCWMAR02.iso / software / turbocad / v8trial / TurboCADv8ProfessionalNoReg.exe / Data.Cab / F41826_frmRender.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-11-18  |  4.1 KB  |  116 lines
  1. VERSION 5.00
  2. Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmRender 
  3.    Caption         =   "Render Manager"
  4.    ClientHeight    =   4380
  5.    ClientLeft      =   45
  6.    ClientTop       =   330
  7.    ClientWidth     =   4440
  8.    OleObjectBlob   =   "frmRender.frx":0000
  9.    StartUpPosition =   1  'CenterOwner
  10. Attribute VB_Name = "frmRender"
  11. Attribute VB_GlobalNameSpace = False
  12. Attribute VB_Creatable = False
  13. Attribute VB_PredeclaredId = True
  14. Attribute VB_Exposed = False
  15. Option Explicit
  16. Private Sub cm_close_Click()
  17.     Unload Me
  18. End Sub
  19. Private Sub cm_EndRender_Click()
  20.     Set Rv = Dr.ActiveView.RenderView
  21.     If Rv.IsRenderRunned Then
  22.         Rv.EndRender
  23.     Else
  24.         MsgBox "There is no render runned in the active view !"
  25.     End If
  26. End Sub
  27. Private Sub UserForm_Initialize()
  28.     Set App = IMSIGX.Application
  29.     Set Rs = App.Renders
  30.     Set Dr = App.ActiveDrawing
  31.     Set V = Dr.ActiveView
  32.     Call FillTreeView
  33. End Sub
  34. Function RenderModeFromName(ByVal RenderModeName As String) As ImsiRenderMode
  35.     If (RenderModeName = "Flat") Then
  36.         RenderModeFromName = imsiRenderModeFlat
  37.         Exit Function
  38.     ElseIf (RenderModeName = "Gouraud") Then
  39.         RenderModeFromName = imsiRenderModeGouraud
  40.         Exit Function
  41.     ElseIf (RenderModeName = "Phong") Then
  42.         RenderModeFromName = imsiRenderModePhong
  43.         Exit Function
  44.     ElseIf (RenderModeName = "Preview") Then
  45.         RenderModeFromName = imsiRenderModePreview
  46.         Exit Function
  47.     ElseIf (RenderModeName = "Full") Then
  48.         RenderModeFromName = imsiRenderModeFull
  49.         Exit Function
  50.     ElseIf (RenderModeName = "Raytrace Preview") Then
  51.         RenderModeFromName = imsiRenderModeRtPreview
  52.         Exit Function
  53.     ElseIf (RenderModeName = "Raytrace Full") Then
  54.         RenderModeFromName = imsiRenderModeRtFull
  55.         Exit Function
  56.     ElseIf (RenderModeName = "Wireframe") Then
  57.         RenderModeFromName = imsiRenderModeWireFrame
  58.         Exit Function
  59.     ElseIf (RenderModeName = "Hidden Line") Then
  60.         RenderModeFromName = imsiRenderModeHiddenLine
  61.         Exit Function
  62.     ElseIf (RenderModeName = "Radiosity") Then
  63.         RenderModeFromName = imsiRenderModeRadiosity
  64.         Exit Function
  65.     ElseIf (RenderModeName = "Radiosity") Then
  66.         RenderModeFromName = imsiRenderModeRadiosity
  67.         Exit Function
  68.     ElseIf (RenderModeName = "LWOpenGL_Flat") Then
  69.         RenderModeFromName = imsiRenderModeLWOpenGL_Flat
  70.         Exit Function
  71.     ElseIf (RenderModeName = "LWOpenGL_Smooth") Then
  72.         RenderModeFromName = imsiRenderModeLWOpenGL_Smooth
  73.         Exit Function
  74.     ElseIf (RenderModeName = "LWOpenGL_Wire") Then
  75.         RenderModeFromName = imsiRenderModeLWOpenGL_Wire
  76.         Exit Function
  77.     ElseIf (RenderModeName = "LWOpenGL_Wire_Color") Then
  78.         RenderModeFromName = imsiRenderModeLWOpenGL_Wire_Color
  79.         Exit Function
  80.     ElseIf (RenderModeName = "LWOpenGL_Hidden") Then
  81.         RenderModeFromName = imsiRenderModeLWOpenGL_Hidden
  82.         Exit Function
  83.     ElseIf (RenderModeName = "LWOpenGL_Hidden_Color") Then
  84.         RenderModeFromName = imsiRenderModeLWOpenGL_Hidden_Color
  85.         Exit Function
  86.     End If
  87. End Function
  88. Private Function FillTreeView()
  89.     Dim n As Long
  90.     Dim N1 As node
  91.     Dim RenderModes As Variant
  92.     Dim ExRenderModes As Variant
  93.     Dim res As Boolean
  94.     Dim m As Long
  95.     For n = 0 To Rs.count - 1
  96.             Set N1 = TreeView1.Nodes.Add(, , , Rs(n).Name)
  97.             Set R = Rs.Item(n)
  98.             RenderModes = R.modes
  99.             For m = 0 To UBound(RenderModes)
  100.                 TreeView1.Nodes.Add N1, tvwChild, , RenderModes(m)
  101.             Next m
  102.             N1.Expanded = True
  103.     Next n
  104. End Function
  105. Private Sub TreeView1_NodeClick(ByVal node As node)
  106.     Dim bRRunned As Boolean
  107.     If Dr.ActiveView.SpaceMode = imsiPaperSpace Then
  108.         MsgBox "Can't run Render in paper space. Switch to model space and try again. "
  109.         Exit Sub
  110.     End If
  111.     If node.Children <> 0 Then Exit Sub
  112.     Set R = Rs.Item(node.Parent.Text)
  113.     R.DefaultMode = RenderModeFromName(node.Text)
  114.     R.Run Dr.ActiveView
  115. End Sub
  116.