Re: Fensterinhalt wird nur bei Mausbewegung aktualisiert
Verfasst: 29.11.2009 21:40
ja logisch, das solltest du doch langsam geblickt haben, bist ja nicht erst seit heute morgen hier.... 

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Ja, aber das ist nicht der empfohlene Weg! Delay() gehört nicht in eine Fensteranwendung!Mok hat geschrieben: Sollte das heißen, dass ein bisschen Delay() hier und etwas Delay() da weniger CPU in Anspruch nehmen?
Aehm... da hast du recht, aber wenn ich ein Einfensterprogramm machen würde, dann 3000 Millisek. Delay() machen würde und mit der Maus reinfahre habe ich eine Sanduhr... das spricht für mich eher für "keine Rückmeldung" und nimmt somit die CPU in Anspruch...Kaeru Gaman hat geschrieben:ja logisch, das solltest du doch langsam geblickt haben, bist ja nicht erst seit heute morgen hier....
c4s hat geschrieben:Ich dachte es soll ein Programm von dir werden?!
Wenn ich das tue, finde ich nur einen Beitrag: DEINENts-soft hat geschrieben: Ansonsten die Boardsuche nutzen, z.B. mit HideWindowFromTaskbar![]()
Wenn Du ein falsches oder nicht existierendes Icon einträgst, wir dasMok hat geschrieben: Wie ist das mit den Icons? Was hat das mit MS zu tun?
Ich muss das Icon doch unter Compiler-Optionen angeben.
würdest du bitte erstmal dein Programm in Ordnung bringen, bevor du immer neue Probleme mit dem Alten meldest?Mok hat geschrieben:1.) Wenn ich das Programm starte, dann kann ich erst mal 10 Sek bis eine halbe Minute warten, bis ich was sehe (sowohl in PB als auch die EXE), an eventuellen Delays liegt's sicher nicht.
das ist Unsinn! das eine hat mit dem Anderen nichts zu tun.wenn ich ein Einfensterprogramm machen würde, dann 3000 Millisek. Delay() machen würde und mit der Maus reinfahre habe ich eine Sanduhr... das spricht für mich eher für "keine Rückmeldung" und nimmt somit die CPU in Anspruch...
What the hell?!Kaeru Gaman hat geschrieben:würdest du bitte erstmal dein Programm in Ordnung bringen, bevor du immer neue Probleme mit dem Alten meldest?
Code: Alles auswählen
Global MemoryAll.l
Global MemoryUse.l
Global MemoryPercUse.l
Global MemoryFree.l
Procedure RefreshMem()
memex.MEMORYSTATUSEX
memex\dwLength = SizeOf(MEMORYSTATUSEX)
GlobalMemoryStatusEx_(@memex)
MemoryAll = memex\ullTotalPhys/1024/1024
MemoryUse = (memex\ullTotalPhys-memex\ullAvailPhys)/1024/1024
MemoryPercUse = memex\dwMemoryLoad
MemoryFree = memex\ullAvailPhys/1024/1024
EndProcedure
Procedure ExitRequester()
quit = MessageBox_(#Null,"Wollen Sie RAM.inf wirklich beenden?","Ende",#MB_OK|#MB_YESNO)
If quit = 6
ProcedureReturn 1
Else
ProcedureReturn 0
EndIf
EndProcedure
Enumeration
#MainWindow
EndEnumeration
Enumeration
#TextGadget_1
#TextGadget_2
#TextGadget_3
#TextGadget_4
#TextGadget_1a
#TextGadget_2a
#TextGadget_3a
#TextGadget_4a
#TextGadget_5
#ButtonGadget_1
#ButtonGadget_2
EndEnumeration
ExamineDesktops()
Global Width = DesktopWidth(0)
Global Height = DesktopHeight(0)
ElapsedTime = ElapsedMilliseconds()
RefreshMem()
OpenWindow(#MainWindow,Width-205,Height-204,199-5,149-5,"RAM.inf",#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
GadY = 10
TextGadget(#TextGadget_1,5,GadY,85,20,"RAM gesamt:",#PB_Text_Right)
TextGadget(#TextGadget_1a,95,GadY,85,20,Str(MemoryAll)+" MB")
GadY+20
TextGadget(#TextGadget_2,5,GadY,85,20,"RAM-Verbrauch:",#PB_Text_Right)
TextGadget(#TextGadget_2a,95,GadY,85,20,Str(MemoryUse)+" MB")
GadY+20
TextGadget(#TextGadget_3,5,GadY,85,20,"% Verbrauch:",#PB_Text_Right)
TextGadget(#TextGadget_3a,95,GadY,85,20,Str(MemoryPercUse)+" %")
GadY+20
TextGadget(#TextGadget_4,5,GadY,85,20,"RAM frei:",#PB_Text_Right)
TextGadget(#TextGadget_4a,95,GadY,85,20,Str(MemoryFree)+" MB")
GadY+20
ButtonGadget(#ButtonGadget_1,5,GadY,70,30,"Optionen")
ButtonGadget(#ButtonGadget_2,GadY+30,GadY,70,30,"Beenden")
GadY+35
TextGadget(#TextGadget_5,5,GadY,Height-204,20,"F1 für Hilfe by LoRD Soft (Mok)")
Delay(250)
StickyWindow(#MainWindow,1)
Exit = 0
Repeat
Event = WaitWindowEvent(1)
Select Event
Case #Null
If ElapsedMilliseconds()>ElapsedTime+1000
RefreshMem()
SetGadgetText(#TextGadget_1a,Str(MemoryAll)+" MB")
SetGadgetText(#TextGadget_2a,Str(MemoryUse)+" MB")
SetGadgetText(#TextGadget_3a,Str(MemoryPercUse)+" %")
SetGadgetText(#TextGadget_4a,Str(MemoryFree)+" MB")
ElapsedTime = ElapsedMilliseconds()
EndIf
Case #PB_Event_Gadget
Select EventGadget()
Case #ButtonGadget_2
Exit = ExitRequester()
EndSelect
Case #PB_Event_CloseWindow
Exit = 1
EndSelect
Until Exit = 1
zB:ts-soft hat geschrieben:(gibt auch professionelle Tools, die das können)