09-04-2007, 02:39 PM
I didn't change any options when transferring it to a form, and I don't think my code says it needs to be like that look:
Code:
' // MAP EDITOR STUFF //
Option Explicit
Private Sub optLayers_Click()
If optLayers.Value = True Then
fraLayers.Visible = True
fraAttribs.Visible = False
End If
End Sub
Private Sub optAttribs_Click()
If optAttribs.Value = True Then
fraLayers.Visible = False
fraAttribs.Visible = True
End If
End Sub
Private Sub picBackSelect_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Call EditorChooseTile(Button, Shift, x, y)
End Sub
Private Sub picBackSelect_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Call EditorChooseTile(Button, Shift, x, y)
End Sub
Private Sub cmdSend_Click()
Call EditorSend
End Sub
Private Sub cmdCancel_Click()
Call EditorCancel
End Sub
Private Sub cmdProperties_Click()
frmMapProperties.Show vbModal
End Sub
Private Sub optWarp_Click()
frmMapWarp.Show vbModal
End Sub
Private Sub optItem_Click()
frmMapItem.Show vbModal
End Sub
Private Sub optKey_Click()
frmMapKey.Show vbModal
End Sub
Private Sub optKeyOpen_Click()
frmKeyOpen.Show vbModal
End Sub
Private Sub scrlPicture_Change()
Call EditorTileScroll
End Sub
Private Sub cmdClear_Click()
Call EditorClearLayer
End Sub
Private Sub cmdClear2_Click()
Call EditorClearAttribs
End Sub