home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2002 March / PCWMAR02.iso / software / turbocad / v8trial / TurboCADv8ProfessionalNoReg.exe / Data.Cab / F41708_frmPropSel.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-16  |  5.1 KB  |  144 lines
  1. VERSION 5.00
  2. Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmPropSel 
  3.    Caption         =   "UserForm1"
  4.    ClientHeight    =   3024
  5.    ClientLeft      =   48
  6.    ClientTop       =   336
  7.    ClientWidth     =   5304
  8.    OleObjectBlob   =   "frmPropSel.frx":0000
  9.    StartUpPosition =   1  'CenterOwner
  10. Attribute VB_Name = "frmPropSel"
  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 CommandButton1_Click()
  25.     If PropValue.Text <> "Absent for this Graphic" Then
  26.         GrSel.Properties.Item(GrPropName.Text).Value = CVar(PropValue.Text)
  27.         Vi.Refresh
  28.     End If
  29. End Sub
  30. Private Sub GrPropName_Click()
  31.     On Error GoTo ErrorHandler
  32.     PropValue.Enabled = True
  33. Dim PrValue As Variant
  34.     PrValue = GrSel.Properties.Item(GrPropName.Text)
  35.     PropValue.Text = CStr(PrValue)
  36.     If VarType(PrValue) = 2 Then
  37.         Label4.Caption = "Integer"
  38.     End If
  39.     If VarType(PrValue) = 3 Then
  40.         Label4.Caption = "Long"
  41.     End If
  42.     If VarType(PrValue) = 5 Then
  43.         Label4.Caption = "Double"
  44.     End If
  45.     If VarType(PrValue) = 8 Then
  46.         Label4.Caption = "String"
  47.     End If
  48.     If VarType(PrValue) = 11 Then
  49.         Label4.Caption = "Boolean"
  50.     End If
  51.     If VarType(PrValue) = 12 Then
  52.         Label4.Caption = "Variant"
  53.     End If
  54.     If VarType(PrValue) = 8192 Then
  55.         Label4.Caption = "Array"
  56.     End If
  57.     If Right(GrPropName.Text, 5) = "Color" Then
  58.         Color = PrValue
  59.         frmColorPalette.Show
  60.         PropValue.Text = CStr(Color)
  61.     End If
  62.     PenStyle.Visible = False
  63.     If GrPropName.Text = "PenStyle" Then
  64.         PenStyle.Visible = True
  65.         PenStyle.Clear
  66.         PenStyle.AddItem ("CONTINUOUS")
  67.         PenStyle.AddItem ("Border")
  68.         PenStyle.AddItem ("Center")
  69.         PenStyle.AddItem ("DashDot")
  70.         PenStyle.AddItem ("Dashed")
  71.         PenStyle.AddItem ("Divide")
  72.         PenStyle.AddItem ("Dot")
  73.         PenStyle.AddItem ("Hidden")
  74.         PenStyle.AddItem ("Phantom")
  75.     End If
  76.     If GrPropName.Text = "BrushStyle" Then
  77.         PenStyle.Visible = True
  78.         PenStyle.Clear
  79.         PenStyle.AddItem ("None")
  80.         PenStyle.AddItem ("Solid")
  81.         PenStyle.AddItem ("L45")
  82.         PenStyle.AddItem ("Gostak")
  83.         PenStyle.AddItem ("IUS")
  84.         PenStyle.AddItem ("B816")
  85.         PenStyle.AddItem ("B816C")
  86.         PenStyle.AddItem ("ARB88")
  87.         PenStyle.AddItem ("BRELM")
  88.         PenStyle.AddItem ("BRSTD")
  89.         PenStyle.AddItem ("CONC")
  90.         PenStyle.AddItem ("HBONE")
  91.         PenStyle.AddItem ("PARK1")
  92.         PenStyle.AddItem ("ANGLE")
  93.         PenStyle.AddItem ("ANSI31")
  94.         PenStyle.AddItem ("ANSI32")
  95.         PenStyle.AddItem ("ANSI33")
  96.         PenStyle.AddItem ("ANSI34")
  97.         PenStyle.AddItem ("ANSI35")
  98.         PenStyle.AddItem ("ANSI36")
  99.         PenStyle.AddItem ("ANSI37")
  100.         PenStyle.AddItem ("ANSI38")
  101.         PenStyle.AddItem ("BRICK_8X16")
  102.         PenStyle.AddItem ("BRICK_8X16C")
  103.         PenStyle.AddItem ("BRICK_8X8")
  104.         PenStyle.AddItem ("BR_ENGLISH")
  105.         PenStyle.AddItem ("BR_STRECHER")
  106.         PenStyle.AddItem ("BRICK")
  107.         PenStyle.AddItem ("BRICK_STONE")
  108.         PenStyle.AddItem ("CONCRETE_1")
  109.         PenStyle.AddItem ("CONCRETE_2")
  110.         PenStyle.AddItem ("HERRINGBONE1")
  111.         PenStyle.AddItem ("HERRINGBONE2")
  112.         PenStyle.AddItem ("PARQUET1")
  113.         PenStyle.AddItem ("PARQUETTE1")
  114.         PenStyle.AddItem ("SHINGLE")
  115.         PenStyle.AddItem ("SHAKER")
  116.         PenStyle.AddItem ("SAND")
  117.         PenStyle.AddItem ("BOX")
  118.         PenStyle.AddItem ("BRASS")
  119.         PenStyle.AddItem ("CLAY")
  120.         PenStyle.AddItem ("CORK")
  121.         PenStyle.AddItem ("CROSS")
  122.         PenStyle.AddItem ("DASH")
  123.         PenStyle.AddItem ("ROCK_LAYER")
  124.         PenStyle.AddItem ("DOTS")
  125.         PenStyle.AddItem ("EARTH")
  126.         PenStyle.AddItem ("EACHER")
  127.         PenStyle.AddItem ("FLEX")
  128.         PenStyle.AddItem ("GRASS")
  129.         PenStyle.AddItem ("GRATE")
  130.         PenStyle.AddItem ("HEXAGONS")
  131.         PenStyle.AddItem ("HONEYCOMB")
  132.         PenStyle.AddItem ("HOUNDSTOOTH")
  133.     End If
  134.     Exit Sub
  135. ErrorHandler:
  136.     PropValue.Text = "Absent for this Graphic"
  137.     PropValue.Enabled = False
  138. End Sub
  139. Private Sub PenStyle_Click()
  140.     PropValue.Text = PenStyle.Text
  141.     GrSel.Properties.Item(GrPropName.Text).Value = CVar(PropValue.Text)
  142.     Vi.Refresh
  143. End Sub
  144.