Procházet zdrojové kódy

rename function to express that result is immediate

Lulu před 2 roky
rodič
revize
b89c2beacf
1 změnil soubory, kde provedl 8 přidání a 8 odebrání
  1. 8 8
      lazpaint/dialog/filter/uposterize.pas

+ 8 - 8
lazpaint/dialog/filter/uposterize.pas

@@ -33,7 +33,7 @@ type
     FFilterConnector: TFilterConnector;
     procedure OnTryStopAction({%H-}sender: TFilterConnector);
     procedure InitParams;
-    procedure PreviewNeeded;
+    procedure DisplayPreview;
     { private declarations }
   public
     { public declarations }
@@ -67,7 +67,7 @@ begin
        FPosterize.FFilterConnector.Parameters.Booleans['Validate'] then
     begin
       FPosterize.InitParams;
-      FPosterize.PreviewNeeded;
+      FPosterize.DisplayPreview;
       FPosterize.FFilterConnector.ValidateAction;
       result := srOk;
     end else
@@ -97,7 +97,7 @@ end;
 
 procedure TFPosterize.Button_OKClick(Sender: TObject);
 begin
-  if not CheckBox_Preview.Checked then PreviewNeeded;
+  if not CheckBox_Preview.Checked then DisplayPreview;
 
   FFilterConnector.ValidateAction;
   FFilterConnector.LazPaintInstance.Config.SetDefaultPosterizeLevels(SpinEdit_Levels.Value);
@@ -108,14 +108,14 @@ end;
 procedure TFPosterize.CheckBox_ByLightnessChange(Sender: TObject);
 begin
   if not FInitializing and
-    CheckBox_Preview.Checked then PreviewNeeded;
+    CheckBox_Preview.Checked then DisplayPreview;
 end;
 
 procedure TFPosterize.CheckBox_PreviewChange(Sender: TObject);
 begin
   if FInitializing then exit;
   if CheckBox_Preview.Checked then
-    PreviewNeeded
+    DisplayPreview
   else
    FFilterConnector.RestoreBackup;
 end;
@@ -123,14 +123,14 @@ end;
 procedure TFPosterize.FormShow(Sender: TObject);
 begin
   InitParams;
-  PreviewNeeded;
+  DisplayPreview;
   Top := FFilterConnector.LazPaintInstance.MainFormBounds.Top;
 end;
 
 procedure TFPosterize.SpinEdit_LevelsChange(Sender: TObject);
 begin
   if not FInitializing and
-    CheckBox_Preview.Checked then PreviewNeeded;
+    CheckBox_Preview.Checked then DisplayPreview;
 end;
 
 procedure TFPosterize.OnTryStopAction(sender: TFilterConnector);
@@ -159,7 +159,7 @@ begin
   FInitializing := false;
 end;
 
-procedure TFPosterize.PreviewNeeded;
+procedure TFPosterize.DisplayPreview;
 var params:TVariableSet;
   levels: integer;