XProfan

'--------------------------
'----- Haupt-Programm -----
'--------------------------
Ende% = 0
WindowStyle 1 | 2 | 4 | 8 | 16
WindowTitle "test"
CLS
ShowMax
'----- Hintergrundbild an Fenster anpassen -----
var hfd& = Create("hSizedPic",-1,HGB$,Width(%hwnd),Height(%hwnd),0)
var hbild& = Create("Bitmap",%hwnd,hfd&,0,0)

WindowStyle 1 | 2 | 4 | 8 | 16
WindowTitle "test"
CLS
ShowMax
'----- Hintergrundbild an Fenster anpassen -----
var hfd& = Create("hNewPic",640,480,0)
startPaint hfd&
usepen 0,5,$FF0000
useBrush 1,$FF
rectangle 0,0 - 640,480
endPaint
var hbild& = Create("Bitmap",%hwnd,hfd&,0,0)

while 1

    setwindowpos hBild&=0,0 - width(%hWnd),height(%hWnd)
    repaint 1
    waitinput

wend

end