[Diamond]

Функция, которая позволяет замостить фон GUI текстурой или небольшими изображениями

Код:

;~ Использование:
;~ Tiled_BgImage("Путь к изображению с текстурой","ширина изображения", "высота изображения")

Func Tiled_BgImage($ImagePath,$width,$height)
  $yTile=Round(@DesktopHeight/$height)
  $xTile=Round(@DesktopWidth/$width)
  For $y=0 To $yTile
    For $x=0 To $xTile
      GUICtrlCreatePic($ImagePath,$width*$x,$height*$y,$width,$height)
      GUICtrlSetResizing(-1,802) ; $GUI_DOCKALL
      GUICtrlSetState(-1,128) ; $GUI_DISABLE
    Next
  Next
EndFunc