| |
|
|
 Jac de Lad | Hello Community!
How make it some programs, that The wallpaper.pcu of only a part indicating. so How at Systemstart Windows? is the ne standard-wallpaper.pcu of or must one for such Spielereien again what own program?!
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 | 03/24/07 ▲ |
|
|
|
|
 | the here? 
faith there must You self ran. |
|
|
| |
|
|
|
 Jac de Lad | very...but since I of something like no idea have, bury I mean imaginations...pity, because there's so many right virtually Controls, The unfortunately not Profan useable are... |
|
|
| 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 | 03/24/07 ▲ |
|
|
|
|
 Frank Abbing | iF means so well, that You something like yourself malen should. is Yes not so heavy, Mach you a Screenshot of so one clear Control and a of a filled. then copy You The Graphics so, How You it benötigst. |
|
|
| |
|
|
|
 Jac de Lad | Well, this is no art, it ought to itself only on whom Style adjust! |
|
|
| 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 | 03/24/07 ▲ |
|
|
|
|
 Frank Abbing | then erstell The Graphics to Laufzeit. |
|
|
| |
|
|
|
 Jac de Lad | and the 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 | 03/24/07 ▲ |
|
|
|
|
 Rolf Koch | integrally simply: You erstellst a normal wallpaper.pcu of and setting these on 100% In these setting You 2 with stood off furnished point Statics in the wallpaper.pcu of. with one Timer and a bisschen calculate can You these now in the wallpaper.pcu of by Setwindowpos wander. |
|
|
| |
|
|
|
 | or it shows simply the Gif on createhtmlbox "mshtml://<img src=mygif.gif>". One Einzeiler.  |
|
|
| |
|
|
|
 | @Hello Jacob Perhaps can You with the code you something basteln... CompileMarkSeparationBeispiel, 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 | thanks Horst, the was but unfortunately not the, I sought have. Rolf comes the that's all right near! I faith, so will be ichs make!
thanks all, 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 | 03/24/07 ▲ |
|
|
|