'

' Simple program that shows how to use the XSIUIToolkit object to create a ProgressBar.

'

'Demonstrates the use of the progress bar in displaying a fake rendering process. 

dim oProgressBar

set oProgressBar = XSIUIToolkit.ProgressBar

oProgressBar.Maximum = 65535

oProgressBar.Caption = "Rendering"

oProgressBar.Visible = True

for i = oProgressBar.Minimum to oProgressBar.Maximum

	if oProgressBar.CancelPressed then

		logmessage "Progress bar cancelled at " & oProgressBar.Increment

		exit for

	end if

	x = oProgressBar.Increment

	oProgressBar.StatusText = "Frame " & x

next

' 

' Simple program that shows how to use the XSIUIToolkit object.

' 

dim oFileBrowser

set oFileBrowser = XSIUIToolkit.FileBrowser

' set the title, initial directory and filter

oFileBrowser.DialogTitle = "Select a file"		

oFileBrowser.InitialDirectory = "c:\myInitialDir\"

oFileBrowser.Filter = "All Files (*.*)|*.*||"

' show an open file dialog

oFileBrowser.ShowOpen

If oFileBrowser.FilePathName <> "" Then

		logmessage "User selected " & oFileBrowser.FilePathName

Else

		logmessage "User pressed cancel"

End If