XProfan

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

whileloop 1000,25000,1000

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

    if tmp

        max=bucle
        pixels.destroy(tmp)

    endif

    imprimir bucle;"x";bucle;":",if(tmp,tmp,"gescheitert")
    casenot tmp : romper

wend

casenot max : end messagebox("errmax","",0)
/ /
sleep 1000
cls
// maximales Megabild invertir
long megabild=pixels.create(max,max,0)
casenot megabild : end messagebox("errmega","",0)
// kleines AnzeigePixelshPic para Edición 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)
    caso x>max-xx-1 : x=0
    caso y>max-yy-1 : y=0
    // Ausschnitt de Riesenbild-Pixelspeicher en kleines AnzeigePixelshPic kopieren
    pixels.copyRect(myView,megabild,0,0,x,y,xx,yy,0)
    // el hPic el Pixel de myView aktualisieren
    pixels.renewHPic(myView)
    // kleines AnzeigePixelshPic en hWnd dibujar
    pixels.drawHPic(myView,0,0,0)
    / /
    waitinput 1

}

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