Français
Source/ Codesnippets

Farbig Progressbar Prozentbalken Uxtheme

 

Source wurde am 10.09.2007 dans qui Babyklappe sur XProfan.Com abgelegt:
Déclarer P1&,P2&,Channel&,Button&,Ende&
Cas @FileExists($SysPath +//uxtheme.dll):Def Setwindowtheme(3) !uxtheme.dll, SetWindowTheme

Proc Disablexptheme

    Paramètres Hwnd&
    Déclarer W#
    Faible 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&=Contrôle(msctls_progress32,,$50000000,30,10,200,10,%hwnd,2000,%HINSTANCE)
P2&=Contrôle(msctls_progress32,,$50000000,30,25,200,10,%hwnd,2001,%HINSTANCE)
Cas @FileExists($SysPath +//uxtheme.dll):Disablexptheme(p1&)
Cas @FileExists($SysPath +//uxtheme.dll):Disablexptheme(p2&)
Button& = Créer(Button,%hwnd,Ende,30,50,80,24)
Peak de 0 - max 32768
SetProgressRange(P1&,0,32786)
SetProgressRange(P2&,0,32768)
SetProgressPos(P1&,20000)
SetProgressPos(P2&,20000)
PBM_SetBarColor(P1&,@RGB(256,0,0))    Anzeige dans rouge
PBM_SetBarColor(P2&,@RGB(256,256,0))  Anzeige dans jaune

whilenot Ende&

    waitinput
    Cas Clicked(Button&) : Fin

Wend

Viele Grüße aus Bangkok
Dieter
 
10.09.2007  
 




RGH
le bébé-Klappe
...
Cas @FileExists($SysPath +//uxtheme.dll):Def Setwindowtheme(3) !uxtheme.dll, SetWindowTheme
...


cet la ligne (DEF pour CASE-Ausdruck) peux pas marcher:
avant XProfan 8: cela DEF wird nie trouvé, là es pas am Anfang einer la ligne steht.
Ab XProfan 8: cela DEF wird toujours trouvé, là es ici (par Changement qui inneren Verwaltung des Cas) am Anfang einer la ligne steht.

Hintergrund:
une DEF-la ligne wird zunächst niemals fonctionnement, là vous plan une définition ist, sur qui möglicherweise später zugegriffen wird. seulement ensuite, si qui nom qui definierte Funktion ou bien Konstante im Programmcode vorkommt, wird pour ihrer définition gesucht et cet fonctionnement (im piège des Interpreters) bzw. ses Adresse im Kompilat eingefügt (im piège des Kompilers). qui Kompiler peux chez cette cherche naturellement keinen CASE- ou bien IF-Ausdruck auswerten, là cette seulement zur Laufzeit bekannt son wird. pratique wir cela Programme ab qui ersten la ligne durchsucht, wohin cet définition vorkommt et qui entsprechende Adresse ermittelt.

Salut
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
10.09.2007  
 




Dieter
Zornow
allô Roland,

comment du oui écris fonctionne cela Programme ab 8.0. sommes deine Ausführungen so trop interpretieren, dass cela Cas sans Wirkung bleibt et une Si ... Def endif Konstruktion sans Abfrage bleibt et dans jedemfall gelesen wird.

Viele Grüße aus 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
11.09.2007  
 




Jörg
Sellmeyer
je antworte la fois simple pour Roland...
cela Def est quasi pas zum Code, mais wird vom Präcompiler verarbeitet, um es im Programme disponible trop faire.
Bedingte Definitionen könntest Du avec den Compilerschalter $IFDEF ... erreichen, mais aussi pas zur Laufzeit, mais seulement chez qui Erstellung des Programms.
Besonders dans diesem le cas bringt cela Cas oui aussi rien, là oui qui Prozeduren sowieso im Code sommes et là ensuite sans qui definierte Funktion ziemlichen Mist produzieren könnten.
Definitionen alors simple à den Anfang des Programms et fertig.
si ensuite peux Du sur une Funktion, qui Du seulement einmal brauchst, besser sur Externe(...) zugreifen.

Salut
Jörg
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
11.09.2007  
 




Michael
Wodrich
@Dieter:
si Du einmal am Anfang sur qui DLL prüfst et cela Ergebnis dans einer Variable vermerkst (z.B. uxTheme%=1) wird Dein Programme plus rapide courir.

là Du cela Einbinden pas verhindern peux, lieu qui Definitionen alle à den Programmanfang.

Cas uxTheme% : Funktion()
serait ensuite qui Aufruf son, si DLL vorhanden.

Meines Wissens fällt cela Programme chez DEF et fehlender DLL pas sur qui nez. seulement si le Funktion aufgerufen wird et qui DLL fehlt, ensuite gibts une envol.

belle Grüße
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
11.09.2007  
 




RGH
Michael Wodrich
Meines Wissens fällt cela Programme chez DEF et fehlender DLL pas sur qui nez. seulement si le Funktion aufgerufen wird et qui DLL fehlt, ensuite gibts une envol.


Korrekt!

avec DEF wird qui DLL dynamisch gelinkt. cela est alors, chez DEF wird seulement qui nom défini et seulement beim Aufruf qui Funktion sollte qui DLL ensuite aussi wirklich là son.

Salut
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
11.09.2007  
 




Dieter
Zornow
si cela so ist, peux on sich cela cas avant dem Def schenken, je hatte mais la fois chez einer Dll une Funktion aufgerufen, Sommer et Winterzeit betreffend, cet Funktion gibt es sous XP pas plus dans qui forme dans qui Dll. Dabei wurde qui faute dans qui Def la ligne angezeigt, dass qui Funktion pas trouvé wurde, c'est pourquoi dachte je dass qui Dll bereits dans qui Def la ligne abprüft wird. je voulais ausschließen, dass es chez kleineren Windowsversionen trop cette annonce venez.

Viele Grüße aus 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
11.09.2007  
 



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

7.650 Views

Untitledvor 0 min.
Axel Berse16.07.2021
Michael W.28.10.2020
Stephan Sonneborn20.05.2020
Matzbub29.12.2018
plus...

Themeninformationen



Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie