Delete shop

[iHero]

**Introduction**

There is no code in the delete button in the editor shop.

**Client~Side**

At the end of the _frmEditor_Shop_ add:

```
Private Sub cmdDelete_Click()
    Dim tmpIndex As Long

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    ClearShop EditorIndex
    tmpIndex = lstIndex.ListIndex
    lstIndex.RemoveItem EditorIndex - 1
    lstIndex.AddItem EditorIndex & ": " & Shop(EditorIndex).Name, EditorIndex - 1
    lstIndex.ListIndex = tmpIndex
    ShopEditorInit

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "cmdDelete_Click", "frmEditor_Shop", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub
```

**Credits**

Ricardo

[Wortel Angels]

Nice i fixed that already and wanted to create an Tutorial but i forgot it >.<

[Zopto]

> Nice i fixed that already and wanted to create an Tutorial but i forgot it >.<

trolololo xD

And nice ricardo tnx

[iHero]

Thanks xD

[kurenai]

Thanks  ;)

[Growlith1223]


[Mohenjo Daro]

Oh well, I didn't even think I needed this till now, thanks for raising it XD