2004-04-21 09:24

' test.bas : qspintext component test program
' Mesut Akcan
     $INCLUDE "RAPIDQ.INC"

     $APPTYPE GUI
'$typecheck on
     $OPTION level 3

     $INCLUDE "qspintext.inc"

     DECLARE SUB frm_click

     CREATE form AS QFORM
      CREATE label1 AS QLABEL
       CAPTION = "Number (-10 to 125):"
       top = 10
      END CREATE
      CREATE stx AS Qspintext
       left = 100
       top  = 8
       width=100
       max  = 125
       min  = - 10
       value= - 3
       COLOR=clRed
       bgcolor=clYellow
       fontcolor=clBlue
       initial
      END CREATE
      onclick = frm_click
     END CREATE

     form.SHOWMODAL

     SUB frm_click
      SHOWMESSAGE "Qspintext.value=" + STR$(stx.value)
     END SUB

2004-04-21 09:24