paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 02:49:19 +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 CompilerOptionsBitBtnClick(Sender: TObject);
procedure CreateMakefileClick(Sender: TObject); procedure CreateMakefileClick(Sender: TObject);
procedure FilePropsGroupBoxResize(Sender: TObject); procedure FilePropsGroupBoxResize(Sender: TObject);
procedure FilesPopupMenuClose(Sender: TObject);
procedure FilesPopupMenuPopup(Sender: TObject); procedure FilesPopupMenuPopup(Sender: TObject);
procedure UsePopupMenuPopup(Sender: TObject); procedure UsePopupMenuPopup(Sender: TObject);
procedure FilesTreeViewDblClick(Sender: TObject); procedure FilesTreeViewDblClick(Sender: TObject);
@ -1017,11 +1016,6 @@ begin
SetBounds(x,y,150,Height); SetBounds(x,y,150,Height);
end; end;
procedure TPackageEditorForm.FilesPopupMenuClose(Sender: TObject);
begin
PackageEditorMenuRoot.MenuItem:=nil;
end;
procedure TPackageEditorForm.AddBitBtnClick(Sender: TObject); procedure TPackageEditorForm.AddBitBtnClick(Sender: TObject);
procedure AddUnit(AddParams: TAddToPkgResult); procedure AddUnit(AddParams: TAddToPkgResult);
@ -1423,7 +1417,6 @@ begin
begin begin
Name := 'FilesPopupMenu'; Name := 'FilesPopupMenu';
OnPopup := @FilesPopupMenuPopup; OnPopup := @FilesPopupMenuPopup;
OnClose :=@FilesPopupMenuClose;
end; end;
UsePopupMenu := TPopupMenu.Create(Self); UsePopupMenu := TPopupMenu.Create(Self);
with UsePopupMenu do with UsePopupMenu do
@ -2178,6 +2171,8 @@ end;
destructor TPackageEditorForm.Destroy; destructor TPackageEditorForm.Destroy;
begin begin
if PackageEditorMenuRoot.MenuItem=FilesPopupMenu.Items then
PackageEditorMenuRoot.MenuItem:=nil;
PackageEditors.DoFreeEditor(LazPackage); PackageEditors.DoFreeEditor(LazPackage);
FreeAndNil(FPlugins); FreeAndNil(FPlugins);
inherited Destroy; inherited Destroy;