PureBasic Forums - English

Code: Select all

;========================================================
;  SetBackgroundImage() sets the background image of a
;  window or container gadget through API functions and
;  eliminates the need of using disabled image gadgets
;
;  for WINDOWS ONLY
;
;  tested with PureBasic v5.31 on Windows 8.1 Pro (x64)
;
;  by TI-994A - free to use, improve, share...
;
;  30th November 2014
;========================================================

Procedure SetBackgroundImage(containerNo, imageNo)
  If IsWindow(containerNo)
    hWnd = WindowID(containerNo)
    imgWidth = WindowWidth(containerNo)
    imgHeight = WindowHeight(containerNo)
    result = #True
  ElseIf IsGadget(containerNo)
    hWnd = GadgetID(containerNo)
    imgWidth = GadgetWidth(containerNo)
    imgHeight = GadgetHeight(containerNo)
    result = #True
  Else
    result = #False
  EndIf
  If result
    ResizeImage(imageNo, imgWidth, imgHeight)
    image = CreatePatternBrush_(ImageID(imageNo))
    If image
      SetClassLongPtr_(hWnd, #GCL_HBRBACKGROUND, image)
      RedrawWindow_(hWnd, #Null, #Null, #RDW_INVALIDATE)
      result = #True
    Else
      result = #False
    EndIf  
  EndIf
  ProcedureReturn result
EndProcedure

;demo code
Enumeration
  #window1
  #window2
  #container
  #bgImage
  #text1
  #text2
EndEnumeration

UseJPEGImageDecoder()
UsePNGImageDecoder()
fileTypes.s = "Images (*.bmp, *.jpg, *.png)|*.jpg;*.png;*.bmp;"
LoadImage(#bgImage, OpenFileRequester("Select background image:", "", fileTypes, 0))

wFlags = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
OpenWindow(#window1, #PB_Any, #PB_Any, 300, 300, "SetBackgroundImage()", wFlags)
ResizeWindow(#window1, WindowX(#window1) - 160, #PB_Ignore, #PB_Ignore, #PB_Ignore)
SetBackgroundImage(#window1, #bgImage)
TextGadget(#text1, 0, 250, 300, 20, "background image on window", #PB_Text_Center)

OpenWindow(#window2, #PB_Any, #PB_Any, 300, 300, "SetBackgroundImage()", wFlags)
ResizeWindow(#window2, WindowX(#window2) + 160, #PB_Ignore, #PB_Ignore, #PB_Ignore)
ContainerGadget(#container, 0, 0, 300, 300)
SetBackgroundImage(#container, #bgImage)
TextGadget(#text2, 0, 250, 300, 20, "background image on container", #PB_Text_Center)

While WaitWindowEvent() ! #PB_Event_CloseWindow : Wend 

Code: Select all

;========================================================
;  SetBackgroundImage() sets the background image of a
;  window or container gadget through API functions and
;  eliminates the need of using disabled image gadgets
;
;  for WINDOWS and LINUX
;
;  tested with PureBasic v5.31 on Windows 8.1 Pro (x64)
;
;  by TI-994A - free to use, improve, share...
;
;  30th November 2014
;========================================================
ProcedureDLL.i SetWindowBackGroundImage(Image, Window) 
  Protected WindowID=WindowID(Window)
  
  Protected imgWidth = WindowWidth(Window)
  Protected imgHeight = WindowHeight(Window)
  ResizeImage(Image, imgWidth, imgHeight)
  
  ImageID=ImageID(Image)
  
  If WindowID
    CompilerSelect #PB_Compiler_OS
      CompilerCase #PB_OS_Linux    
        Protected *Background, FixedBox.I, *Style.GtkStyle
        gdk_pixbuf_render_pixmap_and_mask_(ImageID, @*Background, 0, 0)
        *Style = gtk_style_new_()
        *Style\bg_pixmap[0] = *Background
        FixedBox = g_list_nth_data_(gtk_container_get_children_(gtk_bin_get_child_(WindowID)), 0)
        gtk_widget_set_style_(FixedBox, *Style)
      CompilerCase #PB_OS_Windows
        Protected BrushImageID = CreatePatternBrush_(ImageID)
        SetClassLongPtr_(WindowID, #GCL_HBRBACKGROUND, BrushImageID)
        ;InvalidateRect_(WindowID, 0, #True) 
        RedrawWindow_(WindowID, #Null, #Null, #RDW_INVALIDATE)
    CompilerEndSelect  
  EndIf
EndProcedure

ProcedureDLL.i SetGadgetBackGroundImage(Image, Gadget) 
  Protected GadgetID = GadgetID(Gadget)
  
  Protected imgWidth = GadgetWidth(Gadget)
  Protected imgHeight = GadgetHeight(Gadget)
  ResizeImage(Image, imgWidth, imgHeight)
  
  ImageID=ImageID(Image)
  If GadgetID
    CompilerSelect #PB_Compiler_OS
      CompilerCase #PB_OS_Linux    
        Protected *Background, FixedBox.I, *Style.GtkStyle
        gdk_pixbuf_render_pixmap_and_mask_(ImageID, @*Background, 0, 0)
        *Style = gtk_style_new_()
        *Style\bg_pixmap[0] = *Background
        gtk_widget_set_style_(GadgetID, *Style)
      CompilerCase #PB_OS_Windows
        Protected BrushImageID = CreatePatternBrush_(ImageID)
        SetClassLongPtr_(GadgetID, #GCL_HBRBACKGROUND, BrushImageID)
        ;InvalidateRect_(WindowID, 0, #True) 
        RedrawWindow_(GadgetID, #Null, #Null, #RDW_INVALIDATE)
    CompilerEndSelect  
  EndIf
EndProcedure


;demo code
Enumeration
  #window1
  #window2
  #container
  #bgImage
  #text1
  #text2
EndEnumeration

UseJPEGImageDecoder()
UsePNGImageDecoder()
fileTypes.s = "Images (*.bmp, *.jpg, *.png)|*.jpg;*.png;*.bmp;"
LoadImage(#bgImage, OpenFileRequester("Select background image:", "", fileTypes, 0))

wFlags = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
OpenWindow(#window1, #PB_Any, #PB_Any, 300, 300, "SetBackgroundImage()", wFlags)
ResizeWindow(#window1, WindowX(#window1) - 160, #PB_Ignore, #PB_Ignore, #PB_Ignore)
SetWindowBackGroundImage( #bgImage,#window1)
TextGadget(#text1, 0, 250, 300, 20, "background image on window", #PB_Text_Center)

OpenWindow(#window2, #PB_Any, #PB_Any, 300, 300, "SetBackgroundImage()", wFlags)
ResizeWindow(#window2, WindowX(#window2) + 160, #PB_Ignore, #PB_Ignore, #PB_Ignore)
ContainerGadget(#container, 0, 0, 300, 300)
SetGadgetBackGroundImage(#bgImage,#container )
TextGadget(#text2, 0, 250, 300, 20, "background image on container", #PB_Text_Center)

While WaitWindowEvent() ! #PB_Event_CloseWindow : Wend

Code: Select all

If LoadImage(#bgImage, OpenFileRequester("Select background image:", "", fileTypes, 0)) = 0
  MessageRequester("Error", "Was not able to load the picture.")
  End
EndIf

Code: Select all

OpenFileRequester("Select background image:", "", "jpg|*.jpg", 0)