3884: Сделал принудительную инициализацию перерисовки всего битмапа п…

…ри скрытии слоя
sasgis · Feb 19, 2024 · fc89880 · fc89880
1 parent f96706d
commit fc89880
Showing 1 changed file with 12 additions and 9 deletions.
diff --git a/Src/MapLayers/WindowLayers/u_MapLayerBasicNoBitmap.pas b/Src/MapLayers/WindowLayers/u_MapLayerBasicNoBitmap.pas
@@ -142,7 +142,13 @@ procedure TMapLayerBasicNoBitmap.OnPaintLayer(
   if VLocalConverter <> nil then begin
     VCounterContext := FOnPaintCounter.StartOperation;
     try
-      PaintLayer(Buffer, VLocalConverter);
+      if FVisible then begin
+        PaintLayer(Buffer, VLocalConverter);
+      end else begin
+        // initialize full redraw
+        // workaround for: https://www.sasgis.org/mantis/view.php?id=3884
+        Buffer.Changed;
+      end;
     finally
       FOnPaintCounter.FinishOperation(VCounterContext);
     end;
@@ -208,14 +214,11 @@ procedure TMapLayerBasicNoBitmap.RedrawIfNeed;
   VCounterContext: TInternalPerformanceCounterContext;
 begin
   if FNeedRedrawFlag.CheckFlagAndReset then begin
-    if FVisible then begin
-      FNeedRedrawFlag.CheckFlagAndReset;
-      VCounterContext := FRedrawCounter.StartOperation;
-      try
-        FLayer.Changed;
-      finally
-        FRedrawCounter.FinishOperation(VCounterContext);
-      end;
+    VCounterContext := FRedrawCounter.StartOperation;
+    try
+      FLayer.Changed;
+    finally
+      FRedrawCounter.FinishOperation(VCounterContext);
     end;
   end;
 end;