Code: Select all
If OpenWindow(0, 0, 0, 800, 200, "DrawAddBorder", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
StartDrawing(WindowOutput(0))
DrawingMode(#PB_2DDrawing_Default)
Box(0, 0, 1200, 200, $00000000)
StopDrawing()
;---------------------------------------------------------------------------------------------------
CreateImage(0, 400, 100, 32, RGB(255, 255, 255) | #PB_Image_Transparent) ; -> transparent
ImageGadget(0, 0, 0, 0, 0, ImageID(0))
CreateImage(1, 400, 100, 32, RGB(255, 255, 254) | #PB_Image_Transparent) ; -> white
ImageGadget(1, 400, 0, 0, 0, ImageID(1))
CreateImage(2, 400, 100, 32, RGBA(255, 255, 255, 255)) ; -> transparent
ImageGadget(2, 0, 200, 0, 0, ImageID(1))
CreateImage(2, 400, 100, 32, RGBA(255, 255, 255, 254)) ; -> white
ImageGadget(2, 400, 100, 0, 0, ImageID(1))
;---------------------------------------------------------------------------------------------------
StartDrawing(WindowOutput(0))
DrawingMode(#PB_2DDrawing_Default)
DrawText(10, 10, "RGB(255, 255, 255) | #PB_Image_Transparent)", $00FFFFFF, $00000000)
StopDrawing()
StartDrawing(WindowOutput(0))
DrawingMode(#PB_2DDrawing_Default)
DrawText(410, 10, "RGB(255, 255, 254) | #PB_Image_Transparent)", $00FFFFFF, $00000000)
StopDrawing()
StartDrawing(WindowOutput(0))
DrawingMode(#PB_2DDrawing_Default)
DrawText(10, 110, "RGBA(255, 255, 255, 255)", $00FFFFFF, $00000000)
StopDrawing()
StartDrawing(WindowOutput(0))
DrawingMode(#PB_2DDrawing_Default)
DrawText(410, 110, "RGBA(255, 255, 255, 254)", $00FFFFFF, $00000000)
StopDrawing()
;---------------------------------------------------------------------------------------------------
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
EndIf