Viel spass damit


Code: Alles auswählen
#IDC_BITMAP=$5DC
UseJPEGImageDecoder()
If OpenWindow(0,0,0,200,60,"Backgrounded Window",#PB_Window_ScreenCentered | #PB_Window_SystemMenu | #SS_BITMAP)
If CreateGadgetList(WindowID(0))
hHandle1.l=CreateWindowEx_(0,"STATIC","",#SS_BITMAP | #WS_CHILD | #WS_VISIBLE,0,0,200,60, WindowID(0),#IDC_BITMAP,0,0)
image=LoadImage(#PB_Any,"Untitled.jpg"); Or image=LoadImage_(image,"Untitled.jpg",#IMAGE_BITMAP,0,0,#LR_CREATEDIBSECTION | #LR_LOADFROMFILE)
SendMessage_(hHandle1,#STM_SETIMAGE,#IMAGE_BITMAP,ImageID(image))
EndIf
EndIf
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
End
EndSelect
ForEver