From b80f4dd6e24d20d7697bf7c22a2778d077f9da3c Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 5 Mar 2012 09:46:21 +0000
Subject: [PATCH] IDE: component palette: fixed option to hide hints for
 palette

git-svn-id: trunk@35723 -
---
 ide/componentpalette.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ide/componentpalette.pas b/ide/componentpalette.pas
index a0fa76c8f1..fb4853996c 100644
--- a/ide/componentpalette.pas
+++ b/ide/componentpalette.pas
@@ -42,7 +42,8 @@ uses
   {$IFDEF CustomIDEComps}
   CustomIDEComps,
   {$ENDIF}
-  LazarusIDEStrConsts, ComponentReg, DesignerProcs, PackageDefs, FindPaletteComp;
+  LazarusIDEStrConsts, ComponentReg, DesignerProcs, PackageDefs,
+  FindPaletteComp, EnvironmentOpts;
 
 type
   TComponentSelectionMode = (
@@ -712,6 +713,7 @@ begin
           GroupIndex:= 1;
           Down := True;
           Hint := lisSelectionTool;
+          ShowHint := EnvironmentOptions.ShowHintsForComponentPalette;
           SetBounds(0,0,ComponentPaletteBtnWidth,ComponentPaletteBtnHeight);
           Parent:=CurScrollBox;
         end;
@@ -751,7 +753,7 @@ begin
               OnMouseDown:= @ComponentBtnMouseDown;
               OnMouseUp:=@ComponentBtnMouseUp;
               OnDblClick := @ComponentBtnDblClick;
-              ShowHint := true;
+              ShowHint := EnvironmentOptions.ShowHintsForComponentPalette;
               Hint := CurComponent.ComponentClass.ClassName + sLineBreak
                 + '(' + CurComponent.ComponentClass.UnitName + ')';
               CurBtn.PopupMenu:=Self.PopupMenu;