diff --git a/2.10/Source/Adjust.dfm b/2.10/Source/Adjust.dfm
index 9d3271f..c34d9ac 100644
--- a/2.10/Source/Adjust.dfm
+++ b/2.10/Source/Adjust.dfm
@@ -173,7 +173,7 @@ object AdjustForm: TAdjustForm
     Top = 133
     Width = 390
     Height = 131
-    ActivePage = TabSheet2
+    ActivePage = TabSheet3
     Align = alBottom
     TabOrder = 1
     object TabSheet1: TTabSheet
@@ -681,6 +681,7 @@ object AdjustForm: TAdjustForm
           Align = alClient
           PopupMenu = GradientPopup
           Stretch = True
+          OnDblClick = GradientImageDblClick
           OnMouseDown = GradImageMouseDown
           OnMouseMove = GradImageMouseMove
           OnMouseUp = GradImageMouseUp
diff --git a/2.10/Source/Adjust.pas b/2.10/Source/Adjust.pas
index bdebb84..c76e291 100644
--- a/2.10/Source/Adjust.pas
+++ b/2.10/Source/Adjust.pas
@@ -242,6 +242,7 @@ type
     procedure GetMainWindowSize;
     procedure btnUndoClick(Sender: TObject);
     procedure btnRedoClick(Sender: TObject);
+    procedure GradientImageDblClick(Sender: TObject);
 
   private
     Resetting: boolean;
@@ -1647,6 +1648,11 @@ begin
   Apply;
 end;
 
+procedure TAdjustForm.GradientImageDblClick(Sender: TObject);
+begin
+  mnuRandomizeClick(Sender);
+end;
+
 procedure TAdjustForm.GradImageMouseDown(Sender: TObject;
   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 begin