Seite 1 von 2
Animierte ProgressBar
Verfasst: 25.08.2008 18:05
von 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
Verfasst: 25.08.2008 18:24
von 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
Verfasst: 25.08.2008 18:29
von Josef Sniatecki
Eine frage hätte ich noch: Wie kann man diese Animation rückgängig
machen?
Verfasst: 25.08.2008 18:29
von Knight_Rider_2000
ts-soft hat geschrieben:der Zweck entzieht sich mir, weil Fortschritt (Progress)
wird so nicht angezeigt
Ist nur Visuell gut zu gebrauchen
Verfasst: 25.08.2008 18:30
von 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
Verfasst: 25.08.2008 18:35
von ts-soft
Wenn man time runtersetzt, dann ähnelt es wirklich dem Knight Rider
Verfasst: 25.08.2008 18:36
von Knight_Rider_2000
Und wenn man time hoch setzt wie dem Ts-Soft
Verfasst: 25.08.2008 18:57
von dige
hier passiert gar nix. muss man dazu die windows bonbon optik aktivieren?
Verfasst: 25.08.2008 19:03
von Knight_Rider_2000
xp skin musste aktiviert haben
mehr weiss ich nich wasde unter bonbon meinst
Verfasst: 25.08.2008 19:21
von Kiffi
@Knight_Rider_2000: xp skin = bonbon
Knight_Rider_2000 hat geschrieben: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