| |
| |
|
Jac
de
Lad | ¡Hola Comunidad!
Como hacer lo algunos Programas, dass el Progressbar sólo una Teil anzeigt. So como beim Systemstart de Windows? Ist el ne Standard-Progressbar oder muss uno para solche Spielereien otra vez qué propio programa?!
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 como musst Usted incluso ran. |
|
| |
| |
| |
|
|
Jac
de
Lad | | Exactamente...aber como Yo de algo como ni idea habe, begrabe Yo mi Vorstellungen...schade, porque lo son así viele bastante praktische Controls, el por desgracia, no en Profano nutzbar son... |
|
| |
| 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 así wohl, dass du algo como selber malen sollst. Ist sí no así schwer, Mach dir una Screenshot de así una leeren Control y una de una vollen. Dann kopierst du el Gráficos así, como du lo necesidad. |
|
| |
| |
| |
|
|
Jac
de
Lad | | Naja, el es no Kunst, lo debería se sólo a el Style adaptar! |
|
| |
| 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 el Gráficos a Laufzeit. |
|
| |
| |
| |
|
|
Jac
de
Lad | Und el 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 simplemente:
Usted erstellst una normale Progressbar y setzt esta en 100%
In esta setzt Usted 2 con Abstand versehene weise Statics en el Progressbar.
Mit una Temporizador y una bisschen Rechnen lässt Usted esta nun en el Progressbar por Setwindowpos wandern. |
|
| |
| |
| |
|
|
| Oder él zeigt simplemente el Gif a createhtmlbox  "mshtml://<img src=mygif.gif>". Ein Chiste breve. |
|
| |
| |
| |
|
|
| @¡Hola Jacob
Tal vez kannst Usted con el Code Usted algo remendar...
KompilierenMarcaSeparaciónBeispiel, 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 | Gracias Horst, el war aber por desgracia, no el, Yo gesucht habe.
Rolf kommt el ya bien nahe!  Yo glaube, así voluntad ego hacer!
Gracias a todos,
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 ▲ |
|
| |
|
(1.113)
Deutsch
English
Français
Español
Italia