home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 November
/
pcwk_11_98a.iso
/
Wtestowe
/
SOFTSRC
/
vtrial15.exe
/
DATA.1
/
ENTOPS.FRM
< prev
next >
Wrap
Text File
|
1996-09-15
|
39KB
|
1,323 lines
VERSION 4.00
Begin VB.Form ECOForm
Caption = "Entity Creation Options"
ClientHeight = 5190
ClientLeft = 1680
ClientTop = 3330
ClientWidth = 8775
Height = 5595
Left = 1620
LinkTopic = "Form1"
ScaleHeight = 5190
ScaleWidth = 8775
Top = 2985
Width = 8895
Begin VB.Frame ecoText
Caption = "Text"
Height = 1695
Left = 120
TabIndex = 102
Top = 2280
Width = 8535
Begin VB.ComboBox ecoTextStylesList
Height = 300
Left = 5400
TabIndex = 111
Top = 480
Width = 2895
End
Begin VB.TextBox ecoTextWord
Height = 375
Left = 2040
TabIndex = 108
Top = 720
Width = 2895
End
Begin VB.CheckBox ecoTextRnd
Caption = "Randomize"
Height = 255
Left = 240
TabIndex = 107
Top = 360
Width = 1215
End
Begin VB.TextBox ecoTextCoords
Height = 375
Left = 2040
TabIndex = 105
Text = "10,10"
Top = 1200
Width = 1095
End
Begin VB.ComboBox ecoTextWordList
Height = 300
ItemData = "EntOps.frx":0000
Left = 5400
List = "EntOps.frx":0061
TabIndex = 103
Text = "ecoTextWordList"
Top = 1200
Width = 2895
End
Begin VB.Label Label37
Alignment = 2 'Center
Caption = "Available Text Styles"
Height = 255
Left = 5400
TabIndex = 110
Top = 240
Width = 2895
End
Begin VB.Label Label36
Caption = "Word/Phrase to Insert:"
Height = 255
Left = 240
TabIndex = 109
Top = 840
Width = 1695
End
Begin VB.Label Label35
Caption = "Insert At:"
Height = 255
Left = 1200
TabIndex = 106
Top = 1320
Width = 735
End
Begin VB.Label Label34
Alignment = 2 'Center
Caption = "Random Word/Phrase List"
Height = 255
Left = 5400
TabIndex = 104
Top = 960
Width = 2895
End
End
Begin VB.Frame ecoPolyline
Caption = "Polyline"
Height = 1695
Left = 8880
TabIndex = 92
Top = 2280
Width = 8535
Begin VB.CommandButton ecoPolylineClrCmd
Caption = "&Clear All"
Height = 375
Left = 7440
TabIndex = 101
Top = 480
Width = 975
End
Begin VB.CheckBox ecoPolylineRnd
Caption = "Randomize"
Height = 255
Left = 240
TabIndex = 100
Top = 480
Width = 1575
End
Begin VB.CommandButton ecoPolylineRndCmd
Caption = "Create a &Random Polyline"
Height = 375
Left = 240
TabIndex = 99
Top = 1080
Width = 2655
End
Begin VB.CommandButton ecoPolylineDelCmd
Caption = "&Remove"
Height = 375
Left = 7440
TabIndex = 98
Top = 1080
Width = 975
End
Begin VB.TextBox ecoPolylineNewVertex
Height = 375
Left = 3360
TabIndex = 96
Text = "0,0"
Top = 600
Width = 1455
End
Begin VB.CommandButton ecoPolylineAddCmd
Caption = "&Add Vertex"
Height = 375
Left = 3360
TabIndex = 95
Top = 1080
Width = 1455
End
Begin VB.ListBox ecoPolylinePtList
Height = 1005
Left = 5040
TabIndex = 93
Top = 480
Width = 2175
End
Begin VB.Label Label32
Alignment = 2 'Center
Caption = "New Vertex"
Height = 255
Left = 3360
TabIndex = 97
Top = 360
Width = 1455
End
Begin VB.Label Label31
Alignment = 2 'Center
Caption = "Vertex Points"
Height = 255
Left = 5040
TabIndex = 94
Top = 240
Width = 2175
End
End
Begin VB.Frame ecoTrace
Caption = "Trace"
Height = 1695
Left = 8880
TabIndex = 76
Top = 1920
Width = 8535
Begin VB.TextBox ecoTraceMaxLen
Enabled = 0 'False
Height = 285
Left = 6000
TabIndex = 88
Text = "100"
Top = 960
Width = 1215
End
Begin VB.TextBox ecoTracePt4
Height = 285
Left = 1440
TabIndex = 81
Text = "0,10"
Top = 1320
Width = 1215
End
Begin VB.TextBox ecoTracePt3
Height = 285
Left = 1440
TabIndex = 80
Text = "10,10"
Top = 960
Width = 1215
End
Begin VB.TextBox ecoTracePt2
Height = 285
Left = 1440
TabIndex = 79
Text = "10,0"
Top = 600
Width = 1215
End
Begin VB.TextBox ecoTracePt1
Height = 285
Left = 1440
TabIndex = 78
Text = "0,0"
Top = 240
Width = 1215
End
Begin VB.CheckBox ecoTraceRnd
Caption = "Randomize"
Height = 255
Left = 4320
TabIndex = 77
Top = 360
Width = 1215
End
Begin VB.Label Label29
Caption = "Maximum Side length"
Height = 255
Left = 4320
TabIndex = 89
Top = 960
Width = 1575
End
Begin VB.Label Label28
Caption = "Point 4"
Height = 255
Left = 720
TabIndex = 85
Top = 1320
Width = 705
End
Begin VB.Label Label27
Caption = "Point 3"
Height = 255
Left = 720
TabIndex = 84
Top = 960
Width = 705
End
Begin VB.Label Label26
Caption = "Point 2"
Height = 255
Left = 720
TabIndex = 83
Top = 600
Width = 705
End
Begin VB.Label Label25
Caption = "Point 1"
Height = 255
Left = 720
TabIndex = 82
Top = 240
Width = 705
End
End
Begin VB.Frame ecoSolid
Caption = "Solid"
Height = 1695
Left = 8880
TabIndex = 66
Top = 1560
Width = 8535
Begin VB.TextBox ecoSolidMaxLen
Enabled = 0 'False
Height = 285
Left = 6000
TabIndex = 90
Text = "100"
Top = 960
Width = 1215
End
Begin VB.CheckBox ecoSolidRnd
Caption = "Randomize"
Height = 255
Left = 4320
TabIndex = 71
Top = 360
Width = 1215
End
Begin VB.TextBox ecoSolidPt1
Height = 285
Left = 1440
TabIndex = 70
Text = "0,0"
Top = 240
Width = 1215
End
Begin VB.TextBox ecoSolidPt2
Height = 285
Left = 1440
TabIndex = 69
Text = "10,0"
Top = 600
Width = 1215
End
Begin VB.TextBox ecoSolidPt3
Height = 285
Left = 1440
TabIndex = 68
Text = "10,10"
Top = 960
Width = 1215
End
Begin VB.TextBox ecoSolidPt4
Height = 285
Left = 1440
TabIndex = 67
Text = "0,10"
Top = 1320
Width = 1215
End
Begin VB.Label Label30
Caption = "Maximum Side length"
Height = 255
Left = 4320
TabIndex = 91
Top = 990
Width = 1575
End
Begin VB.Label Label24
Caption = "Point 1"
Height = 255
Left = 720
TabIndex = 75
Top = 240
Width = 705
End
Begin VB.Label Label23
Caption = "Point 2"
Height = 255
Left = 720
TabIndex = 74
Top = 600
Width = 705
End
Begin VB.Label Label22
Caption = "Point 3"
Height = 255
Left = 720
TabIndex = 73
Top = 960
Width = 705
End
Begin VB.Label Label21
Caption = "Point 4"
Height = 255
Left = 720
TabIndex = 72
Top = 1320
Width = 705
End
End
Begin VB.Frame ecoFace
Caption = "Face"
Height = 1695
Left = 8880
TabIndex = 55
Top = 1200
Width = 8535
Begin VB.TextBox ecoFaceMaxLen
Enabled = 0 'False
Height = 285
Left = 6000
TabIndex = 87
Text = "100"
Top = 720
Width = 1215
End
Begin VB.TextBox ecoFacePt4
Height = 285
Left = 1920
TabIndex = 64
Text = "0,10"
Top = 1320
Width = 1215
End
Begin VB.TextBox ecoFacePt3
Height = 285
Left = 1920
TabIndex = 63
Text = "10,10"
Top = 960
Width = 1215
End
Begin VB.TextBox ecoFacePt2
Height = 285
Left = 1920
TabIndex = 62
Text = "10,0"
Top = 600
Width = 1215
End
Begin VB.TextBox ecoFacePt1
Height = 285
Left = 1920
TabIndex = 57
Text = "0,0"
Top = 240
Width = 1215
End
Begin VB.CheckBox ecoFaceRnd
Caption = "Randomize"
Height = 255
Left = 4320
TabIndex = 56
Top = 240
Width = 1215
End
Begin VB.Label Label33
Caption = "Maximum Side length"
Height = 255
Left = 4320
TabIndex = 86
Top = 750
Width = 1575
End
Begin VB.Label Label20
Caption = "Point 4"
Height = 255
Left = 1080
TabIndex = 61
Top = 1320
Width = 705
End
Begin VB.Label Label19
Caption = "Point 3"
Height = 255
Left = 1080
TabIndex = 60
Top = 960
Width = 705
End
Begin VB.Label Label18
Caption = "Point 2"
Height = 255
Left = 1080
TabIndex = 59
Top = 600
Width = 705
End
Begin VB.Label Label17
Caption = "Point 1"
Height = 255
Left = 1080
TabIndex = 58
Top = 240
Width = 705
End
End
Begin VB.Frame ecoPoint
Caption = "Point"
Height = 1695
Left = 8880
TabIndex = 51
Top = 1200
Width = 8535
Begin VB.CheckBox ecoPointCoordRnd
Caption = "Randomize"
Height = 255
Left = 4560
TabIndex = 53
Top = 720
Width = 1215
End
Begin VB.TextBox ecoPointCoord
Height = 285
Left = 3000
TabIndex = 52
Text = "0,0"
Top = 720
Width = 1215
End
Begin VB.Label Label16
Caption = "Coordinates"
Height = 255
Left = 1920
TabIndex = 54
Top = 720
Width = 915
End
End
Begin VB.Frame ecoArc
Caption = "Arc"
Height = 1695
Left = 8880
TabIndex = 38
Top = 840
Width = 8535
Begin VB.CheckBox ecoArcEndRnd
Caption = "Randomize"
Height = 255
Left = 6960
TabIndex = 50
Top = 840
Width = 1335
End
Begin VB.CheckBox ecoArcStartRnd
Caption = "Randomize"
Height = 255
Left = 6960
TabIndex = 49
Top = 360
Width = 1455
End
Begin VB.TextBox ecoArcEndAngle
Height = 285
Left = 5520
TabIndex = 48
Text = "3.14159267"
Top = 840
Width = 1215
End
Begin VB.TextBox ecoArcStartAngle
Height = 285
Left = 5520
TabIndex = 47
Text = "0"
Top = 360
Width = 1215
End
Begin VB.CheckBox ecoArcRadRnd
Caption = "Randomize"
Height = 255
Left = 2760
TabIndex = 42
Top = 840
Width = 1215
End
Begin VB.CheckBox ecoArcCenterRnd
Caption = "Randomize"
Height = 255
Left = 2760
TabIndex = 41
Top = 360
Width = 1215
End
Begin VB.TextBox ecoArcRadius
Height = 285
Left = 1320
TabIndex = 40
Text = "100.00"
Top = 840
Width = 1215
End
Begin VB.TextBox ecoArcCenter
Height = 285
Left = 1320
TabIndex = 39
Text = "0,0"
Top = 360
Width = 1215
End
Begin VB.Label Label15
Caption = "End Angle"
Height = 255
Left = 4560
TabIndex = 46
Top = 840
Width = 855
End
Begin VB.Label Label14
Caption = "Start Angle"
Height = 255
Left = 4560
TabIndex = 45
Top = 360
Width = 855
End
Begin VB.Label Label13
Caption = "Radius"
Height = 255
Left = 360
TabIndex = 44
Top = 840
Width = 795
End
Begin VB.Label Label11
Caption = "Center Point"
Height = 255
Left = 360
TabIndex = 43
Top = 360
Width = 915
End
End
Begin VB.Frame ecoCircle
Caption = "Circle"
Height = 1695
Left = 8880
TabIndex = 31
Top = 480
Width = 8535
Begin VB.TextBox ecoCirclePt
Height = 285
Left = 3000
TabIndex = 35
Text = "0,0"
Top = 360
Width = 1215
End
Begin VB.TextBox ecoCircleRadius
Height = 285
Left = 3000
TabIndex = 34
Text = "1.0000"
Top = 1080
Width = 1215
End
Begin VB.CheckBox ecoCirclePtRnd
Caption = "Randomize"
Height = 255
Left = 4560
TabIndex = 33
Top = 360
Width = 1215
End
Begin VB.CheckBox ecoCircleRadRnd
Caption = "Randomize"
Height = 255
Left = 4560
TabIndex = 32
Top = 1080
Width = 1215
End
Begin VB.Label Label12
Caption = "Center Point"
Height = 255
Left = 1920
TabIndex = 37
Top = 360
Width = 915
End
Begin VB.Label Label10
Caption = "Radius"
Height = 255
Left = 2040
TabIndex = 36
Top = 1080
Width = 795
End
End
Begin VB.Frame Frame1
Caption = "All Entities"
Height = 1575
Left = 120
TabIndex = 12
Top = 600
Width = 8535
Begin VB.CheckBox ecoRandomColor
Caption = "Randomize"
Height = 255
Left = 2640
TabIndex = 24
Top = 360
Width = 1215
End
Begin VB.ComboBox ecoColorList
Height = 300
Left = 1080
TabIndex = 23
Top = 360
Width = 1335
End
Begin VB.ComboBox ecoLayerList
Height = 300
Left = 1080
TabIndex = 22
Top = 720
Width = 1335
End
Begin VB.ComboBox ecoLineTypeList
Height = 300
Left = 1080
TabIndex = 21
Top = 1080
Width = 1335
End
Begin VB.CheckBox ecoRandomLayer
Caption = "Randomize"
Height = 255
Left = 2640
TabIndex = 20
Top = 720
Width = 1215
End
Begin VB.CheckBox ecoRandomLineType
Caption = "Randomize"
Height = 255
Left = 2640
TabIndex = 19
Top = 1080
Width = 1215
End
Begin VB.CheckBox ecoRandomThickness
Caption = "Randomize"
Height = 255
Left = 7200
TabIndex = 18
Top = 360
Width = 1215
End
Begin VB.CheckBox ecoRandomNormal
Caption = "Randomize"
Height = 255
Left = 7200
TabIndex = 17
Top = 720
Width = 1215
End
Begin VB.CheckBox ecoRandomHyperLink
Caption = "Randomize"
Height = 255
Left = 7200
TabIndex = 16
Top = 1080
Width = 1215
End
Begin VB.TextBox ecoThickness
Height = 285
Left = 5880
TabIndex = 15
Top = 360
Width = 1095
End
Begin VB.TextBox ecoNormal
Height = 285
Left = 5880
TabIndex = 14
Top = 720
Width = 1095
End
Begin VB.CheckBox ecoHyperLink
Height = 255
Left = 5880
TabIndex = 13
Top = 1080
Width = 255
End
Begin VB.Label Label1
Caption = "Color"
Height = 255
Left = 120
TabIndex = 30
Top = 360
Width = 900
End
Begin VB.Label Label2
Caption = "Layer"
Height = 255
Left = 120
TabIndex = 29
Top = 720
Width = 900
End
Begin VB.Label Label3
Caption = "Line Type"
Height = 255
Left = 120
TabIndex = 28
Top = 1080
Width = 900
End
Begin VB.Label Label4
Caption = "Thickness"
Height = 255
Left = 4800
TabIndex = 27
Top = 360
Width = 900
End
Begin VB.Label Label5
Caption = "Normal"
Height = 255
Left = 4800
TabIndex = 26
Top = 720
Width = 900
End
Begin VB.Label Label6
Caption = "Hyper Link?"
Height = 255
Left = 4800
TabIndex = 25
Top = 1080
Width = 900
End
End
Begin VB.CheckBox ecoRandomAll
Caption = "&Randomize All Settings"
Height = 255
Left = 240
TabIndex = 4
Top = 4200
Width = 2055
End
Begin VB.CommandButton CancelCmd
Cancel = -1 'True
Caption = "Cancel"
Height = 375
Left = 5280
TabIndex = 3
Top = 4680
Width = 1335
End
Begin VB.Frame ecoLine
Caption = "Line"
Height = 1695
Left = 8880
TabIndex = 2
Top = 120
Width = 8535
Begin VB.CheckBox ecoLineEndRnd
Caption = "Randomize"
Height = 255
Left = 4560
TabIndex = 11
Top = 720
Width = 1215
End
Begin VB.CheckBox ecoLineStartRnd
Caption = "Randomize"
Height = 255
Left = 4560
TabIndex = 10
Top = 360
Width = 1215
End
Begin VB.TextBox ecoLineEnd
Height = 285
Left = 3000
TabIndex = 6
Text = "10,10"
Top = 720
Width = 1215
End
Begin VB.TextBox ecoLineStart
Height = 285
Left = 3000
TabIndex = 5
Text = "0,0"
Top = 360
Width = 1215
End
Begin VB.Label ecoLineLength
BorderStyle = 1 'Fixed Single
Caption = "14.142135"
Height = 255
Left = 3000
TabIndex = 65
Top = 1080
Width = 1215
End
Begin VB.Label Label9
Caption = "Length"
Height = 255
Left = 2040
TabIndex = 9
Top = 1080
Width = 795
End
Begin VB.Label Label8
Caption = "End Point"
Height = 255
Left = 2040
TabIndex = 8
Top = 720
Width = 795
End
Begin VB.Label Label7
Caption = "Start Point"
Height = 255
Left = 2040
TabIndex = 7
Top = 360
Width = 795
End
End
Begin VB.CommandButton OKCmd
Caption = "OK"
Default = -1 'True
Height = 375
Left = 2040
TabIndex = 1
Top = 4680
Width = 1335
End
Begin VB.Label EntityName
Alignment = 2 'Center
BackColor = &H00FFFF00&
BorderStyle = 1 'Fixed Single
Caption = "Entity Type"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 120
TabIndex = 0
Top = 120
Width = 8535
End
End
Attribute VB_Name = "ECOForm"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Sub ComputeLine()
'
' recompute the values for line length
'
Dim StartX#, StartY#, EndX#, EndY#, Length#
Dim C$
C$ = ecoLineStart.Text
ParseCoords StartX#, StartY#, C$
C$ = ecoLineEnd.Text
ParseCoords EndX#, EndY#, C$
Length# = CDbl(Val(ecoLineLength.Caption))
' if length is not fixed, then use the
' two coordinates and compute the length
Length# = Sqr((Abs((EndX# - StartX#) ^ 2)) + (Abs((EndY# - StartY#) ^ 2)))
ecoLineLength.Caption = Format$(Length#, "####0.0000")
End Sub
Private Sub CancelCmd_Click()
'
' quit
'
ECOForm.Hide
End Sub
Private Sub Combo1_Change()
End Sub
Private Sub ecoFaceRnd_Click()
'
' randomize setting for face
'
If (ecoFaceRnd.Value = 1) Then
ecoFacePt1.Enabled = False
ecoFacePt2.Enabled = False
ecoFacePt3.Enabled = False
ecoFacePt4.Enabled = False
ecoFaceMaxLen.Enabled = True
Else
ecoFacePt1.Enabled = True
ecoFacePt2.Enabled = True
ecoFacePt3.Enabled = True
ecoFacePt4.Enabled = True
ecoFaceMaxLen.Enabled = False
End If
End Sub
Private Sub ecoLineEnd_Change()
ComputeLine
End Sub
Private Sub ecoLineEndRnd_Click()
If ecoLineEndRnd.Value = 0 Then
ecoRandomAll.Value = 0
End If
End Sub
Private Sub ecoLineLength_Change()
ComputeLine
End Sub
Private Sub ecoLineStart_Change()
ComputeLine
End Sub
Private Sub ecoLineStartRnd_Click()
If ecoLineStartRnd.Value = 0 Then
ecoRandomAll.Value = 0
End If
End Sub
Private Sub ecoPolylineAddCmd_Click()
'
' add the given vertex to the polyline vertex list
'
' as a limited form of data checking, we'll run
' this through the coordinate parser
Dim X#, Y#, C$
C$ = ECOForm.ecoPolylineNewVertex.Text
ParseCoords X#, Y#, C$
Dim A$
A$ = Trim$(Str$(X#)) & ", " & Trim$(Str$(Y#))
ECOForm.ecoPolylinePtList.AddItem A$
End Sub
Private Sub ecoPolylineClrCmd_Click()
'
' clear the polyline vertex list
'
ECOForm.ecoPolylinePtList.Clear
End Sub
Private Sub ecoPolylineDelCmd_Click()
'
' remove the highlighted polyline vertex, if any
'
If (ECOForm.ecoPolylinePtList.ListIndex <> -1) Then
ECOForm.ecoPolylinePtList.RemoveItem ECOForm.ecoPolylinePtList.ListIndex
End If
End Sub
Private Sub ecoPolylineRndCmd_Click()
GenerateRandomPLine
End Sub
Private Sub ecoRandomAll_Click()
'
' randomize all settings
'
If (ecoRandomAll.Value = 1) Then
If (MsgBox("This will set all settings for all entities" & CRLF & "to 'Randomize'. Are you sure?", 4096 + 36) = 6) Then
ecoRandomColor.Value = 1
ecoRandomLayer.Value = 1
ecoRandomLineType.Value = 1
ecoRandomThickness.Value = 1
ecoRandomNormal.Value = 1
ecoRandomHyperLink.Value = 1
' line
ecoLineStartRnd.Value = 1
ecoLineEndRnd.Value = 1
' circle
ecoCirclePtRnd.Value = 1
ecoCircleRadRnd.Value = 1
' arc
ecoArcCenterRnd.Value = 1
ecoArcRadRnd.Value = 1
ecoArcStartRnd.Value = 1
ecoArcEndRnd.Value = 1
' face
ecoFaceRnd.Value = 1
' Solid
ecoSolidRnd.Value = 1
' Trace
ecoTraceRnd.Value = 1
' Polyline
ecoPolylineRnd.Value = 1
' Text
ecoTextRnd.Value = 1
End If
RandomClick% = True ' prevents a recursive endless loop
EntCreationForm.ectRandomAll.Value = 1
End If
End Sub
Private Sub ecoRandomColor_Click()
If ecoRandomColor.Value = 0 Then
ecoRandomAll.Value = 0
End If
End Sub
Private Sub ecoRandomHyperLink_Click()
If ecoRandomHyperLink.Value = 0 Then
ecoRandomAll.Value = 0
End If
End Sub
Private Sub ecoRandomLayer_Click()
If ecoRandomLayer.Value = 0 Then
ecoRandomAll.Value = 0
End If
End Sub
Private Sub ecoRandomLineType_Click()
If ecoRandomLineType.Value = 0 Then
ecoRandomAll.Value = 0
End If
End Sub
Private Sub ecoRandomNormal_Click()
If ecoRandomNormal.Value = 0 Then
ecoRandomAll.Value = 0
End If
End Sub
Private Sub ecoRandomThickness_Click()
If ecoRandomThickness.Value = 0 Then
ecoRandomAll.Value = 0
End If
End Sub
Private Sub ecoSolidRnd_Click()
'
' randomize setting for face
'
If (ecoSolidRnd.Value = 1) Then
ecoSolidPt1.Enabled = False
ecoSolidPt2.Enabled = False
ecoSolidPt3.Enabled = False
ecoSolidPt4.Enabled = False
ecoSolidMaxLen.Enabled = True
Else
ecoSolidPt1.Enabled = True
ecoSolidPt2.Enabled = True
ecoSolidPt3.Enabled = True
ecoSolidPt4.Enabled = True
ecoSolidMaxLen.Enabled = False
End If
End Sub
Private Sub ecoTraceRnd_Click()
'
' randomize setting for face
'
If (ecoTraceRnd.Value = 1) Then
ecoTracePt1.Enabled = False
ecoTracePt2.Enabled = False
ecoTracePt3.Enabled = False
ecoTracePt4.Enabled = False
ecoTraceMaxLen.Enabled = True
Else
ecoTracePt1.Enabled = True
ecoTracePt2.Enabled = True
ecoTracePt3.Enabled = True
ecoTracePt4.Enabled = True
ecoTraceMaxLen.Enabled = False
End If
End Sub
Private Sub Form_Activate()
'
' (re)initialize the form
'
Screen.MousePointer = 11
EntityName.Caption = gblEntities(ecoWhich) ' name of entity being edited here
Dim i%, j%
'
' fill in the color selection list box
ecoColorList.AddItem "By Layer"
For i% = 0 To 255
ecoColorList.AddItem Str$(i%)
Next
ecoColorList.ListIndex = 0
'
' fill in the layer selection list box
' Grab the current layers from Vdraft
i% = Layers.Count
For j% = 1 To i%
ecoLayerList.AddItem Layers.Item(j%)
Next
If (ecoLayerList.ListCount > 0) Then
ecoLayerList.ListIndex = 0
End If
'
' fill in the linetype selection list box
' Grab the current linetypes from Vdraft
i% = LineTypes.Count
For j% = 1 To i%
ecoLineTypeList.AddItem LineTypes.Item(j%)
Next
If (ecoLineTypeList.ListCount > 0) Then
ecoLineTypeList.ListIndex = 0
End If
'
' be sure all the entity-specific frames are invisible
ECOForm.ecoLine.Visible = False
ECOForm.ecoCircle.Visible = False
ECOForm.ecoArc.Visible = False
ECOForm.ecoPoint.Visible = False
ECOForm.ecoFace.Visible = False
ECOForm.ecoSolid.Visible = False
ECOForm.ecoTrace.Visible = False
ECOForm.ecoPolyline.Visible = False
ECOForm.ecoText.Visible = False
'
' show the correct entity-specifc options
Select Case ecoWhich
Case entArc
ECOForm.ecoArc.Visible = True
ECOForm.ecoArc.Top = 2280
ECOForm.ecoArc.Left = 120
Case entAttdef
Case entBlockInsert
Case entCircle
ECOForm.ecoCircle.Visible = True
ECOForm.ecoCircle.Top = 2280
ECOForm.ecoCircle.Left = 120
Case entDimHor
Case entDimRad
Case entDimVer
Case entFace
ECOForm.ecoFace.Visible = True
ECOForm.ecoFace.Top = 2280
ECOForm.ecoFace.Left = 120
Case entLine
ECOForm.ecoLine.Visible = True
ECOForm.ecoLine.Top = 2280
ECOForm.ecoLine.Left = 120
ComputeLine
Case entPoint
ECOForm.ecoPoint.Visible = True
ECOForm.ecoPoint.Top = 2280
ECOForm.ecoPoint.Left = 120
Case entPolyline
ECOForm.ecoPolyline.Visible = True
ECOForm.ecoPolyline.Top = 2280
ECOForm.ecoPolyline.Left = 120
Case entShape
Case entSolid
ECOForm.ecoSolid.Visible = True
ECOForm.ecoSolid.Top = 2280
ECOForm.ecoSolid.Left = 120
Case entStartCenterAngle
Case entStartInsert
Case entStartLine
Case entText
ECOForm.ecoText.Visible = True
ECOForm.ecoText.Top = 2280
ECOForm.ecoText.Left = 120
ECOForm.ecoTextWordList.ListIndex = 0
' get the text styles
Case entThreePtArc
Case entTrace
ECOForm.ecoTrace.Visible = True
ECOForm.ecoTrace.Top = 2280
ECOForm.ecoTrace.Left = 120
Case entViewport
Case Else
MsgBox "Entity Create Options Form: Load_Form" & CRLF & "Unknown Entity Type"
End Select
Screen.MousePointer = 0
End Sub
Private Sub OKCmd_Click()
'
' done
'
ECOForm.Hide
End Sub
Private Sub Form_Load()
'
' initialize the entities creation options form
'
ECOForm.Top = (Screen.Height - ECOForm.Height) / 2
ECOForm.Left = (Screen.Width - ECOForm.Width) / 2
End Sub
