Code: Alles auswählen
UsePNGImageDecoder()
myImage = LoadImage(#PB_Any, #PB_Compiler_Home + "examples/sources/Data/world.png")
If myImage
If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
PanelGadget (0, 8, 8, 306, 203)
AddGadgetItem (0, -1, "Panel 1", ImageID(myImage))
AddGadgetItem (0, -1, "Panel 2")
CloseGadgetList()
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
FreeImage(myImage)
EndIf
Grüße ... Kiffi