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>