English
Source / code snippets

coloured wallpaper.pcu of Prozentbalken Uxtheme

 

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
 
09/10/07  
 




RGH
baby-tab
...
Case @FileExists($SysPath +//uxtheme.dll):Def Setwindowtheme(3) !uxtheme.dll, SetWindowTheme
...


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  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

7.680 Views

Untitledvor 0 min.
Axel Berse07/16/21
Michael W.10/28/20
Stephan Sonneborn05/20/20
Matzbub12/29/18
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie