PureBasic Forum

OpenWindow(0,200,200,200,200,"Test",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)

UseJPEGImageDecoder():UsePNGImageDecoder()

i=LoadImage(-1,OpenFileRequester("Choose an JPG or PNG file","","",0))

ButtonImageGadget(0,0,0,80,80,ImageID(i))
ButtonImageGadget(1,100,0,80,80,ImageID(i))
DisableGadget(1,1)

Repeat
   event=WaitWindowEvent()
Until event=#PB_Event_CloseWindow

OpenWindow(0,200,200,200,200,"Test",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)

; UseJPEGImageDecoder():UsePNGImageDecoder()
; i=LoadImage(-1,OpenFileRequester("Choose an JPG or PNG file","","",0))

depth = 32;24;

i=CreateImage(#PB_Any, 40, 40, depth, #PB_Image_Transparent)
StartDrawing(ImageOutput(i))
  DrawingMode(#PB_2DDrawing_AllChannels)
  Box(10, 10, 20, 20, RGBA(255, 0, 0, 255))
  Circle(10, 10, 10, RGBA(0, 0, 255, 255))
StopDrawing()

ButtonImageGadget(0,0,0,80,80,ImageID(i))
ButtonImageGadget(1,100,0,80,80,ImageID(i))
DisableGadget(1,1)

Repeat
   event=WaitWindowEvent()
Until event=#PB_Event_CloseWindow

OpenWindow(0,200,200,200,200,"Test",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)

UseJPEGImageDecoder()
UsePNGImageDecoder()

path$=OpenFileRequester("Choose an JPG or PNG file","","",0)
If path$="" : End : EndIf
i=LoadImage(#PB_Any,path$)

ResizeImage(i, 80, 80)

ii=CreateImage(#PB_Any, 80, 80, 32)
StartDrawing(ImageOutput(ii))
DrawingMode(#PB_2DDrawing_AllChannels)
DrawAlphaImage(ImageID(i), 0, 0)
StopDrawing()

ButtonImageGadget(0,0,0,80,80,ImageID(ii))
ButtonImageGadget(1,100,0,80,80,ImageID(ii))
DisableGadget(1,1)

Repeat
  event=WaitWindowEvent()
Until event=#PB_Event_CloseWindow

OpenWindow(0,200,200,200,200,"Test",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)

UseJPEGImageDecoder()
UsePNGImageDecoder()

path$=OpenFileRequester("Choose an JPG or PNG file","","",0)
If path$="" : End : EndIf
i=LoadImage(#PB_Any,path$)

ResizeImage(i, 80, 80)

ii=CreateImage(#PB_Any, 80, 80, 32, #White)
StartDrawing(ImageOutput(ii))
DrawAlphaImage(ImageID(i), 0, 0)
StopDrawing()

ButtonImageGadget(0,0,0,80,80,ImageID(ii))
ButtonImageGadget(1,100,0,80,80,ImageID(ii))
DisableGadget(1,1)

Repeat
  event=WaitWindowEvent()
Until event=#PB_Event_CloseWindow