property pOwnX, pOwnY, pOwnW, pOwnH, pScrolls, pOffX, pOffY, pUpdateLock

on prepare me 
  pOffX = 0
  pOffY = 0
  pOwnW = me.getProp(#pProps, #width)
  pOwnH = me.getProp(#pProps, #height)
  pScrolls = []
  pUpdateLock = 0
  me.pDepth = the colorDepth
  me.pimage = image(me.pwidth, me.pheight, me.pDepth)
  if (me.getProp(#pProps, #style) = #unique) then
    pOwnX = 0
    pOwnY = 0
  else
    pOwnX = me.getProp(#pProps, #locH)
    pOwnY = me.getProp(#pProps, #locV)
  end if
  if me.getProp(#pProps, #flipH) then
    me.flipH()
  end if
  if me.getProp(#pProps, #flipV) then
    me.flipV()
  end if
  return TRUE
end

on feedImage me, tImage 
  if not (ilk(tImage) = #image) then
    return(error(me, "Image object expected!" && tImage, #feedImage, #minor))
  end if
  tTargetRect = rect(pOwnX, pOwnY, (pOwnX + pOwnW), (pOwnY + pOwnH))
  me.pBuffer.image.fill(tTargetRect, me.getProp(#pProps, #bgColor))
  me.pimage = tImage
  me.render()
  pUpdateLock = 1
  me.registerScroll()
  pUpdateLock = 0
  return TRUE
end

on clearImage me 
  tTargetRect = rect(pOwnX, pOwnY, (pOwnX + pOwnW), (pOwnY + pOwnH))
  return(me.pBuffer.image.fill(tTargetRect, me.getProp(#pProps, #bgColor)))
end

on clearBuffer me 
  return(me.pimage.fill(me.pimage.rect, me.getProp(#pProps, #bgColor)))
end

on registerScroll me, tID 
  if voidp(pScrolls) then
    me.prepare()
  end if
  if not voidp(tID) then
    if (pScrolls.getPos(tID) = 0) then
      pScrolls.add(tID)
    end if
  else
    if (pScrolls.count = 0) then
      return FALSE
    end if
  end if
  tSourceRect = rect(pOffX, pOffY, (pOffX + pOwnW), (pOffY + pOwnH))
  tScrollList = []
  tWndObj = getWindowManager().GET(me.pMotherId)
  repeat while pScrolls <= undefined
    tScrollId = getAt(undefined, tID)
    tScrollList.add(tWndObj.getElement(tScrollId))
  end repeat
  call(#updateData, tScrollList, tSourceRect, me.pimage.rect)
end

on adjustOffsetTo me, tX, tY 
  pOffX = tX
  pOffY = tY
  if not pUpdateLock then
    me.clearImage()
    me.render()
  end if
end

on adjustOffsetBy me, tOffX, tOffY 
  pOffX = (pOffX + tOffX)
  pOffY = (pOffY + tOffY)
  if not pUpdateLock then
    me.clearImage()
    me.render()
  end if
end

on adjustXOffsetTo me, tX 
  me.adjustOffsetTo(tX, pOffY)
end

on adjustYOffsetTo me, tY 
  me.adjustOffsetTo(pOffX, tY)
end

on setOffsetX me, tX 
  me.adjustOffsetTo(tX, pOffY)
end

on setOffsetY me, tY 
  me.adjustOffsetTo(pOffX, tY)
end

on getOffsetX me 
  return(pOffX)
end

on getOffsetY me 
  return(pOffY)
end

on resizeBy me, tOffH, tOffV, tForcedTag 
  if tOffH <> 0 or tOffV <> 0 then
    if (me.getProp(#pProps, #style) = #unique) then
      if (me.pScaleH = #move) then
        me.moveBy(tOffH, 0)
      else
        if (me.pScaleH = #scale) then
          me.pwidth = (me.pwidth + tOffH)
        else
          if (me.pScaleH = #center) then
            me.moveBy((tOffH / 2), 0)
          else
            if (me.pScaleH = #fixed) then
              if tForcedTag then
                me.pwidth = (me.pwidth + tOffH)
              end if
            end if
          end if
        end if
      end if
      if (me.pScaleH = #move) then
        me.moveBy(0, tOffV)
      else
        if (me.pScaleH = #scale) then
          me.pheight = (me.pheight + tOffV)
        else
          if (me.pScaleH = #center) then
            me.moveBy(0, (tOffV / 2))
          else
            if (me.pScaleH = #fixed) then
              if tForcedTag then
                me.pheight = (me.pheight + tOffV)
              end if
            end if
          end if
        end if
      end if
      if me.pwidth < 1 then
        me.pwidth = 1
      end if
      if me.pheight < 1 then
        me.pheight = 1
      end if
      pOwnW = me.pwidth
      pOwnH = me.pheight
      me.pBuffer.image = image(pOwnW, pOwnH, me.pDepth)
      me.pBuffer.regPoint = point(0, 0)
      me.pSprite.width = pOwnW
      me.pSprite.height = pOwnH
    else
      if (me.pScaleH = #move) then
        pOwnX = (pOwnX + tOffH)
      else
        if (me.pScaleH = #scale) then
          pOwnW = (pOwnW + tOffH)
        else
          if (me.pScaleH = #center) then
            pOwnX = (pOwnX + (tOffH / 2))
          else
            if (me.pScaleH = #fixed) then
              if tForcedTag then
                me.pSprite.width = (me.pSprite.width + tOffH)
                pOwnW = me.pSprite.width
              end if
            end if
          end if
        end if
      end if
      if (me.pScaleH = #move) then
        pOwnY = (pOwnY + tOffV)
      else
        if (me.pScaleH = #scale) then
          pOwnH = (pOwnH + tOffV)
        else
          if (me.pScaleH = #center) then
            pOwnY = (pOwnY + (tOffV / 2))
          else
            if (me.pScaleH = #fixed) then
              if tForcedTag then
                me.pSprite.height = (me.pSprite.height + tOffV)
                pOwnV = me.pSprite.height
              end if
            end if
          end if
        end if
      end if
    end if
    me.registerScroll()
    me.render()
  end if
end

on render me 
  if not me.pVisible then
    return()
  end if
  tTargetRect = rect(pOwnX, pOwnY, (pOwnX + pOwnW), (pOwnY + pOwnH))
  tSourceRect = rect(pOffX, pOffY, (pOffX + pOwnW), (pOffY + pOwnH))
  me.pBuffer.image.copyPixels(me.pimage, tTargetRect, tSourceRect, me.pParams)
end

on mouseDown me 
  return(point((((the mouseH - me.pSprite.locH) + pOwnX) + pOffX), (((the mouseV - me.pSprite.locV) + pOwnY) + pOffY)))
end

on mouseUp me 
  return(point((((the mouseH - me.pSprite.locH) + pOwnX) + pOffX), (((the mouseV - me.pSprite.locV) + pOwnY) + pOffY)))
end

on mouseWithin me 
  return(point((((the mouseH - me.pSprite.locH) + pOwnX) + pOffX), (((the mouseV - me.pSprite.locV) + pOwnY) + pOffY)))
end

on handlers  
  return([])
end