Delphi 6-使用Graphics32库时,仅当所有者窗口需要重新绘制时,位图才会更新

我有一个应用程序,使用本机Delphi代码在TPaintBox画布上创建3D运动。在旧代码中,我在计时器事件中将3D图像渲染为临时TBitmap。在TPaintBox OnPaint()事件中,我将BitBlt()临时TBitmap映射TPaintBox的画布。这种方法效果很好,但动作不平稳。

因为我对运动的平滑度不满意,所以我决定尝试“渲染”一个非常大的工作区位图,然后向下采样到TPaintBox画布。为了进行重新采样,我使用了Graphics32库,我在这里读到了:

Scale an image nicely in Delphi?

我将代码更改为渲染为一个大的TBitmap32(1100w x 1100h),然后在对其进行下采样时,我使用带有TLanczosKernel内核的Graphics TKernelResampler对象对另一个与TPaintBox画布大小完全相同的TBitmap32进行下采样,并调用TPaintBox的刷新方法。在TPaintBox OnPaint事件I BitBlt()中,将向下采样的TBitmap32映射到TPaintBox画布。

如果我通过移动表单或用另一个表单覆盖其客户端区域的任何部分而使表单的画布无效,那么TBitmap32对象的内容会更新,作为检查保存到磁盘的位图图像也会更新。

这就好像Graphics32 TBitmap对象本身需要失效,以便更新我渲染到大型hi-res工作区的新内容。但是,TBitmap32没有这样的失效/刷新调用。