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

fixed popupmenu for component palette

Browse Source 
git-svn-id: trunk@4125 -
This commit is contained in:
mattias 2003-05-03 09:53:33 +00:00
parent 6eac8cd3b3
commit 7b321b0a5a
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

@ -39,7 +39,7 @@ interface
uses
Classes, SysUtils, Dialogs, Graphics, ExtCtrls, Buttons, Menus, LResources,
AVL_Tree, ComponentReg, PackageDefs, LazarusIDEStrConsts;
AVL_Tree, ComponentReg, IDEProcs, PackageDefs, LazarusIDEStrConsts;
const
ComponentPaletteBtnWidth = 25;
@ -251,6 +251,8 @@ begin
fUnregisteredIcon.Free;
fUnregisteredIcon:=nil;
end;
PopupMenu.Free;
PopupMenu:=nil;
inherited Destroy;
end;
@ -350,6 +352,7 @@ begin
CurPage:=Pages[i];
if not CurPage.Visible then continue;
CurNoteBookPage:=TPage(CurPage.PageComponent);
if not (CurNoteBookPage is TPage) then RaiseException('CurNoteBookPage');
ButtonX:=0;
// create selection button
if CurPage.SelectButton=nil then begin
@ -389,7 +392,7 @@ begin
Hint := CurComponent.ComponentClass.ClassName;
SetBounds(ButtonX,0,ComponentPaletteBtnWidth,ComponentPaletteBtnHeight);
inc(ButtonX,ComponentPaletteBtnWidth+2);
PopupMenu:=Self.PopupMenu;
CurBtn.PopupMenu:=Self.PopupMenu;
end;
end;
end else if CurComponent.Button<>nil then begin