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

IDE: package editor: fixed disconnecting menu items, bug #16944

Browse Source 
git-svn-id: trunk@26734 -
This commit is contained in:
mattias 2010-07-19 10:45:17 +00:00
parent e0341b226e
commit 6f65a3d2ae
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packager/packageeditor.pas
View File

@ -179,7 +179,6 @@ type
procedure CompilerOptionsBitBtnClick(Sender: TObject);
procedure CreateMakefileClick(Sender: TObject);
procedure FilePropsGroupBoxResize(Sender: TObject);
procedure FilesPopupMenuClose(Sender: TObject);
procedure FilesPopupMenuPopup(Sender: TObject);
procedure UsePopupMenuPopup(Sender: TObject);
procedure FilesTreeViewDblClick(Sender: TObject);
@ -1017,11 +1016,6 @@ begin
SetBounds(x,y,150,Height);
end;
procedure TPackageEditorForm.FilesPopupMenuClose(Sender: TObject);
begin
PackageEditorMenuRoot.MenuItem:=nil;
end;
procedure TPackageEditorForm.AddBitBtnClick(Sender: TObject);
procedure AddUnit(AddParams: TAddToPkgResult);
@ -1423,7 +1417,6 @@ begin
begin
Name := 'FilesPopupMenu';
OnPopup := @FilesPopupMenuPopup;
OnClose :=@FilesPopupMenuClose;
end;
UsePopupMenu := TPopupMenu.Create(Self);
with UsePopupMenu do
@ -2178,6 +2171,8 @@ end;
destructor TPackageEditorForm.Destroy;
begin
if PackageEditorMenuRoot.MenuItem=FilesPopupMenu.Items then
PackageEditorMenuRoot.MenuItem:=nil;
PackageEditors.DoFreeEditor(LazPackage);
FreeAndNil(FPlugins);
inherited Destroy;