浏览代码

update edit fill point button

Unknown 6 年之前
父节点
当前提交
0a22187e2a
共有 1 个文件被更改,包括 5 次插入1 次删除
  1. 5 1
      vectoredit/umain.pas

+ 5 - 1
vectoredit/umain.pas

@@ -933,7 +933,11 @@ end;
 
 procedure TForm1.RequestBackFillUpdate(Sender: TObject);
 begin
-  if not FUpdatingFromShape then UpdateShapeBackFill;
+  if not FUpdatingFromShape then
+  begin
+    UpdateShapeBackFill;
+    UpdateBackToolFillPoints;
+  end;
 end;
 
 procedure TForm1.OnBackFillChange(ASender: TObject);