Przeglądaj źródła

#383 avoid error if double click OK

circular17 3 lat temu
rodzic
commit
9980004381
1 zmienionych plików z 1 dodań i 0 usunięć
  1. 1 0
      lazpaint/dialog/color/ucolorize.pas

+ 1 - 0
lazpaint/dialog/color/ucolorize.pas

@@ -97,6 +97,7 @@ end;
 
 
 procedure TFColorize.Button_OKClick(Sender: TObject);
 procedure TFColorize.Button_OKClick(Sender: TObject);
 begin
 begin
+  if FFilterConnector.ActionDone then exit;
   ApplyChosenColor;
   ApplyChosenColor;
   FFilterConnector.ValidateAction;
   FFilterConnector.ValidateAction;
   FFilterConnector.Parameters.Floats['Hue'] := ChosenHueDegF;
   FFilterConnector.Parameters.Floats['Hue'] := ChosenHueDegF;