Removing more forms - Printable Version

Removing more forms - Printable Version

+- Mirage Engine (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Source Code Development (https://mirage-engine.uk/forums/forumdisplay.php?fid=51)
+----- Forum: Mirage Source 4 (Visual Basic 6) (https://mirage-engine.uk/forums/forumdisplay.php?fid=44)
+----- Thread: Removing more forms (/showthread.php?tid=2678)

Removing more forms - GIAKEN - 02-04-2009

The map editor attributes use a lot of forms...we could merge them all into 1 form.

On the form make 3 scroll bars: scrlData(1 To 3), lblData(1 To 3)

Then we make Public MapEditorTileData(1 To 3) save the settings and we make MapEditorDataName(1 to 3) so we can change the label captions.

Now convert all the option buttons to optAttribute(1 To total attributes) and the code would be like this:

(very pseudo code)

Code:
Private Sub optAttribute_Click(Index As Integer)

Select case index

    case TILE_TYPE_ITEM

        With frmAttribute

            MapEditorDataName(1) = "Item: 0"

            MapEditorTileData(1) = 0

            MapEditorTileData(2) = 0

            MapEditorTileData(3) = 0

            lblData(1).Caption = MapEditorDataName(1)

            lblData(2).Visible = False

            lblData(3).Visible = False

            scrlData(1).Max = MAX_ITEMS

            scrlData(2).Visible = False

            scrlData(3).Visible = False

        End With

end select

End Sub

Then on the scrlData(Index) whatever:

lblData(Index).Caption = MapEditorDataName(Index) & ": " & scrlData(Index).Value
MapEditorTileData(Index) = scrlData(Index).Value

Well I hope you get the idea.