XProfan

 {$cleq}
//
decimals 0
include pixels.inc
//usermessages wm_erasebkgnd
//
cls
print "Größen/Speichertest:"
// max größe durchtesten
long tmp,max

whileloop 1000,25000,1000

    tmp=pixels.create(loop,loop,$FF0000)

    if tmp

        max=loop
        pixels.destroy(tmp)

    endif

    print loop;"x";loop;":",if(tmp,tmp,"gescheitert")
    casenot tmp : break

wend

casenot max : end messagebox("errmax","",0)
//
sleep 1000
cls
// maximales Megabild anlegen
long megabild=pixels.create(max,max,0)
casenot megabild : end messagebox("errmega","",0)
// kleines AnzeigePixelshPic für Ausgabe des Riesenbildes erzeugen
long myView=pixels.createHPic(maxx,maxy,$FF0000)
casenot myView : end messagebox("errmyview","",0)
// megabild vollmalen

whileloop 2000

    pixels.line(megabild,0,rnd(max),max,rnd(max),rnd($FFFFFF))
    pixels.line(megabild,rnd(max),0,rnd(max),max,rnd($FFFFFF))

wend

// anzeige
long x,y,xx,yy
windowtitle str$(max)

do {

    xx=width(hWnd)
    yy=height(hWnd)
    x=mousex/xx*(max-xx)
    y=mousey/yy*(max-yy)
    case x>max-xx-1 : x=0
    case y>max-yy-1 : y=0
    // Ausschnitt aus Riesenbild-Pixelspeicher in kleines AnzeigePixelshPic kopieren
    pixels.copyRect(myView,megabild,0,0,x,y,xx,yy,0)
    // das hPic der Pixel von myView aktualisieren
    pixels.renewHPic(myView)
    // kleines AnzeigePixelshPic auf hWnd zeichnen
    pixels.drawHPic(myView,0,0,0)
    //
    waitinput 1

}

//
//pixels.destroy(myView)
end
//