Added gradient drawing in a tooltip form in the gradient browser.

2005-05-02 18:23:55 +00:00
parent 8cc8693bc2
commit 00296cfd95
2 changed files with 88 additions and 0 deletions
--- a/2.10/Source/Browser.dfm
+++ b/2.10/Source/Browser.dfm
@ -73,7 +73,9 @@ object GradientBrowser: TGradientBrowser
      LargeImages = LargeImages
      ReadOnly = True
      RowSelect = True
+      ParentShowHint = False
      PopupMenu = PopupMenu
+      ShowHint = True
      SmallImages = SmallImages
      SortType = stText
      TabOrder = 0
@ -81,6 +83,7 @@ object GradientBrowser: TGradientBrowser
      OnChange = ListViewChange
      OnDblClick = SpeedButton1Click
      OnEdited = ListViewEdited
+      OnInfoTip = ListViewInfoTip
      OnKeyPress = ListViewKeyPress
    end
  end
@ -875,4 +878,9 @@ object GradientBrowser: TGradientBrowser
      E00001FF10022F031F022F0320FFFF0000000000000000000000000000000000
      000000000000}
  end
+  object TooltipTimer: TTimer
+    OnTimer = TooltipTimerTimer
+    Left = 8
+    Top = 52
+  end
 end