Mirage Source
idea for future builds : toggle menus - Printable Version

+- Mirage Source (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 3.x.x, MSx (https://mirage-engine.uk/forums/forumdisplay.php?fid=45)
+----- Thread: idea for future builds : toggle menus (/showthread.php?tid=2020)

idea for future builds : toggle menus - VersionX - 17-08-2008

When you click a menu icon (ex: inventory), it opens.
When you click it again, it closes. Basically, the have icons toggle menus on/off.

Or is this programmable on our side? =D

EDIT: Great work so far gentlemen.

Re: idea for future builds : toggle menus - Acruno - 17-08-2008

VersionX Wrote:Or is this programmable on our side? =D

Um..how many sides are there?

Re: idea for future builds : toggle menus - Poyzin - 17-08-2008

VersionX Wrote:When you click a menu icon (ex: inventory), it opens.
When you click it again, it closes. Basically, the have icons toggle menus on/off.

This is very easy to do.
Other engines have this O.o

Re: idea for future builds : toggle menus - Anthony - 18-08-2008

Code:
Private Sub picInventory_click()
If picInv.Visible = True Then
picInv.Visible = False
Else
picInv.Visible = True
End If
End Sub


Re: idea for future builds : toggle menus - Poyzin - 18-08-2008

Anthony Wrote:
Code:
Private Sub picInventory_click()
If picInv.Visible = True Then
picInv.Visible = False
Else
picInv.Visible = True
End If
End Sub

See?

Re: idea for future builds : toggle menus - Jacob - 18-08-2008

Anthony Wrote:
Code:
Private Sub picInventory_click()
If picInv.Visible = True Then
picInv.Visible = False
Else
picInv.Visible = True
End If
End Sub

Or

Code:
Private Sub picInventory_click()
picInv.Visible = not picinv.visible
End Sub


Re: idea for future builds : toggle menus - Robin - 18-08-2008

Dugor wins one gold star.

Re: idea for future builds : toggle menus - Jacob - 18-08-2008

I love Gold Stars.

Re: idea for future builds : toggle menus - Robin - 18-08-2008

I love you.

Re: idea for future builds : toggle menus - Poyzin - 18-08-2008

I'm terrified.

Re: idea for future builds : toggle menus - VersionX - 21-08-2008

Dugor Wrote:
Code:
Private Sub picInventory_click()
picInv.Visible = not picinv.visible
End Sub

Is there a better/less-verbose way to toggle the spells, it looks different:
Code:
Dim spellsVisible as Boolean

Private Sub Form_Load()
    frmMirage.Width=10080
    spellsVisible = false
End Sub

Private Sub picSpells_Click()
    If Not spellsVisible Then
        Call SendData("spells" & END_CHAR)
    Else
        Call lblSpellsCancel_Click
    End If
    spellsVisible = Not spellsVisible
End Sub


Re: idea for future builds : toggle menus - Anthony - 21-08-2008

You shouldn't need to create a boolean. All you need is picSpells.Visible = not picSpells.Visible.

Dugors code is just using the opposite of it's value which is already there. You shouldn't have to make anything else.

Re: idea for future builds : toggle menus - Rian - 21-08-2008

No, he's just saying you don't need to code exery little thing. Pictureboxes have a .Visible property which is already like a Boolean variable.

Code:
Private Sub picSpells_Click()
    picPlayerSpells.Visible = not picPlayerSpells.Visible
    If picPlayerSpells.Visible = True Then
        CallSendData("spells" & END_CHAR)
    End If
End Sub