PureBoard

Code: Alles auswählen

ImageGadget(ID,100,200,...)
For i=0 to 10
  ImageGadget(ID,i*10,i*20,...) :Verwende gleiche ID
  Delay(100)
Next

Code: Alles auswählen

If OpenWindow(0, 0, 0, 800, 600,  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered , Titel$)
  If CreateGadgetList(WindowID())
    ImageID = CreateImage(0, 100, 100)
    Gadget_Image.l = ImageGadget(#PB_Any, 10, 10, 100, 100, UseImage(0), #PB_Image_Border)
  EndIf    
EndIf    
Repeat
  SetWindowPos_(GadgetID(Gadget_Image), 0, WindowMouseX(), WindowMouseY(), 0, 0, #SWP_NOSIZE | #SWP_NOZORDER)
  Select WindowEvent()
    Case #PB_Event_CloseWindow
      Quit = 1
  EndSelect
  Delay(10)
Until Quit