Code: Select all
Procedure ReadCallback(Status, Filename$, File, SizeRead)
Select Status
Case #PB_Status_Loaded
SetGadgetText(0,"1")
Case #PB_Status_Progress
SetGadgetText(0,"2")
Case #PB_Status_Error
SetGadgetText(0,"3")
EndSelect
EndProcedure
OpenWindow(0,0,0,200,200,"Test")
TextGadget(0,10,10,180,20,"")
ReadFile(0, "data/fladres.loc", @ReadCallback())
Joost