mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-14 10:39:18 +02:00
IDE: open loaded pkg dlg: debug
git-svn-id: trunk@42307 -
This commit is contained in:
parent
533ea4f496
commit
b0db09b4df
@ -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;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user