anyone knsws howto change images in a imagegadget with JS? Unfortunately Set/GetState is buggy...
THX a lot
Alex
Code: Select all
#frm = 0
#img = 0
#bef = 1
#pic1 = 0
#pic2 = 1
Procedure bef_Click()
SetGadgetState(#img, ImageID(#pic2))
EndProcedure
Procedure frm_Main_Open()
OpenWindow(#frm, 0,0,0,0,"Test",#PB_Window_Background)
ImageGadget(#img, 0,0,200,200,ImageID(#pic1))
ButtonGadget(#bef,0,250,100,20,"Test")
BindGadgetEvent(#bef, @bef_Click())
EndProcedure
Procedure Loading(Type, FileName.s)
Static imgCount = 0
Debug FileName
imgCount + 1
If imgCount = 2
frm_Main_Open()
EndIf
EndProcedure
Procedure LoadingError(Type, FileName.s)
MessageRequester("Fehler beim Laden",FileName)
EndProcedure
BindEvent(#PB_Event_Loading, @Loading())
BindEvent(#PB_Event_LoadingError,@LoadingError())
LoadImage(#pic1, "bef_Burgkatalog.png")
LoadImage(#pic2, "bef_Burgkatalog2.png")