XProfan

DrawPic_(long tDC,lBmp,nX,nY,nMode){

    long hBitmap=lBmp
    mem bm=BITMAP
    getObject(hBitmap, sizeof(bm),bm)
    int nCopyMode=srcCopy;

    select nMode

        caseOf 1: nCopyMode = SRCAND

        caseOf 2: nCopyMode = SRCPAINT

        caseOf 3: nCopyMode = SRCINVERT

        caseOf 4: nCopyMode = DSTINVERT

        otherWise
        nCopyMode = SRCCOPY

    endSelect

    long hTempDC = CreateCompatibleDC(tDC)
    long hOldBmp = SelectObject(hTempDC, hBitmap)
    BitBlt(tDC, nX, nY, bm::bmWidth&, bm::bmHeight&, hTempDC, 0, 0, nCopyMode)
    SelectObject(hTempDC, hOldBmp)
    DeleteDC(hTempDC)
    dispose bm

}

drawPicClipped(long tDC,lBmp,nX,nY,nMode,x,y,xx,yy){

    long hBitmap=lBmp
    add xx,x
    add yy,y
    mem bm=BITMAP
    getObject(hBitmap, sizeof(bm),bm)
    int nCopyMode=srcCopy;

    select nMode

        caseOf 1: nCopyMode = SRCAND

        caseOf 2: nCopyMode = SRCPAINT

        caseOf 3: nCopyMode = SRCINVERT

        caseOf 4: nCopyMode = DSTINVERT

        otherWise
        nCopyMode = SRCCOPY

    endSelect

    long hTempDC = CreateCompatibleDC(tDC)
    long hOldBmp = SelectObject(hTempDC, hBitmap)
    BitBlt(tDC, x,y, xx-x, yy-y, hTempDC,x-nx,y-ny, nCopyMode)
    //SelectObject(hTempDC, hOldBmp)
    DeleteDC(hTempDC)
    //Nachtrag:
    //deleteObject hBitmap
    //
    dispose bm

}