paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 12:59:12 +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;
end;
function ShowOpenLoadedPkgDlg(var OpenPackage: TLazPackage): TModalResult;
function ShowOpenLoadedPkgDlg(out OpenPackage: TLazPackage): TModalResult;
implementation
{$R *.lfm}
function ShowOpenLoadedPkgDlg(var OpenPackage: TLazPackage): TModalResult;
function ShowOpenLoadedPkgDlg(out OpenPackage: TLazPackage): TModalResult;
begin
OpenPackage:=nil;
with TOpenLoadedPackagesDlg.Create(nil) do
try
UpdatePackageList;
UpdateSelection;
Result:=ShowModal;
if Result=mrOK then
if (Result=mrOK) and (Package<>nil) then
OpenPackage:=Package
else
OpenPackage:=nil;