瀏覽代碼

on Windows don't bother optimizing with DrawPart

Johann ELSASS 5 年之前
父節點
當前提交
73d2279e6e
共有 1 個文件被更改,包括 4 次插入0 次删除
  1. 4 0
      lazpaint/uimageview.pas

+ 4 - 0
lazpaint/uimageview.pas

@@ -717,10 +717,14 @@ begin
     PaintBlueAreaOnly(AWorkArea)
   else
   begin
+    {$IFDEF WINDOWS}
+    vsRect := rect(0,0,FLastPictureParameters.scaledVirtualScreenArea.Width,FLastPictureParameters.scaledVirtualScreenArea.Height);
+    {$ELSE}
     with FPaintBox.PaintRect do
       vsRect := rect(Left*CanvasScale, Top*CanvasScale, Right*CanvasScale, Bottom*CanvasScale);
     with FLastPictureParameters.scaledVirtualScreenArea do
       vsRect.Offset(-Left, -Top);
+    {$ENDIF}
     if FQueryPaintVirtualScreen and
        (FLastPictureParameters.defined and
         IsRectEmpty(GetRenderUpdateRectVS(False))) then