| |
| |
|
Jac
de
Lad | allô Community!
comment faire es quelques Programme, dass qui Progressbar seulement une partie anzeigt. So comment beim Systemstart de Windows? Ist cela ne Standard-Progressbar ou bien muss on pour solche Spielereien wieder quoi 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 ▲ |
|
| |
|
|
 | cela ici? 
Glaube là musst Du selbst ran. |
|
| |
| |
| |
|
|
Jac
de
Lad | | oui c'est ca...mais là je de quelque chose comme je n'en sais rien habe, begrabe je mon Vorstellungen...tant pis, car il y a so viele droite praktische Controls, qui malheureusement pas dans Profan nutzbar sommes... |
|
| |
| 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 avec cela wohl, dass du quelque chose comme selber malen sollst. Ist oui pas so schwer, Mach dir une Screenshot de so einem vider Contrôle et une de einem vollen. ensuite kopierst du qui Grafiken so, comment du es besoin. |
|
| |
| |
| |
|
|
Jac
de
Lad | | bof, c'est aucun Kunst, es sollte sich seulement à 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 | | ensuite erstell qui Grafiken zur Laufzeit. |
|
| |
| |
| |
|
|
Jac
de
Lad | et qui 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 | entier simple:
Du erstellst une normale Progressbar et mets cet sur 100%
dans cet mets Du 2 avec la distance versehene weise Statics dans qui Progressbar.
avec einem Minuteur et un bisschen le calcul peut Du cet eh bien dans qui Progressbar per Setwindowpos wandern. |
|
| |
| |
| |
|
|
| ou bien il zeigt simple cela Gif à createhtmlbox  "mshtml://<Img src=mygif.gif>". un Einzeiler. |
|
| |
| |
| |
|
|
| @allô Jacob
peut-être peux Du avec dem Code Dir quelque chose bricoler...
KompilierenMarqueSéparationBeispiel, 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 | merci Horst, cela était mais malheureusement pas cela, quoi je gesucht habe.
Rolf venez dem déjà bien proche!  je crois, so werde ego faire!
merci à 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 ▲ |
|
| |
|
(1.127)
Deutsch
English
Français
Español
Italia