Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Code: Alles auswählen
EnableExplicit
ImportC ""
PB_Gadget_Objects
PB_Object_EnumerateStart (*Object)
PB_Object_EnumerateNext (*Object, *id)
EndImport
Macro ForEachObject(obj,cursor)
PB_Object_EnumerateStart(obj)
While PB_Object_EnumerateNext(obj,@cursor)
EndMacro
Macro NextObject : Wend : EndMacro
If OpenWindow(0, 100, 100, 600, 600, "Count gadgets", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget(0, 10, 10, 200, 20, "Standard Button")
ButtonGadget(1, 10, 40, 200, 20, "Left Button", #PB_Button_Left)
ButtonGadget(2, 10, 70, 200, 20, "Right Button", #PB_Button_Right)
ButtonGadget(3, 10,100, 200, 60, "Multiline Button (longer text gets automatically wrapped)", #PB_Button_MultiLine)
ButtonGadget(99, 10,170, 200, 20, "Toggle Button", #PB_Button_Toggle)
ButtonGadget(-1, 10,210, 200, 20, "Toggle Button", #PB_Button_Toggle)
Define count = 0, id, event
ForEachObject(PB_Gadget_Objects, id)
Debug id
Debug GadgetType(id)
Debug "-----------"
count + 1
NextObject
Debug ""
Debug "Gadgets: " + count
Repeat
event = WaitWindowEvent()
Until event = #PB_Event_CloseWindow
EndIf
End
Wie ich diese pauschalen und ungetesteten Aussagen liebe...ts-soft hat geschrieben:Crossplattform
Code: Alles auswählen
CompilerIf #PB_Compiler_OS = #PB_OS_Windows
Import ""
CompilerElse
ImportC ""
CompilerEndIf
PB_Gadget_Objects
PB_Object_EnumerateStart(*Object)
PB_Object_EnumerateNext(*Object, *id)
EndImport
Schön wärs. Leider gibt es noch viel zu viele reine x86-Anwendungen ohne 64 Bit-Unterstützung.NicTheQuick hat geschrieben:Naja, 32 Bit ist ja mittlerweile auch so gut wie ausgestorben.
Es gibt leider viele Unternehmen, die XP heute noch einsetzen. Ich kenne da einige.NicTheQuick hat geschrieben:Und XP will eh keiner mehr unterstützen außer für seine kleinen privaten Projekte.
In welcher Welt lebt ihr eigentlich? Laut der aktuellsten NetMarketShare-Studie von Mai 2016 setzen noch 10,09% der Anwender Windows XP ein (die allermeisten dürften die 32 Bit Version nutzen), während nur 1.79% Linux einsetzen (wobei ein nicht unbeträchtlicher Anteil davon auf Althardware mit 32 Bit laufen dürfte). Alleine der Anteil an 32 Bit Windows-XP-Anwendern ist also mindestens 6x so groß wie der aller Linux-Anwender...NicTheQuick hat geschrieben:Naja, 32 Bit ist ja mittlerweile auch so gut wie ausgestorben. Und XP will eh keiner mehr unterstützen außer für seine kleinen privaten Projekte.
Diese Aussage kann eigentlich nur ein Hobby-Programmierer treffen...ts-soft hat geschrieben:Und Unternehmen, die sich nach so viel Jahren, immer noch kein Upgrade leisten können, sind ja eh schon fast Pleite
Der im IT-Support arbeitet.Shardik hat geschrieben:Diese Aussage kann eigentlich nur ein Hobby-Programmierer treffen...ts-soft hat geschrieben:Und Unternehmen, die sich nach so viel Jahren, immer noch kein Upgrade leisten können, sind ja eh schon fast Pleite
Und was sagt das aus? 32-Bit Altanwendungen laufen ja wohl auch unter 64-Bit OS und PB-Anwendungen werden es wohl kaum sein, die noch alte DLLs von Microsoft und Drittherstellern nutzen. Kein Grund, nicht Upzugraten. Bei mir nutzen die meisten Anwender/Kunden (sind etwas viel mehr als 2500Shardik hat geschrieben:Wir haben etwa 2500 PCs mit Windows 8.1 64 Bit im Einsatz. Allerdings muß ich noch eine ganze Reihe von Altanwendungen pflegen, die nur mit 32 Bit kompiliert werden können, weil sie noch alte DLLs von Microsoft oder Drittherstellern verwenden oder alte 32 Bit-Treiber, von denen es keine 64-Bit Version gibt und nie geben wird. Und ich schätze einmal stark, dass dies kein Einzelfall ist...
) überwiegend Windows 7 Enterprise, aber niemand Windows XP, weil damit würde er nicht in eine Domäne kommen. Ca. 20 - 30 % nutzen noch Lotus 
und die lassen sich leider nicht so leicht umstellen/migrieren, aber läuft ja unter Windows 7 Enterprise problemlos.