Sfoglia il codice sorgente

fix phong shape undo update

Johann 5 anni fa
parent
commit
c6e002acd0
1 ha cambiato i file con 2 aggiunte e 0 eliminazioni
  1. 2 0
      lazpaintcontrols/lcvectorrectshapes.pas

+ 2 - 0
lazpaintcontrols/lcvectorrectshapes.pas

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