Bladeren bron

on Windows don't bother optimizing with DrawPart

Johann ELSASS 5 jaren geleden
bovenliggende
commit
73d2279e6e
1 gewijzigde bestanden met toevoegingen van 4 en 0 verwijderingen
  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