paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-23 01:08:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: component palette: fixed option to hide hints for palette

Browse Source 
git-svn-id: trunk@35723 -
This commit is contained in:
mattias 2012-03-05 09:46:21 +00:00
parent b9fe9455b0
commit b80f4dd6e2
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/componentpalette.pas
View File

@ -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;