JS-Soft

cls
var pic_bm&=Create("hNewPic", %maxx, %maxy, 0)'Bitmap erstellen
RefreshBitmap()'Auf Bitmap malen (Nach Zufall)
var bm&=Create("Bitmap", %hwnd, pic_bm&, 0, 0)'Bitmap-Control erstellen, mit Bitmap pic_bm&
var refresh&=Create("Button",%hwnd,"Aktualisieren",10,10,100,25)

whilenot iskey(27)

    waitinput

    if Getfocus(refresh&)

        RefreshBitmap()'Auf Bitmap malen (Nach Zufall)
        Sendmessage(bm&,$172,0,pic_bm&)'Bitmap-Control mit Bitmap aktualisieren
        Setfocus(%hwnd)

    Endif

Endwhile

end

Proc RefreshBitmap

    StartPaint pic_bm&'In Bitmap malen
    cls 0
    MoveTo RND(width(%hwnd)+1),RND(height(%hwnd)+1)

    whileloop 100

        UsePen 0,5,RND(265*256*265)
        LineTo RND(width(%hwnd)+1),RND(height(%hwnd)+1)

    Endwhile

    EndPaint

EndProc