OmagCUT/Utility.vb

Imports System.Globalization
Imports EgtUILib

Module Utility

    Friend Sub HideParkedParts()
        Dim nPartId As Integer = EgtGetFirstPart()
        While nPartId <> GDB_ID.NULL
            EgtSetStatus(nPartId, GDB_ST.OFF)
            nPartId = EgtGetNextPart(nPartId)
        End While
    End Sub

    Friend Sub ShowParkedParts()
        Dim nPartId As Integer = EgtGetFirstPart()
        While nPartId <> GDB_ID.NULL
            EgtSetStatus(nPartId, GDB_ST.ON_)
            nPartId = EgtGetNextPart(nPartId)
        End While
    End Sub

    Friend Function DoubleToString(ByVal dVal As Double, ByVal nNumDec As UInteger) As String
        Dim sFormat As String = "F" + nNumDec.ToString()
        Dim sVal As String = dVal.ToString(sFormat, CultureInfo.InvariantCulture)
        If nNumDec > 0 Then
            Return sVal.TrimEnd("0".ToCharArray()).TrimEnd(".".ToCharArray)
        Else
            Return sVal
        End If
    End Function

    Friend Function StringToDouble(ByVal sVal As String, ByRef dVal As Double) As Boolean
        Return EgtLuaEvalNumExpr(sVal, dVal)
    End Function

End Module