IDE: open loaded pkg dlg: debug

git-svn-id: trunk@42307 -
This commit is contained in:
mattias 2013-08-04 09:56:27 +00:00
parent 533ea4f496
commit b0db09b4df

View File

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