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

Merged revision(s) 59081 #0d01822dfb from trunk:

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

git-svn-id: branches/fixes_2_0@59099 -
This commit is contained in:
maxim 2018-09-20 22:39:08 +00:00
parent 51abe9c120
commit 4d2a63f942
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