QProgressBar Component

QProgressBar gives you an XP style progress bar or marquee progress bar. Used visually to let users them know the program is busy
or how far progress is made. This component replaces QProgress and uses windows background tasking. To get XP /vista /Win 7styles,
you must include a XP manifest file or embed a manifest file using FreeQ IDEa or other utility (see below).

QProgressBar Properties
Field Type R/W Défault





BackColor INTEGER RW 0
Color INTEGER     (Foreground Color) RW Form.Color
Handle INTEGER RW
Height INTEGER RW 18
Interval Update interval for moving graphics operating in the background RW 40 ms
Kind INTEGER RW
Kind can be
PBS_OLD     'simple box version, e.g., windows 98 style
PBS_SMOOTH
PBS_VERTICAL
PBS_MARQUEE
PBS_SMOOTHREVERSE
Left INTEGER RW 0
Parent Handle QFORM/QPANEL/QTABCONTROL RW
Increment INTEGER    RW 1
State INTEGER    RW PBST_normal
Top INTEGER RW 0
Width INTEGER RW 100
Visible INTEGER RW True
Visible will turn it on or off 
Position INTEGER RW
Progress value in percent (0 - 100) , does not work with PBS_MARQUEE

QProgress Methods
Method Type Description Params





QProgress Examples

$INCLUDE <Rapidq.inc>
$INCLUDE <QProgressBar.inc>
CREATE Form AS QFORM
    CREATE prog AS QProgressBar
        'set kind first may help in some cases
        Kind = PBS_OLD 'PBS_VERTICAL
        Parent = Form.Handle    'must set this way
        Width = Form.ClientWidth
        Position = 50
        State = PBST_ERROR

    END CREATE
END CREATE

Form.Show

prog.Kind = PBS_MARQUEE
prog.Visible = true
showmessage  "marquee"

prog.Visible = false
showmessage  "now closed"

prog.Kind = PBS_SMOOTH
prog.Visible = true
prog.Position = 50
showmessage  "smooth"

Form.Close
 Here is an example of a manifest file. Place it in the directory of your program and Save it as
myExeName.exe.manifest

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
version = "1.0.0.0"
processorArchitecture = "X86"
name = "[].[].[]"
type="win32"
/>
<description></description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name = "Microsoft.Windows.Common-Controls"
version = "6.0.0.0"
processorArchitecture = "X86"
publicKeyToken = "6595b64144ccf1df"
language = "*"
/>
</dependentAssembly>
</dependency>
</assembly>