XProfan

'--------------------------
'----- tête-Programme -----
'--------------------------
Ende% = 0
Fenêtre Style 1 | 2 | 4 | 8 | 16
Titre de la fenêtre "test"
CLS
ShowMax
'----- Hintergrundbild à la fenêtre anpassen -----
var hfd& = Créer("hSizedPic",-1,HGB$,Width(%hwnd),Height(%hwnd),0)
var hbild& = Créer("Bitmap",%hwnd,hfd&,0,0)

Fenêtre Style 1 | 2 | 4 | 8 | 16
Titre de la fenêtre "test"
CLS
ShowMax
'----- Hintergrundbild à la fenêtre anpassen -----
var hfd& = Créer("hNewPic",640,480,0)
startPaint hfd&
usepen 0,5,$FF0000
useBrush 1,$FF
rectangle 0,0 - 640,480
endPaint
var hbild& = Créer("Bitmap",%hwnd,hfd&,0,0)

tandis que 1

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

Wend

end