Randomize gradient on doubleclick.

2005-09-11 21:07:13 +00:00
parent 0013bdf1c7
commit 389efeaf78
2 changed files with 8 additions and 1 deletions
--- 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