Bug oder Absicht ?
Verfasst: 26.04.2007 18:58
Hi
Ich war grad ein bissel am rumspielen mit verschiednen Codes, und bin über etwas lustiges gestolpert. Vieleicht ist es ja auch schon bekannt, aber gebt mal folgenden Code ein, und klickt dann einfach ein paar mal auf den Button. Da erscheinen dann recht lustige Dinge ^^
Ich war grad ein bissel am rumspielen mit verschiednen Codes, und bin über etwas lustiges gestolpert. Vieleicht ist es ja auch schon bekannt, aber gebt mal folgenden Code ein, und klickt dann einfach ein paar mal auf den Button. Da erscheinen dann recht lustige Dinge ^^
Code: Alles auswählen
Procedure Open_MAIN()
If OpenWindow(1, 216, 0, 200, 200, "Test", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
If CreateGadgetList(WindowID(1))
ImageGadget(3, 60, 20, 80, 82, Image3, #PB_Image_Border )
ButtonGadget(1, 60, 150, 80, 40, "Click Me")
EndIf
EndIf
EndProcedure
Open_MAIN()
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case 1
GR.l = Random(20) + 1
SetGadgetState(3, Image + GR)
EndSelect
EndSelect
Until Event= #PB_Event_CloseWindow
