SetXProgressBarColor

Синтаксис

Sub SetXProgressBarColor(ByVal gadget As long, ByVal flagColor As Long)

Описание

Устанавливает цвет визуального отображения для ProgressBarGadget . Работает только при установке в ресурсах XP-Manifest

Параметры

gadget - номер гаджета

flagColor - флаг, определяющий цвет, может быть:
    1 (зеленый) в прогрессе
    2 (красный) ошибка
    3 (желтый) пауза

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer hwnd,event
hwnd=OpenWindow("Window",10,10,350,100) : CenterWindow(hwnd)
Var dd=ProgressBarGadget(1,10,10,300,20)
SetRangeProgressBar(1,0,100)
SetTimer(hwnd,1,1000,0)
Var a=0
Do
  event=WaitEvent()
  If Event=EventClose Then
     End
  ElseIf Event=EventTimer Then
     a+=20
     If a=80 Then
        SetXProgressBarColor(1,2)
        Messbox("Ошибка","Ошибка")
        end
     EndIf
     SetGadgetState(1,a)
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easily create iPhone documentation