XProfan

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

whileloop 1000,25000,1000

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

    si tmp

        max=loop
        pixels.destroy(tmp)

    endif

    imprimer loop;"x";loop;»,si(tmp,tmp,"gescheitert")
    casenot tmp : pause

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 pour 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)
    cas x>max-xx-1 : x=0
    cas y>max-yy-1 : y=0
    // Ausschnitt aus Riesenbild-Pixelspeicher dans kleines AnzeigePixelshPic kopieren
    pixels.copyRect(myView,megabild,0,0,x,y,xx,yy,0)
    // cela hPic qui Pixel de myView aktualisieren
    pixels.renewHPic(myView)
    // kleines AnzeigePixelshPic sur hWnd zeichnen
    pixels.drawHPic(myView,0,0,0)
    / /
    waitinput 1

}

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