paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 21:38:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Add package name to hints for component palette icons.

Browse Source 
git-svn-id: trunk@59081 -
This commit is contained in:
juha 2018-09-19 10:22:47 +00:00
parent eee5c0d422
commit 0d01822dfb
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/componentpalette.pas
View File

@ -443,7 +443,9 @@ begin
Pal.fComponentButtons[CompCN] := Btn;
Btn.Name := CompPaletteCompBtnPrefix + aButtonUniqueName + CompCN;
// Left and Top will be set in ReAlignButtons.
Btn.SetBounds(Btn.Left,Btn.Top,aScrollBox.Scale96ToForm(ComponentPaletteBtnWidth),aScrollBox.Scale96ToForm(ComponentPaletteBtnHeight));
Btn.SetBounds(Btn.Left, Btn.Top,
aScrollBox.Scale96ToForm(ComponentPaletteBtnWidth),
aScrollBox.Scale96ToForm(ComponentPaletteBtnHeight));
Btn.Images := aComp.Images;
Btn.ImageIndex := aComp.ImageIndex;
Btn.GroupIndex := 1;
@ -453,7 +455,8 @@ begin
Btn.OnDblClick := @Pal.ComponentBtnDblClick;
Btn.OnMouseWheel := @Pal.OnPageMouseWheel;
Btn.ShowHint := EnvironmentOptions.ShowHintsForComponentPalette;
Btn.Hint := CompCN + sLineBreak + '(' + aComp.ComponentClass.UnitName + ')';
Btn.Hint := CompCN + sLineBreak +
'(' + aComp.ComponentClass.UnitName+', '+aComp.PkgFile.LazPackage.Name + ')';
Btn.PopupMenu:=Pal.PopupMenu;
{$IFDEF VerboseComponentPalette}
if aComp.RealPage.PageName = CompPalVerbPgName then