Bitmap-Controls

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
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