Procházet zdrojové kódy

fix phong shape undo update

Johann před 5 roky
rodič
revize
c6e002acd0
1 změnil soubory, kde provedl 2 přidání a 0 odebrání
  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;