'
'Menu Selection Ver0.2
'Usage: Move mouse on item, Click to select.
'Witten by Nadesom@yahoo.com
'2002.1
'
DECLARE SUB 01click (Sender AS QLABEL)
DECLARE SUB 02click (Sender AS QLABEL)
DECLARE SUB 03click (Sender AS QLABEL)


DECLARE SUB 01move (X AS LONG, Y AS LONG, Shift AS LONG, Sender AS Qlabel)
DECLARE SUB 02move (X AS LONG, Y AS LONG, Shift AS LONG, Sender AS Qlabel)
DECLARE SUB 03move (X AS LONG, Y AS LONG, Shift AS LONG, Sender AS Qlabel)

DECLARE SUB Fmmove (X AS LONG, Y AS LONG, Shift AS LONG, Sender AS Qform)

DIM Font AS QFont

OldColor=RGB(0,200,0)
Newcolor=RGB(200,0,0)

Font.Color=OldColor

CREATE Form AS QFORM
    Caption = "Select"
    Width = 100
    Height = 170
    Center
    CREATE Label1 AS QLABEL
        Caption = "ON"
        font=font
        Left = 40
        Top = 20
        Width = 50
        Height = 16
        OnClick = 01Click
        OnMouseMove=01move
    END CREATE
    CREATE Label2 AS QLABEL
        Caption = "OFF"
        font=font
        Left = 40
        Top = 60
        Width = 50
        Height = 16
        OnClick = 02Click
        OnMouseMove=02move
    END CREATE
    CREATE Label3 AS QLABEL
        Caption = "Exit"
        font=font
        Left = 40
        Top = 100
        Width = 50
        Height = 16
        OnClick = 03Click
        OnMouseMove=03move
    END CREATE
    OnMouseMove=FMMove
END CREATE

Form.ShowModal

SUB 01Click (Sender AS QLABEL)
    showmessage "You selection is ON"
END SUB

SUB 02Click (Sender AS QLABEL)
    showmessage "You selection is OFF"
END SUB

SUB 03Click (Sender AS QLABEL)
    end
END SUB

SUB 01move (X AS LONG, Y AS LONG, Shift AS LONG, Sender AS Qlabel)
    if x<label1.width then label1.font.color=NewColor
END SUB

SUB 02move (X AS LONG, Y AS LONG, Shift AS LONG, Sender AS Qlabel)
    if x<label2.width then label2.font.color=NewColor
END SUB

SUB 03move (X AS LONG, Y AS LONG, Shift AS LONG, Sender AS Qlabel)
    if x<label3.width then label3.font.color=NewColor
END SUB

SUB Fmmove (X AS LONG, Y AS LONG, Shift AS LONG, Sender AS Qform)

    if x<label1.left or x>(label1.left+label1.width) or y<label1.top or y>(label1.top+label1.height) then
       label1.font.color=OldColor
    end if

    if x<label2.left or x>(label2.left+label2.width) or y<label2.top or y>(label2.top+label2.height) then
       label2.font.color=OldColor
    end if

    if x<label3.left or x>(label3.left+label3.width) or y<label3.top or y>(label3.top+label3.height) then
       label3.font.color=OldColor
    end if

end sub