InForm/examples/PlayFX/PlayFX.frm

': This form was generated by
': InForm - GUI library for QB64 - v1.5
': Fellippe Heitor, 2016-2023 - fellippe@qb64.org - @fellippeheitor
': https://github.com/FellippeHeitor/InForm
'-----------------------------------------------------------
SUB __UI_LoadForm

    DIM __UI_NewID AS LONG, __UI_RegisterResult AS LONG

    __UI_NewID = __UI_NewControl(__UI_Type_Form, "PlayFXDesigner", 640, 450, 0, 0, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "PlayFX Designer"
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12)
    Control(__UI_NewID).HasBorder = False

    __UI_NewID = __UI_NewControl(__UI_Type_Frame, "Waveforms", 620, 163, 10, 10, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Wave&forms:"
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Value = 5
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Frame, "ConfigureWaveform", 620, 206, 10, 184, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "&Configure Waveform:"
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Value = 14
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Frame, "PlayFX", 620, 41, 10, 399, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Play F&X:"
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Value = 2
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "Waveform1TB", 600, 23, 10, 15, __UI_GetID("Waveforms"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Waveform1"
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "Waveform2TB", 600, 23, 10, 43, __UI_GetID("Waveforms"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Waveform2"
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "Waveform3TB", 600, 23, 10, 71, __UI_GetID("Waveforms"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Waveform3"
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "Waveform4TB", 600, 23, 10, 99, __UI_GetID("Waveforms"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Waveform4"
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "Waveform5TB", 600, 23, 10, 127, __UI_GetID("Waveforms"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Waveform5"
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "WaveformLB", 58, 22, 15, 11, __UI_GetID("ConfigureWaveform"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "&Waveform:"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_TrackBar, "WaveformSlider", 431, 40, 73, 11, __UI_GetID("ConfigureWaveform"))
    __UI_RegisterResult = 0
    ToolTip(__UI_NewID) = "Waveform (1 - 5)"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).Value = 3
    Control(__UI_NewID).Min = 1
    Control(__UI_NewID).Max = 5
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).Interval = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "WaveformNameLB", 106, 24, 504, 11, __UI_GetID("ConfigureWaveform"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "WaveformName"
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "NoteLB", 29, 22, 44, 46, __UI_GetID("ConfigureWaveform"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "&Note:"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_TrackBar, "NoteSlider", 537, 30, 73, 46, __UI_GetID("ConfigureWaveform"))
    __UI_RegisterResult = 0
    ToolTip(__UI_NewID) = "Note (0 - 84)"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).Value = 42
    Control(__UI_NewID).Max = 84
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).Interval = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "LengthLB", 40, 22, 33, 78, __UI_GetID("ConfigureWaveform"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "&Length:"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_TrackBar, "LengthSlider", 463, 30, 73, 77, __UI_GetID("ConfigureWaveform"))
    __UI_RegisterResult = 0
    ToolTip(__UI_NewID) = "Length (1 - 64)"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).Value = 4
    Control(__UI_NewID).Min = 1
    Control(__UI_NewID).Max = 64
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).Interval = 1

    __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "LengthEffectsDL", 74, 24, 536, 76, __UI_GetID("ConfigureWaveform"))
    __UI_RegisterResult = 0
    ToolTip(__UI_NewID) = "Length effect"
    AddItem __UI_NewID, "Normal"
    AddItem __UI_NewID, "Legato"
    AddItem __UI_NewID, "Staccato"
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).Value = 1
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "TempoLB", 39, 22, 34, 108, __UI_GetID("ConfigureWaveform"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "&Tempo:"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_TrackBar, "TempoSlider", 537, 30, 73, 108, __UI_GetID("ConfigureWaveform"))
    __UI_RegisterResult = 0
    ToolTip(__UI_NewID) = "Tempo (32 - 255)"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).Value = 120
    Control(__UI_NewID).Min = 32
    Control(__UI_NewID).Max = 255
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).Interval = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "VolumeLB", 44, 22, 29, 140, __UI_GetID("ConfigureWaveform"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "&Volume:"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_TrackBar, "VolumeSlider", 537, 30, 73, 139, __UI_GetID("ConfigureWaveform"))
    __UI_RegisterResult = 0
    ToolTip(__UI_NewID) = "Volume (0 - 100)"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).Value = 100
    Control(__UI_NewID).Max = 100
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).Interval = 1
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "VolRampLB", 57, 22, 16, 171, __UI_GetID("ConfigureWaveform"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Vol. &Ramp:"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_TrackBar, "VolRampSlider", 537, 30, 73, 170, __UI_GetID("ConfigureWaveform"))
    __UI_RegisterResult = 0
    ToolTip(__UI_NewID) = "Volume Ramp (0 - 100)"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).Value = 10
    Control(__UI_NewID).Max = 100
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).Interval = 1

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "PlayFXTB", 550, 23, 11, 10, __UI_GetID("PlayFX"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "PlayFX"
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "PlayBT", 50, 23, 560, 10, __UI_GetID("PlayFX"))
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "&Play"
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).CanHaveFocus = True

END SUB

SUB __UI_AssignIDs
    PlayFXDesigner = __UI_GetID("PlayFXDesigner")
    Waveforms = __UI_GetID("Waveforms")
    ConfigureWaveform = __UI_GetID("ConfigureWaveform")
    PlayFX = __UI_GetID("PlayFX")
    Waveform1TB = __UI_GetID("Waveform1TB")
    Waveform2TB = __UI_GetID("Waveform2TB")
    Waveform3TB = __UI_GetID("Waveform3TB")
    Waveform4TB = __UI_GetID("Waveform4TB")
    Waveform5TB = __UI_GetID("Waveform5TB")
    WaveformLB = __UI_GetID("WaveformLB")
    WaveformSlider = __UI_GetID("WaveformSlider")
    WaveformNameLB = __UI_GetID("WaveformNameLB")
    NoteLB = __UI_GetID("NoteLB")
    NoteSlider = __UI_GetID("NoteSlider")
    LengthLB = __UI_GetID("LengthLB")
    LengthSlider = __UI_GetID("LengthSlider")
    LengthEffectsDL = __UI_GetID("LengthEffectsDL")
    TempoLB = __UI_GetID("TempoLB")
    TempoSlider = __UI_GetID("TempoSlider")
    VolumeLB = __UI_GetID("VolumeLB")
    VolumeSlider = __UI_GetID("VolumeSlider")
    VolRampLB = __UI_GetID("VolRampLB")
    VolRampSlider = __UI_GetID("VolRampSlider")
    PlayFXTB = __UI_GetID("PlayFXTB")
    PlayBT = __UI_GetID("PlayBT")
END SUB