' Rapid-Q by William Yu (c)1999-2000                                             .
' ================================================================================
' Upload_il_tuo_script_su_Rapidq.it

' QProgress

****** QProgress Component ******
QProgressBar is a progress bar.Used visually to give users the progress of an
operation.
 
 
QProgress Properties
Field           Type            R/W             Défault
=============== =============== =============== =============== ===============
Handle          INTEGER         RW
Height          INTEGER         RW
Left            INTEGER         RW              0
                Handle QFORM/
Parent          QPANEL/         RW
                QTABCONTROL
Top             INTEGER         RW              0
Width           INTEGER         RW
Visible         INTEGER         RW              True
Value           INTEGER         RW
                Progress value. 
QProgress Methods
Method          Type            Description     Params
=============== =============== =============== =============== ===============
QProgress Events
Event           Type            Occurs when...  Params
=============== =============== =============== =============== ===============
QProgress Examples
$TYPECHECK ON
$Include "Rapidq.inc"
$include "Object\QProgress.inc"
Declare Sub Start
Declare Sub Display
dim pourcent as integer
dim tempo as QTIMER
tempo.interval=100
tempo.enabled=False
tempo.OnTimer=Display
dim Bar as QProgress
CREATE Form AS QFORM
    Caption = "Progress Bar"
    Width = 350
    Height = 180
    Center
    CREATE Button1 AS QBUTTON
        Caption = "Start"
        Left = 125
        Top = 100
        OnClick=Start
    END CREATE
END CREATE
Bar.parent=form.handle
Bar.left=10
Bar.Top=40
Bar.Width=305
Bar.Height=25
Form.ShowModal
Sub Display
  if pourcent<100 then
    pourcent=pourcent+1
    Bar.Value=pourcent
  else
    tempo.enabled=False
  end if
End Sub
Sub Start
  pourcent=0
  Bar.Value=0
  tempo.enabled=True
End Sub



' ===============================================================================
'                      2003 Holyguard.net - 2007_Abruzzoweb