Преглед на файлове

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);