From 389efeaf78b82c2866c5c3856cf2c190a0037664 Mon Sep 17 00:00:00 2001
From: utak3r <utak3r>
Date: Sun, 11 Sep 2005 21:07:13 +0000
Subject: [PATCH] Randomize gradient on doubleclick.

---
 2.10/Source/Adjust.dfm | 3 ++-
 2.10/Source/Adjust.pas | 6 ++++++
 2 files changed, 8 insertions(+), 1 deletion(-)

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