使用 wxhaskell 绘制缩放位图

Question

图像查看器示例展示了如何在 ScrolledWindow 中显示图像。

如果我想在可用空间中显示图像，并根据需要缩放位图，该怎么办？

我的谷歌搜索在这一点上让我失败了。

编辑：我以为我有 scrolledWindowSetScale 的东西，但看起来它在这里没有帮助。

Answer 1

有些人向我指出了 wxCore 中的函数，这样我就可以找到一个可行的解决方案。

在原始示例中进行绘图的函数是：

onPaint vbitmap dc viewArea
  = do mbBitmap <- get vbitmap value
       case mbBitmap of
         Nothing -> return () 
         Just bm -> drawBitmap dc bm pointZero False []

使用 wxCore 中的 dcSetUserScale ，我能够将其修改为以这种方式缩放：（

sw 是scrolledWindow ）

onPaint sw img dc viewArea = do
  mimg <- get img value
  case mimg of
    Nothing -> return ()
    Just bm -> do
      bsize <- get bm size
      vsize <- get sw size
      let scale = calcScale bsize vsize
      dcSetUserScale dc scale scale
      drawBitmap dc bm pointZero False []

calcScale :: Size -> Size -> Double
calcScale (Size bw bh) (Size vw vh) = min scalew scaleh
  where scalew = fromIntegral vw / fromIntegral bw
        scaleh = fromIntegral vh / fromIntegral bh