DC_BitmapDraw()

[rdonnay]

DCSTATIC ... does not have :autoScale property, only :autoSize and they do not behave the sameway

That was a typo. You are correct about that. :autoSize should work for you.

If you are wanting the static to stay at the same size and scale down the bitmap to fit the static then you will need to use the :draw() method of the XbpBitmap() class to draw the bitmap into the presentation space of the static.

[unixkd]

Yes thant is what I want.

I will appreciate if you can modify the sample program you gave earlier to accomplish this.

Regards.

Joe.

[rdonnay]

I will appreciate if you can modify the sample program you gave earlier to accomplish this.

Code: Select all

FUNCTION RunAnimation(oStatic,oBitmap)

LOCAL oPS := oStatic:lockPs(), aTarget, nAspect, nXSize, nYSize

nXSize := oStatic:currentSize()[1]
nYSize := oStatic:currentSize()[2]

BMPDB->(dbGoTop())
DO WHILE !BMPDB->(Eof())
  oBitmap:setBuffer(BMPDB->bitmap,XBPBMP_FORMAT_WIN3X)
  aTarget := { 0, 0, nXSize, nYSize }
  nAspect    := oBitmap:xSize / oBitmap:ySize
  IF nAspect > aTarget[3] / aTarget[4]
    aTarget[4] := aTarget[3] / nAspect
  ELSE
    aTarget[3] := aTarget[4] * nAspect
  ENDIF
  oBitmap:draw( oPS, aTarget )
  BMPDB->(dbSkip())
  Sleep(5)
ENDDO

oStatic:unlockPS()

RETURN nil

[unixkd]

Roger.

Many thanks.

Joe