PureBoard

Code: Alles auswählen

Enumeration
  #Window_0
  #Image_0
  #Button_0
EndEnumeration

;- Image Plugins
UseJPEGImageDecoder()

;- Image Globals
Global Image0

;- Catch Images
Image0 = CatchImage(0, ?Image0)

;- Images
DataSection
Image0:
  IncludeBinary "D:\Eigene Dateien\Vivaldi.jpg" ;hier ein Bild Deiner Wahl
EndDataSection

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 232, 33, 300, 358,  #PB_Window_BorderLess , "New window ( 0 )")
    If CreateGadgetList(WindowID())
      ImageGadget(#Image_0, 0, 0, 300, 358, Image0)
      ButtonGadget(#Button_0, 140, 140, 60, 20, "aha")
      DisableGadget(#Image_0,1) ;damit der Knopf funktioniert
    EndIf
  EndIf
EndProcedure


Open_Window_0()

Repeat ; Start of the event loop
  
  Event = WaitWindowEvent() ; This line waits until an event is received from Windows
  
  WindowID = EventWindowID() ; The Window where the event is generated, can be used in the gadget procedures
  
  GadgetID = EventGadgetID() ; Is it a gadget event?
  
  EventType = EventType() ; The event type
  
  ;You can place code here, and use the result as parameters for the procedures
  
  If Event = #PB_EventGadget
    
    If GadgetID = #Image_0
      
    ElseIf GadgetID = #Button_0
      End
    EndIf
    
  EndIf
  
Until Event = #PB_Event_CloseWindow ; End of the event loop

End
;