WindowBackgroundImage

Синтаксис

Function WindowBackgroundImage(ByVal hWin As HWND, ByVal bitmap As HBITMAP, ByVal param As Integer=0) As Integer

Описание

Функция устанавливает изображение как фон окна. Функция возвращает объект HBRUSH, который необходимо освобождать когда более не требуется с помощью DeleteObject

Параметры

hWin - хендл окна

bitmap - хендл битмапа, может быть получен, например, с помощью Load_Image

param - параметр, может быть:
    0 - Не подгонять(не растягивать) изображение под размеры окна.(по умолчанию)
    1 - Подогнать(растянуть) изображение под размер окна

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer event
var hwnd=OpenWindow("Окно 1",20,15,200,200)
Var bitmap = Load_image("1.bmp")
Var BRUSH = WindowBackgroundImage(hwnd,bitmap,1)
Do
  event=WaitEvent()
  If Event=EventClose Then Exit do
Loop
DeleteObject(Cast(Any Ptr,BRUSH))

Результат

Created with the Personal Edition of HelpNDoc: Free HTML Help documentation generator