Explorar el Código

fix phong shape undo update

Johann hace 5 años
padre
commit
c6e002acd0
Se han modificado 1 ficheros con 2 adiciones y 0 borrados
  1. 2 0
      lazpaintcontrols/lcvectorrectshapes.pas

+ 2 - 0
lazpaintcontrols/lcvectorrectshapes.pas

@@ -243,10 +243,12 @@ procedure TPhongShapeDiff.Unapply(AEndShape: TVectorShape);
 begin
   with (AEndShape as TPhongShape) do
   begin
+    BeginUpdate;
     FShapeKind := FStartShapeKind;
     FLightPosition := FStartLightPosition;
     FShapeAltitudePercent := FStartShapeAltitudePercent;
     FBorderSizePercent := FStartBorderSizePercent;
+    EndUpdate;
   end;
 end;