瀏覽代碼

fix phong shape undo update

Johann 5 年之前
父節點
當前提交
c6e002acd0
共有 1 個文件被更改,包括 2 次插入0 次删除
  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;