;Autor: Hroudtwolf

EnableExplicit

CreateImage(1,100,10,32)
StartDrawing(ImageOutput(1))
  Box(0,0,50,10,RGB(200,200,255))
  Box(50,0,50,10,RGB(200,255,200))
StopDrawing()

Global Hintergrundbild.l = CreatePatternBrush_(ImageID(1))

Procedure CB_Window (hWnd.l, Message.l, wParam.l, lParam.l)
  Protected Result.l
  
  Result.l = #PB_ProcessPureBasicEvents
  Select Message.l
    Case #WM_CTLCOLOREDIT   
    Select lParam.l
      Case GadgetID(1)                     
        SetBkMode_   (wParam.l,#TRANSPARENT)
        SetTextColor_(wParam.l,$000000) 
        Result.l = Hintergrundbild.l     
    EndSelect     
  EndSelect
  ProcedureReturn Result.l
EndProcedure 

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  StringGadget(1,10,10,480,20,"",0)
  
  SetWindowCallback(@CB_Window())
  
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

DeleteObject_(Hintergrundbild.l)