Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

function cropimage(cBuffer,aFields,x)
******************************************************************
local oBmp,nBSizex := 0,nBSizeY := 0,oPS
if substr(cBuffer,1,2) = "BM"
     cBuffer := substr(cBuffer,15)
endif
oPS  := XbpPresSpace():New():Create()
oBmp := xbpBitmap():new():create(oPS)
oBmp:setbuffer(cBuffer)
nBSizex := oBmp:xSize
nBSizeY := oBmp:ySize
oBmp := GraSaveScreen( oPS, {100,100},{30,50})
oBmp:savefile("test.bmp")
return .t.




FUNCTION GraSaveScreen( oSourcePS, aPos, aSize )
******************************************************************
LOCAL oBitmap   := XbpBitmap():new():create( oSourcePS )
LOCAL oTargetPS := XbpPresSpace():new():create()
LOCAL aSourceRect[4], aTargetRect
aSourceRect[1] := aSourceRect[3] := aPos[1]
aSourceRect[2] := aSourceRect[4] := aPos[2]
aSourceRect[3] += aSize[1]
aSourceRect[4] += aSize[2]
aTargetRect    := {0, 0, aSize[1], aSize[2]}
oBitmap:presSpace( oTargetPS )
oBitmap:make( aSize[1], aSize[2] )
GraBitBlt( oTargetPS, oSourcePS, aTargetRect, aSourceRect )
RETURN oBitmap

Code: Alles auswählen

	oBmp:= XbpBitmap():new() 
	oBmp:load(nil,2001) 
	oBmp:create(oDlg)

   oXbp := XbpPushButton():new( drawingArea, , aBtmPos, {500,400}, { { XBP_PP_BGCLR, XBPSYSCLR_BUTTONMIDDLE }, { XBP_PP_FGCLR, -58 } } )
   oXbp:caption := (oBmp)
   oXbp:create()
   oXbp:activate := {|| Gather( aEditControls ),  .f.  }

Code: Alles auswählen

FUNCTION BMP2BMP( oBMP, aXbpSize, oPS )
LOCAL oHuge
LOCAL oTiny
LOCAL oRet
LOCAL nBits
LOCAL nPlanes

   IF aXbpSize[ 2 ] > 0
      oHuge := oBMP
      nBits := oBMP:bits
      nPlanes := oBMP:planes

      IF oPS = NIL
         oPS := XBPPRESSPACE() :new() :Create()
      ENDIF
      //Create a small bitmap to fit in our XbpStatic
      oTiny := XBPBITMAP() :New() :Create()

      IF nBits > 1 .OR. nPlanes > 1
         oTiny:Make( aXbpSize[ 1 ], aXbpSize[ 2 ], nPlanes, nBits )
      ELSE
         oTiny:Make( aXbpSize[ 1 ], aXbpSize[ 2 ] )
      ENDIF
      oTiny:transparentClr := oBMP:getDefaultBGColor()
      oTiny:presSpace( oPS )

      //Copie and resize the huge bitmap to the small bitmap
      oHuge:Draw( oPS, { 0, 0, aXbpSize[ 1 ], aXbpSize[ 2 ] }, ; // aTargetRect
                       { 0, 0, aXbpSize[ 1 ], aXbpSize[ 2 ] }, ; // aSourceRect
                                                             , ; // nRasterOP
                                          GRA_BLT_BBO_IGNORE   ) // nCompress
      oRet := oTiny
   ELSE
      oRet := oBMP
   ENDIF

RETURN oRet

Code: Alles auswählen

function croptest()
******************************************************************

local oPDF,oPS,oBmp,nOk,cBuffer,nBits,nPlanes,oTiny,oPS2
local aSize := {300,100},aPos := {120,80}
WITH OBJECT ( oPdf := TQuickPdf():New() )
     nOk  := .:LoadFromFile("test.pdf")
     cBuffer := .:RenderPagetoString(150,1,0)
     if substr(cBuffer,1,2) = "BM"
          cBuffer := substr(cBuffer,15)
     endif
     oPS  := XbpPresSpace():New():Create()
     oBmp := xbpBitmap():new():create(oPS)
     oBmp:setbuffer(cBuffer)
     nBSizex   := oBmp:xSize
     nBSizeY   := oBmp:ySize
     nBits     := oBMP:bits
     nPlanes   := oBMP:planes

     oPS2 := XBPPRESSPACE() :new() :Create()
     //Create a small bitmap to fit in our XbpStatic
     oTiny := XBPBITMAP() :New() :Create()
     IF nBits > 1 .OR. nPlanes > 1
          oTiny:Make( aSize[ 1 ], aSize[ 2 ], nPlanes, nBits )
     ELSE
          oTiny:Make( aSize[ 1 ], aSize[ 2 ] )
     ENDIF
     oTiny:transparentClr := oBMP:getDefaultBGColor()
     oTiny:presSpace( oPS2 )

     //Copie and resize the huge bitmap to the small bitmap
     oBmp:Draw( oPS2, { 0, 0, aSize[ 1 ], aSize[ 2 ] }, ; // aTargetRect
                    { 400,400, aSize[ 1 ], aSize[ 2 ] }, ; // aSourceRect
                                                            , ; // nRasterOP
                                        GRA_BLT_BBO_IGNORE   ) // nCompress
     oTiny:savefile("crop.bmp")
     .:Destroy()
END WITH
return .t.