home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98a.iso / Wtestowe / SOFTSRC / vtrial15.exe / DATA.1 / EditPart.frm < prev    next >
Text File  |  1996-08-18  |  10KB  |  369 lines
  1. VERSION 4.00
  2. Begin VB.Form EditPartForm 
  3.    Caption         =   "Edit Part"
  4.    ClientHeight    =   4095
  5.    ClientLeft      =   8145
  6.    ClientTop       =   1200
  7.    ClientWidth     =   4590
  8.    Height          =   4500
  9.    Left            =   8085
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4095
  12.    ScaleWidth      =   4590
  13.    Top             =   855
  14.    Width           =   4710
  15.    Begin VB.Frame Frame3 
  16.       Caption         =   "Size"
  17.       Height          =   735
  18.       Left            =   240
  19.       TabIndex        =   15
  20.       Top             =   1800
  21.       Width           =   2295
  22.       Begin VB.TextBox SizeY 
  23.          Enabled         =   0   'False
  24.          Height          =   375
  25.          Left            =   1440
  26.          TabIndex        =   4
  27.          Top             =   240
  28.          Width           =   615
  29.       End
  30.       Begin VB.TextBox SizeX 
  31.          Enabled         =   0   'False
  32.          Height          =   375
  33.          Left            =   240
  34.          TabIndex        =   3
  35.          Top             =   240
  36.          Width           =   615
  37.       End
  38.       Begin VB.Label Label2 
  39.          Alignment       =   2  'Center
  40.          Caption         =   "by"
  41.          Enabled         =   0   'False
  42.          BeginProperty Font 
  43.             name            =   "MS Sans Serif"
  44.             charset         =   0
  45.             weight          =   700
  46.             size            =   12
  47.             underline       =   0   'False
  48.             italic          =   0   'False
  49.             strikethrough   =   0   'False
  50.          EndProperty
  51.          Height          =   375
  52.          Left            =   960
  53.          TabIndex        =   16
  54.          Top             =   240
  55.          Width           =   375
  56.       End
  57.    End
  58.    Begin VB.Frame Frame2 
  59.       Height          =   615
  60.       Left            =   240
  61.       TabIndex        =   14
  62.       Top             =   2760
  63.       Width           =   4215
  64.       Begin VB.OptionButton AlignX 
  65.          Caption         =   "Align Sideways"
  66.          Enabled         =   0   'False
  67.          Height          =   255
  68.          Left            =   2160
  69.          TabIndex        =   6
  70.          Top             =   240
  71.          Width           =   1935
  72.       End
  73.       Begin VB.OptionButton AlignY 
  74.          Caption         =   "Align Up /Down"
  75.          Enabled         =   0   'False
  76.          Height          =   255
  77.          Left            =   120
  78.          TabIndex        =   5
  79.          Top             =   240
  80.          Width           =   1575
  81.       End
  82.    End
  83.    Begin VB.ListBox Parts 
  84.       Height          =   1395
  85.       ItemData        =   "EditPart.frx":0000
  86.       Left            =   2760
  87.       List            =   "EditPart.frx":0019
  88.       TabIndex        =   7
  89.       Top             =   1200
  90.       Width           =   1695
  91.    End
  92.    Begin VB.Frame Frame1 
  93.       Caption         =   "Coordinates"
  94.       Height          =   855
  95.       Left            =   240
  96.       TabIndex        =   11
  97.       Top             =   840
  98.       Width           =   2295
  99.       Begin VB.TextBox PartX 
  100.          Height          =   375
  101.          Left            =   240
  102.          TabIndex        =   1
  103.          Top             =   360
  104.          Width           =   615
  105.       End
  106.       Begin VB.TextBox PartY 
  107.          Height          =   375
  108.          Left            =   1440
  109.          TabIndex        =   2
  110.          Top             =   360
  111.          Width           =   615
  112.       End
  113.       Begin VB.Label Label3 
  114.          Alignment       =   2  'Center
  115.          Caption         =   "by"
  116.          BeginProperty Font 
  117.             name            =   "MS Sans Serif"
  118.             charset         =   0
  119.             weight          =   700
  120.             size            =   12
  121.             underline       =   0   'False
  122.             italic          =   0   'False
  123.             strikethrough   =   0   'False
  124.          EndProperty
  125.          Height          =   375
  126.          Left            =   960
  127.          TabIndex        =   12
  128.          Top             =   360
  129.          Width           =   375
  130.       End
  131.    End
  132.    Begin VB.CommandButton DelCmd 
  133.       Caption         =   "&Delete"
  134.       Height          =   375
  135.       Left            =   1800
  136.       TabIndex        =   10
  137.       Top             =   3600
  138.       Width           =   1095
  139.    End
  140.    Begin VB.CommandButton CancelCmd 
  141.       Cancel          =   -1  'True
  142.       Caption         =   "Cancel"
  143.       Height          =   375
  144.       Left            =   3120
  145.       TabIndex        =   9
  146.       Top             =   3600
  147.       Width           =   1215
  148.    End
  149.    Begin VB.CommandButton OKCmd 
  150.       Caption         =   "OK"
  151.       Default         =   -1  'True
  152.       Height          =   375
  153.       Left            =   240
  154.       TabIndex        =   8
  155.       Top             =   3600
  156.       Width           =   1215
  157.    End
  158.    Begin VB.Label Label1 
  159.       BorderStyle     =   1  'Fixed Single
  160.       Caption         =   "Change part to..."
  161.       Height          =   255
  162.       Left            =   2760
  163.       TabIndex        =   13
  164.       Top             =   840
  165.       Width           =   1695
  166.    End
  167.    Begin VB.Label CurrentPart 
  168.       Alignment       =   2  'Center
  169.       BorderStyle     =   1  'Fixed Single
  170.       Height          =   375
  171.       Left            =   120
  172.       TabIndex        =   0
  173.       Top             =   240
  174.       Width           =   4335
  175.    End
  176. End
  177. Attribute VB_Name = "EditPartForm"
  178. Attribute VB_Creatable = False
  179. Attribute VB_Exposed = False
  180. Option Explicit
  181.  
  182. Dim epfAlignX As Integer
  183.  
  184. Private Sub AlignX_Click()
  185.  
  186.     DirtyFlag% = True
  187. End Sub
  188.  
  189. Private Sub AlignY_Click()
  190.  
  191.     DirtyFlag% = True
  192. End Sub
  193.  
  194. Private Sub CancelCmd_Click()
  195. '
  196. '   abandon changes
  197. '
  198.  
  199.  
  200.     Unload EditPartForm
  201. End Sub
  202.  
  203. Private Sub DelCmd_Click()
  204. '
  205. '   allows user to delete the current part
  206. '
  207.     If (MsgBox("Are you sure you want to delete this part?", 36 + 4096, AppTitle$) = 6) Then
  208.         Dim Idx%
  209.         Idx% = MainForm.AppliedParts.ItemData(MainForm.AppliedParts.ListIndex)
  210.         
  211.         DrawingParts(Idx%, dpType) = dpNothing
  212.         DrawingParts(Idx%, dpX) = 0
  213.         DrawingParts(Idx%, dpY) = 0
  214.         
  215.         Unload EditPartForm                             ' done
  216.     End If
  217. End Sub
  218.  
  219. Private Sub Form_Load()
  220. '
  221. '   initialize the Edit Part form
  222. '   This form allows the user to edit
  223. '   a selected part on the AppliedParts
  224. '   list box on the main form
  225. '
  226.     EditPartForm.Left = (Screen.Width - EditPartForm.Width) / 2
  227.     EditPartForm.Top = (Screen.Height - EditPartForm.Height) / 2
  228.     
  229.     CurrentPart.Caption = MainForm.AppliedParts.List(MainForm.AppliedParts.ListIndex)
  230.     EditPartForm.PartX.Text = MainForm.PartX.Text
  231.     EditPartForm.PartY.Text = MainForm.PartY.Text
  232.     
  233. '
  234. '   show current alignment
  235.     Dim Idx%
  236.     Idx% = MainForm.AppliedParts.ItemData(MainForm.AppliedParts.ListIndex)
  237.     If (DrawingParts(Idx%, dpAlignX)) Then
  238.         AlignX.Value = True
  239.     Else
  240.         AlignY.Value = True
  241.     End If
  242.  
  243. '
  244. '   enable the alignment controls if appropriate to the item being edited
  245.     Dim P$
  246.     P$ = UCase$(CurrentPart.Caption)
  247.     If P$ = "BATH TUB" Or P$ = "SINK" Or P$ = "CLOSET" Or P$ = "TOILET" Or P$ = "BATHTUB" Then
  248.         AlignX.Enabled = True
  249.         AlignY.Enabled = True
  250.         epfAlignX = DrawingParts(MainForm.AppliedParts.ItemData(MainForm.AppliedParts.ListIndex), dpAlignX)
  251.     End If
  252.     
  253.     Dim i%
  254.     For i% = 0 To Parts.ListCount
  255.         If UCase$(CurrentPart.Caption) = UCase$(Parts.List(i%)) Then
  256.             Parts.ListIndex = i%
  257.             Exit For
  258.         End If
  259.     Next
  260.     
  261.     
  262. End Sub
  263.  
  264.  
  265. Private Sub OKCmd_Click()
  266. '
  267. '   done -- save changes
  268. '
  269.     Dim X#, Y#, Idx%
  270.     Idx% = MainForm.AppliedParts.ItemData(MainForm.AppliedParts.ListIndex)
  271.     X# = CDbl(Val(EditPartForm.PartX.Text))
  272.     Y# = CDbl(Val(MainForm.RoomHeight)) - CDbl(Val(EditPartForm.PartY.Text))
  273.  
  274.     DrawingParts(Idx%, dpX) = X#
  275.     DrawingParts(Idx%, dpY) = Y#
  276.  
  277.     DrawingParts(Idx%, dpAlignX) = AlignX.Value
  278.     Select Case UCase$(CurrentPart.Caption)
  279.         Case "BATH TUB"
  280.             DrawingParts(Idx%, dpType) = dpBathTub
  281.         
  282.         Case "DOOR"
  283.             DrawingParts(Idx%, dpType) = dpDoor
  284.         
  285.         Case "LINEN CLOSET"
  286.             DrawingParts(Idx%, dpType) = dpCloset
  287.         
  288.         Case "SHOWER"
  289.             DrawingParts(Idx%, dpType) = dpShower
  290.         
  291.         Case "SINK"
  292.             DrawingParts(Idx%, dpType) = dpSink
  293.         
  294.         Case "TOILET"
  295.             DrawingParts(Idx%, dpType) = dpToilet
  296.         
  297.         Case "WINDOW"
  298.             DrawingParts(Idx%, dpType) = dpWindow
  299.     End Select
  300.     Unload EditPartForm
  301. End Sub
  302.  
  303.  
  304. Private Sub Parts_Click()
  305. '
  306. '   allows the user to change to type of part it is
  307. '
  308.     DirtyFlag% = True
  309.     
  310.     Dim P$
  311.     Dim PartType As Integer
  312.     P$ = UCase$(Parts.List(Parts.ListIndex))
  313.     AlignX.Enabled = False
  314.     AlignY.Enabled = False
  315.     AlignX.Value = False
  316.     AlignY.Value = False
  317.     
  318.     Select Case P$
  319.         Case "BATH TUB"
  320.             PartType = dpBathTub
  321.             CurrentPart.Caption = "Bath Tub"
  322.             
  323.         Case "DOOR"
  324.             PartType = dpDoor
  325.             CurrentPart.Caption = "Door"
  326.         
  327.         Case "LINEN CLOSET"
  328.             PartType = dpCloset
  329.             CurrentPart.Caption = "Linen Closet"
  330.         
  331.         Case "SHOWER"
  332.             PartType = dpShower
  333.             CurrentPart.Caption = "Shower"
  334.         
  335.         Case "SINK"
  336.             PartType = dpSink
  337.             CurrentPart.Caption = "Sink"
  338.         
  339.         Case "TOILET"
  340.             PartType = dpToilet
  341.             CurrentPart.Caption = "Toilet"
  342.         
  343.         Case "WINDOW"
  344.             PartType = dpWindow
  345.             CurrentPart.Caption = "Window"
  346.     End Select
  347.  
  348.     If P$ = "BATH TUB" Or P$ = "SINK" Or P$ = "CLOSET" Or P$ = "TOILET" Or P$ = "BATHTUB" Then
  349.         AlignX.Enabled = True
  350.         AlignY.Enabled = True
  351.         AlignX.Value = epfAlignX
  352.         AlignY.Value = Not epfAlignX
  353.     End If
  354. End Sub
  355.  
  356.  
  357. Private Sub PartX_Change()
  358.  
  359.     DirtyFlag% = True
  360. End Sub
  361.  
  362.  
  363. Private Sub PartY_Change()
  364.  
  365.     DirtyFlag% = True
  366. End Sub
  367.  
  368.  
  369.