InForm/examples/WordClock/WordClock.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, "WordClock", 325, 442, 0, 0, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "Word Clock"
    Control(__UI_NewID).Font = SetFont("arial.ttf", 12)
    Control(__UI_NewID).ForeColor = _RGB32(0, 39, 0)
    Control(__UI_NewID).BackColor = _RGB32(6, 22, 6)
    Control(__UI_NewID).HasBorder = False

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "ITISLB", 84, 41, 9, 10, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "IT   IS"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "HALFLB", 82, 41, 131, 10, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "HALF"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "TENLB", 63, 41, 251, 10, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "TEN"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "QUARTERLB", 154, 41, 9, 56, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "QUARTER"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "TWENTYLB", 135, 41, 179, 56, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "TWENTY"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "FIVELB", 71, 41, 9, 102, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "FIVE"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "MINUTESLB", 143, 41, 104, 102, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "MINUTES"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "TOLB", 43, 41, 271, 102, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "TO"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "PASTLB", 80, 41, 9, 148, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "PAST"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "TWOLB", 76, 41, 110, 148, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "TWO"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "THREELB", 107, 41, 207, 148, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "THREE"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "ONELB", 69, 41, 9, 194, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "ONE"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "FOURLB", 91, 41, 117, 194, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "FOUR"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "FIVELB2", 71, 41, 247, 194, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "FIVE"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "SIXLB", 51, 41, 9, 240, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "SIX"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "SEVENLB", 107, 41, 85, 240, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "SEVEN"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "EIGHTLB", 97, 41, 217, 240, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "EIGHT"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "NINELB", 76, 41, 9, 286, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "NINE"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "TENLB2", 63, 41, 105, 286, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "TEN"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "ELEVENLB", 125, 41, 188, 286, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "ELEVEN"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "TWELVELB", 130, 41, 9, 332, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "TWELVE"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "OCLOCKLB", 142, 41, 173, 332, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "O'CLOCK"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle
    Control(__UI_NewID).AutoSize = True

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "BackDots", 100, 52, 113, 390, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "* * * *"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 42)
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).Align = __UI_Center
    Control(__UI_NewID).VAlign = __UI_Middle

    __UI_NewID = __UI_NewControl(__UI_Type_Label, "DotsLB", 100, 52, 113, 390, 0)
    __UI_RegisterResult = 0
    SetCaption __UI_NewID, "* * * *"
    Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 42)
    Control(__UI_NewID).ForeColor = _RGB32(111, 205, 0)
    Control(__UI_NewID).BackStyle = __UI_Transparent
    Control(__UI_NewID).HasBorder = False
    Control(__UI_NewID).VAlign = __UI_Middle

END SUB

SUB __UI_AssignIDs
    WordClock = __UI_GetID("WordClock")
    ITISLB = __UI_GetID("ITISLB")
    HALFLB = __UI_GetID("HALFLB")
    TENLB = __UI_GetID("TENLB")
    QUARTERLB = __UI_GetID("QUARTERLB")
    TWENTYLB = __UI_GetID("TWENTYLB")
    FIVELB = __UI_GetID("FIVELB")
    MINUTESLB = __UI_GetID("MINUTESLB")
    TOLB = __UI_GetID("TOLB")
    PASTLB = __UI_GetID("PASTLB")
    TWOLB = __UI_GetID("TWOLB")
    THREELB = __UI_GetID("THREELB")
    ONELB = __UI_GetID("ONELB")
    FOURLB = __UI_GetID("FOURLB")
    FIVELB2 = __UI_GetID("FIVELB2")
    SIXLB = __UI_GetID("SIXLB")
    SEVENLB = __UI_GetID("SEVENLB")
    EIGHTLB = __UI_GetID("EIGHTLB")
    NINELB = __UI_GetID("NINELB")
    TENLB2 = __UI_GetID("TENLB2")
    ELEVENLB = __UI_GetID("ELEVENLB")
    TWELVELB = __UI_GetID("TWELVELB")
    OCLOCKLB = __UI_GetID("OCLOCKLB")
    BackDots = __UI_GetID("BackDots")
    DotsLB = __UI_GetID("DotsLB")
END SUB