gleich vornweg, mein Problem tritt mit der schon etwas betagten Version 3.94 auf. Ich hab ein ertwas größeres Projekt, und das komplett zu konvertieren hab ich momentan keine Zeit.
Mein Problem ist recht schnell erklärt. Der folgende Code crash bei mir beim zweiten drücken des "DoIt" Buttons mit einem "Invalid Memory Access". Ich hoffe ich stehe hier nur grad auf dem Schlauch, aber ich kapiere echt grad nicht woran das liegt.
Code: Alles auswählen
Enumeration
#FRM_MAIN
#BTN_DO
EndEnumeration
Global TempFolderPath.s
Procedure OPEN_MAIN()
If OpenWindow(#FRM_MAIN, 80, 143, 70, 80, #PB_Window_TitleBar | #PB_Window_WindowCentered, "Test")
If CreateGadgetList(WindowID())
ButtonGadget(#BTN_DO, 20, 20, 70, 30, "DoIt")
EndIf
EndIf
EndProcedure
OPEN_MAIN()
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_EventGadget
Select EventGadgetID()
Case #BTN_DO
TempFolderPath = PathRequester("Please pick a folder...", "c:\")
EndSelect
EndSelect
Until Event= #PB_EventCloseWindow
Gruß,
Glow