paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-23 14:28:19 +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} {$IFDEF CustomIDEComps}
CustomIDEComps, CustomIDEComps,
{$ENDIF} {$ENDIF}
LazarusIDEStrConsts, ComponentReg, DesignerProcs, PackageDefs, FindPaletteComp; LazarusIDEStrConsts, ComponentReg, DesignerProcs, PackageDefs,
FindPaletteComp, EnvironmentOpts;
type type
TComponentSelectionMode = ( TComponentSelectionMode = (
@ -712,6 +713,7 @@ begin
GroupIndex:= 1; GroupIndex:= 1;
Down := True; Down := True;
Hint := lisSelectionTool; Hint := lisSelectionTool;
ShowHint := EnvironmentOptions.ShowHintsForComponentPalette;
SetBounds(0,0,ComponentPaletteBtnWidth,ComponentPaletteBtnHeight); SetBounds(0,0,ComponentPaletteBtnWidth,ComponentPaletteBtnHeight);
Parent:=CurScrollBox; Parent:=CurScrollBox;
end; end;
@ -751,7 +753,7 @@ begin
OnMouseDown:= @ComponentBtnMouseDown; OnMouseDown:= @ComponentBtnMouseDown;
OnMouseUp:=@ComponentBtnMouseUp; OnMouseUp:=@ComponentBtnMouseUp;
OnDblClick := @ComponentBtnDblClick; OnDblClick := @ComponentBtnDblClick;
ShowHint := true; ShowHint := EnvironmentOptions.ShowHintsForComponentPalette;
Hint := CurComponent.ComponentClass.ClassName + sLineBreak Hint := CurComponent.ComponentClass.ClassName + sLineBreak
+ '(' + CurComponent.ComponentClass.UnitName + ')'; + '(' + CurComponent.ComponentClass.UnitName + ')';
CurBtn.PopupMenu:=Self.PopupMenu; CurBtn.PopupMenu:=Self.PopupMenu;