| |
| |
|
 |
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
|
|
| |
| |
| |
|
|
RGH | le bébé-Klappe
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 ▲ |
|
| |
|
(1.117)
Deutsch
English
Français
Español
Italia