home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2002 March / PCWMAR02.iso / software / turbocad / v8trial / TurboCADv8ProfessionalNoReg.exe / Data.Cab / F40629_frmSelInfo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-16  |  1.6 KB  |  41 lines
  1. VERSION 5.00
  2. Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSelInfo 
  3.    Caption         =   "Extended Selection Information"
  4.    ClientHeight    =   3765
  5.    ClientLeft      =   48
  6.    ClientTop       =   336
  7.    ClientWidth     =   8424
  8.    OleObjectBlob   =   "frmSelInfo.frx":0000
  9.    StartUpPosition =   1  'CenterOwner
  10. Attribute VB_Name = "frmSelInfo"
  11. Attribute VB_GlobalNameSpace = False
  12. Attribute VB_Creatable = False
  13. Attribute VB_PredeclaredId = True
  14. Attribute VB_Exposed = False
  15. '******************************************************************'
  16. '*                                                                *'
  17. '*                      TurboCAD for Windows                      *'
  18. '*                   Copyright (c) 1993 - 2001                    *'
  19. '*             International Microcomputer Software, Inc.         *'
  20. '*                            (IMSI)                              *'
  21. '*                      All rights reserved.                      *'
  22. '*                                                                *'
  23. '******************************************************************'
  24. Private Sub btnCleanUp_Click()
  25.     On Error Resume Next
  26.     ClearInfoLayer
  27. End Sub
  28. Private Sub btnDrawVerts_Click()
  29.     On Error Resume Next
  30.     ClearInfoLayer
  31.     DrawVertices chkAll.Value
  32. End Sub
  33. Private Sub btnDump_Click()
  34.     On Error Resume Next
  35.     PrintInfoToFile Trim(frmSelInfo.txtFilename), chkAll.Value
  36. End Sub
  37. Private Sub btnGetInfo_Click()
  38.     On Error Resume Next
  39.     AddDrawingNodes frmSelInfo.tvwResults.nodes, chkAll.Value
  40. End Sub
  41.