'
'Menu Selection Under DXScreen Ver0.1
'Usage: Move mouse on item, Click to select.
'Witten by Nadesom@yahoo.com
'2002.1
'

$INCLUDE "RAPIDQ.INC"
 
Declare Sub DrawScreen

Declare sub XMouseMove(curX,curY)
Declare Sub XClick 

DIM Form AS QForm
  Form.ClientHeight = 480
  Form.ClientWidth = 640
DIM ScreenX AS QDXScreen
  ScreenX.Parent = Form
  ScreenX.Init(640, 480)
  ScreenX.Align = alClient
 
dim curItem
dim oldItem

dim Nitem
dim x(10)
dim y(10)
dim Mstr$(10)

Nitem=3
curItem=0
oldItem=0
dim i
for i=1 to Nitem
    x(i)=100
    y(i)=100+(i-1)*40 
next i
Mstr$(1)="ON"
Mstr$(2)="OFF"
Mstr$(3)="Exit"

Form.OnPaint=DrawScreen

ScreenX.OnMouseMove=XMouseMove
ScreenX.OnClick=XClick

Form.ShowModal

'------------------------------------------------------------------------------------------------------------

Sub DrawScreen
   for i=1 to Nitem
       ScreenX.TextOut(x(i),y(i),Mstr$(i),rgb(200,0,0),rgb(0,0,0))
   next i
   ScreenX.Flip
End Sub

sub XMouseMove(curX,curY)
    curItem=0
    for i=1 to Nitem
        if curX>x(i) and curX<(x(i)+ScreenX.TextWidth(Mstr$(i))) and curY>y(i) and curY<(y(i)+ScreenX.TextHeight(Mstr$(i))) then
           curItem=i
           exit for
        end if
    next i
    if oldItem>0 then ScreenX.TextOut(x(oldItem),y(oldItem),Mstr$(oldItem),rgb(200,0,0),rgb(0,0,0))
    if curItem>0 then ScreenX.TextOut(x(curItem),y(curItem),Mstr$(curItem),rgb(0,200,0),rgb(0,0,0))
    oldItem=curItem
    ScreenX.Flip
end sub

Sub XClick 
    Select case curItem
      case 0:
        ScreenX.TextOut(x(1),y(Nitem)+40,"No selection.                  ",rgb(0,0,255),rgb(0,0,0))
      case 1:
        ScreenX.TextOut(x(1),y(Nitem)+40,"Your selection is ON.  ",rgb(0,0,255),rgb(0,0,0))
      case 2:
        ScreenX.TextOut(x(1),y(Nitem)+40,"Your selection is OFF.",rgb(0,0,255),rgb(0,0,0))
      case 3:
        end
    End Select
    ScreenX.Flip
End Sub