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

IDE: more robust

Browse Source 
git-svn-id: trunk@42304 -
This commit is contained in:
mattias 2013-08-04 09:29:38 +00:00
parent cbc211d5ab
commit 2fe9905694
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packager/openinstalledpkgdlg.pas
View File

@ -60,20 +60,21 @@ type
procedure UpdatePackageList; procedure UpdatePackageList;
end; end;
function ShowOpenLoadedPkgDlg(var OpenPackage: TLazPackage): TModalResult; function ShowOpenLoadedPkgDlg(out OpenPackage: TLazPackage): TModalResult;
implementation implementation
{$R *.lfm} {$R *.lfm}
function ShowOpenLoadedPkgDlg(var OpenPackage: TLazPackage): TModalResult; function ShowOpenLoadedPkgDlg(out OpenPackage: TLazPackage): TModalResult;
begin begin
OpenPackage:=nil;
with TOpenLoadedPackagesDlg.Create(nil) do with TOpenLoadedPackagesDlg.Create(nil) do
try try
UpdatePackageList; UpdatePackageList;
UpdateSelection; UpdateSelection;
Result:=ShowModal; Result:=ShowModal;
if Result=mrOK then if (Result=mrOK) and (Package<>nil) then
OpenPackage:=Package OpenPackage:=Package
else else
OpenPackage:=nil; OpenPackage:=nil;