| |
| |
|
Jac
de
Lad | Hallo Community!
Wie machen es einige Programme, dass die Progressbar nur einen Teil anzeigt. So wie beim Systemstart von Windows? Ist das ne Standard-Progressbar oder muss man per solche Spielereien wieder was eigenes programmieren?!
Jac  |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 24.03.2007 ▲ |
|
| |
|
|
 | Das hier? 
Glaube da musst Du selbst ran. |
|
| |
| |
| |
|
|
Jac
de
Lad | | Genau...aber da ich von sowas keine Ahnung habe, begrabe ich meine Vorstellungen...schade, denn es gibt so viele recht praktische Controls, die leider nicht in Profan nutzbar sind... |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 24.03.2007 ▲ |
|
| |
|
|
Frank
Abbing | | iF meint damit wohl, dass du sowas selber malen sollst. Ist ja nicht so schwer, Mach dir einen Screenshot von so einem leeren Control und einen von einem vollen. Dann kopierst du die Grafiken so, wie du es benötigst. |
|
| |
| |
| |
|
|
Jac
de
Lad | | Naja, das ist keine Kunst, es sollte sich nur an den Style anpassen! |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 24.03.2007 ▲ |
|
| |
|
|
Frank
Abbing | | Dann erstell die Grafiken zur Laufzeit. |
|
| |
| |
| |
|
|
Jac
de
Lad | Und die Farbverläufe?  |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 24.03.2007 ▲ |
|
| |
|
|
Rolf
Koch | Ganz einfach:
Du erstellst eine normale Progressbar und setzt diese auf 100%
In diese setzt Du 2 mit Abstand versehene weise Statics in der Progressbar.
Mit einem Timer und ein bisschen Rechnen lässt Du diese nun in der Progressbar per Setwindowpos wandern. |
|
| |
| |
| |
|
|
| Oder er zeigt einfach das Gif an createhtmlbox  "mshtml://<Img src=mygif.gif>". Ein Einzeiler. |
|
| |
| |
| |
|
|
| @Hallo Jacob
Vielleicht kannst Du mit dem Code Dir etwas basteln...
KompilierenMarkierenSeparierenBeispiel, das zeigt, wie mittels der @control-Funktion
unter Profan 32 Bit ein Fortschritt-Balken für Win95, WinNT erzeugt wird.
Die Länge des erzeugten Controls stellt in diesem Beispiel 100 % dar.
In der Progressbar wird außerdem der Fortschritt in % angezeigt.
Die Farbe, und Schrift kann individuell gesetzt werden.
-----------------------------------------------------------------------------
Progressbar Stil:
$50000000 Unterbrochen Laufrichtung links nach rechts
$50000001 Vollfarbe Laufrichtung links rechts
$50000004 Unterbrochen Laufrichtung von unten nach oben
$50000005 Vollfarbe Laufrichtung von unten nach oben
(c)1998 Richard Maurukas
=============================================================================
declare PRDialog&,text1%, text2%, text3%,text4%,text5%,Ende%
declare Progress_1&,Progress_2&
declare PM_Setpos&,PM_DeltaPos&
declare PrgProzent%
let PM_Setpos& =$402
let PM_DeltaPos& =$403
settruecolor 1
PROC DEL_PRG_PROZENTANZEIGE
Startpaint Progress_1&
textcolor rgb(192,192,192),rgb(192,192,192)
drawtext 280,0,
Endpaint
ENDPROC
PROC PRG_PROZENTANZEIGE
decimals 0
Startpaint Progress_1&
textcolor rgb(255,255,255),-1
drawtext 280,0,add$(str$(@%(1)),%)
endpaint
ENDPROC
let PRDialog&=@Createdialog(%HWND,Progressbalken für Win95, WinNT von Richard Maurukas,0,0,640,250)
Let Progress_1&=@control(msctls_progress32,@$(2),$50810001,20,60,600,20,PRDialog&,101,%HInstance)
let Progress_2&=@control(msctls_progress32,@$(2),$50800005,0,0,15,200,PRDialog&,102,%HInstance)
let text1% = @CreateButton(PRDialog&,Auf 50% setzen, 20,100,200,20)
let text2% = @CreateButton(PRDialog&,Um 2% erhöhen, 20,120,200,20)
let text3% = @CreateButton(PRDialog&,Um 2% erniedrigen,20,140,200,20)
let text4% = @CreateButton(PRDialog&,Auf 0% setzen, 20,160,200,20)
let text5% = @CreateButton(PRDialog&,Beenden, 20,180,200,20)
Startpaint PRdialog&
usefont Times New Roman,42,0,0,0,0
textcolor rgb(7,7,7),-1
Drawtext 260,120, Mit % Anzeige
endpaint
Whilenot Ende%
Waitinput
if getfocus(Text1%)
DEL_PRG_PROZENTANZEIGE
sendmessage(Progress_1&,PM_Setpos&,50,0) auf 50 setzen
sendmessage(Progress_2&,PM_Setpos&,50,0) auf 50 setzen
Let PrgProzent%=50
PRG_PROZENTANZEIGE PrgProzent%
elseif Getfocus(Text2%)
DEL_PRG_PROZENTANZEIGE
sendmessage(Progress_1&,PM_Deltapos&,2,0) 2 erhöhen
sendmessage(Progress_2&,PM_Deltapos&,2,0) 2 erhöhen
add prgProzent%,2
PRG_PROZENTANZEIGE PrgProzent%
elseif Getfocus(Text3%)
DEL_PRG_PROZENTANZEIGE
sendmessage(Progress_1&,PM_Deltapos&,-2,0) 2 erniedrigen
sendmessage(Progress_2&,PM_Deltapos&,-2,0) 2 erhöhen
sub prgProzent%,2
PRG_PROZENTANZEIGE PrgProzent%
elseif Getfocus(Text4%)
sendmessage(Progress_1&,PM_Setpos&,0,0) auf 0 setzen
sendmessage(Progress_2&,PM_Setpos&,0,0) auf 0 setzen
let prgprozent%=0
PRG_PROZENTANZEIGE PrgProzent%
elseif Getfocus(Text5%)
let Ende%=1
endif
wend
end
|
|
| |
| |
| |
|
|
Jac
de
Lad | Danke Horst, das war aber leider nicht das, was ich gesucht habe.
Rolf kommt dem schon gut nahe!  Ich glaube, so werde ichs machen!
Danke an alle,
Jac |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 24.03.2007 ▲ |
|
| |
|
(524)
Deutsch
English
Français
Español
Italia