Animierte ProgressBar

[Knight_Rider_2000]

hier mal ein code um eine Progressbar zu animieren

Viel spass damit
PS: XP Skin unterstuetzung aktivieren

Code: Alles auswählen

#PBS_MARQUEE=$40A
#IDC_BITMAP=1500

activate.w=1
time.l=100

If OpenWindow(0,0,0,200,60,"Animated ProgressBar",#PB_Window_ScreenCentered | #PB_Window_SystemMenu | #SS_BITMAP)
 If CreateGadgetList(WindowID(0))
  ProgressBarGadget(0,20,20,160,20,0,100)
 EndIf
EndIf
  
  SetWindowLong_(GadgetID(0), #GWL_STYLE, GetWindowLong_(GadgetID(0), #GWL_STYLE) ! #PBS_MARQUEE)
  SendMessage_(GadgetID(0),#PBS_MARQUEE,activate,time)

Repeat
Select WaitWindowEvent()
 Case #PB_Event_CloseWindow
  End
EndSelect
ForEver

[ts-soft]

Noch 2 EndIf einfügen und aus dem WindowEvent() ein WaitWindowEvent()
machen (im Sommer braucht man nicht heizen ) dann siehts
ganz hübsch aus, aber der Zweck entzieht sich mir, weil Fortschritt (Progress)
wird so nicht angezeigt

[Josef Sniatecki]

Eine frage hätte ich noch: Wie kann man diese Animation rückgängig
machen?

[Knight_Rider_2000]

der Zweck entzieht sich mir, weil Fortschritt (Progress)
wird so nicht angezeigt

Ist nur Visuell gut zu gebrauchen

[Knight_Rider_2000]

Code: Alles auswählen

activate.w=0;<---hier
time.l=100
SendMessage_(GadgetID(0),#PBS_MARQUEE,activate,time);und dann nochmals das hier ausfuehren 

[ts-soft]

Wenn man time runtersetzt, dann ähnelt es wirklich dem Knight Rider

[Knight_Rider_2000]

Und wenn man time hoch setzt wie dem Ts-Soft

[dige]

hier passiert gar nix. muss man dazu die windows bonbon optik aktivieren?

[Knight_Rider_2000]

xp skin musste aktiviert haben
mehr weiss ich nich wasde unter bonbon meinst

[Kiffi]

@Knight_Rider_2000: xp skin = bonbon

xp skin musste aktiviert haben

dann schreib es bitte in Dein Ursprungsposting mit rein.

Ich habe (wie dige) nämlich auch diesen fiesen XP-Skin deaktiviert und bei
mir passiert ebenso rein gar nichts.

Grüße ... Kiffi