| |
|
|
|
Source watts on the 10.09.2007 in The Babyklappe on XProfan.Com stored:
Declare P1&,P2&,Channel&,Button&,Ende&
Case @FileExists($SysPath +//uxtheme.dll):Def Setwindowtheme(3) !uxtheme.dll, SetWindowTheme
Proc Disablexptheme
Parameters Hwnd&
Declare W#
Dim W#, 2
Setwindowtheme(Hwnd&, W#, W#)
Dispose W#
Endproc
Def SetProgressPos(2) SendMessage(&(1),$0402,&(2),0)
Def SetProgressRange(3) SendMessage(&(1),$0401,0,MakeLong(&(2),&(3)))
Def SetProgressRange32(3) SendMessage(&(1),$0406,&(2),&(3))
Def PBM_SetBarColor(2) SendMessage(&(1),$0409,0,&(2))
Def PBM_SetBkColor(2) SendMessage(&(1),$2001,0,&(2))
window 0,0-250,150
cls
P1&=Control(msctls_progress32,,$50000000,30,10,200,10,%hwnd,2000,%hinstance)
P2&=Control(msctls_progress32,,$50000000,30,25,200,10,%hwnd,2001,%hinstance)
Case @FileExists($SysPath +//uxtheme.dll):Disablexptheme(p1&)
Case @FileExists($SysPath +//uxtheme.dll):Disablexptheme(p2&)
Button& = Create(Button,%hwnd,end,30,50,80,24)
Peak of 0 - max 32768
SetProgressRange(P1&,0,32786)
SetProgressRange(P2&,0,32768)
SetProgressPos(P1&,20000)
SetProgressPos(P2&,20000)
PBM_SetBarColor(P1&,@RGB(256,0,0)) display in ruddy
PBM_SetBarColor(P2&,@RGB(256,256,0)) display in yellow
whilenot Ende&
waitinput
Case Clicked(Button&) : End
wend
many Regards from Bangkok
Dieter
|
|
|
| |
|
|
|
RGH | baby-tab
These row (DEF to CASE-expression) can't functions: to XProfan 8: the DEF becomes never found, there not at the beginning of/ one row standing. ex XProfan 8: the DEF becomes always found, there it here (through Änderung the internal management the Case) at the beginning of/ one row standing.
background: an DEF-row becomes first of all never carryed out, there tappt im dunkeln even a Definition is, on The möglicherweise later zugegriffen becomes. first then, if the name the defined function or Constant in the Programmcode vorkommt, becomes to yours Definition sought and these carryed out (in the entrapment the Interpreters) or. your address in the Compilations eingefügt (in the entrapment the Kompilers). The Compiler can with this Search naturally none CASE- or IF-expression evaluate, there this first to Laufzeit famous his becomes. useful we the program ex the first row search, where these Definition vorkommt and the suitable address determined.
Greeting Roland |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 09/10/07 ▲ |
|
|
|
|
Dieter Zornow | Hello Roland,
How You Yes write runs the program ex 8.0. are your completions so To interpret, that the Case without effect remaining and a If ... Def endif structure without request remaining and jedemfall red becomes.
greetings from Bangkok
Dieter |
|
|
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 09/11/07 ▲ |
|
|
|
|
Jörg Sellmeyer | I answer time simply for Roland... the Def heard quasi not to that code, separate becomes of Präcompiler processing, circa it in the program available To make. Bedingte Definitionen could You with the Compilerschalter $IFDEF ... achieve, but neither to Laufzeit, separate only the Creation the program. particularly in this drop brings Case indeed nothing, there Yes The Procedures anyhow in the code are and there then without The defined function ziemlichen Mist produzieren could. Definitionen means simply on whom beginning the program and ready. If then can You on a function, The You only once need, rather over External(...) grab.
Greeting Jörg |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 09/11/07 ▲ |
|
|
|
|
Michael Wodrich | @Dieter: If you once at the beginning on The DLL examine and the Result in a Variable vermerkst (z.B. uxTheme%=1) becomes your Program faster walk.
there You, the Einbinden not prevent can, place The Definitionen any on whom Programmanfang.
Case uxTheme% : function() would then the appeal his, if DLL present.
of my Wissens falls the program with DEF and fehlender DLL not on The nose. first if The function called and is The DLL missing, then Gibts a start.
Best wishes Michael Wodrich |
|
|
| Programmieren, das spannendste Detektivspiel der Welt. | 09/11/07 ▲ |
|
|
|
|
RGH | Michael Wodrich
of my Wissens falls the program with DEF and fehlender DLL not on The nose. first if The function called and is The DLL missing, then Gibts a start.
correctly!
with DEF becomes The DLL dynamic gelinkt. that is means, with DEF becomes only the name definiert and first when calling the function ought to The DLL then too really there his.
Greeting Roland |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 09/11/07 ▲ |
|
|
|
|
Dieter Zornow | If the so is, can itself the case to the Def give as a present, I had but time with of/ one Dll a function called, summer and Winterzeit involved, these function there XP not any more in the form in the Dll. thereby watts the Error in the Def row displayed, that The function not found watts, therefore I thought that The Dll already in the Def row abprüft becomes. I wanted to exclude, that it with smaller Windowsversionen to this Message comes.
greetings from Bangkok
Dieter |
|
|
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 09/11/07 ▲ |
|
|
|