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

Opkman: Create main data module sooner.

Browse Source 
git-svn-id: trunk@59789 -
This commit is contained in:
balazs 2018-12-11 05:49:39 +00:00
parent 607ce76498
commit a4b85e5943
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/onlinepackagemanager/onlinepackagemanagerintf.pas
View File

@ -42,18 +42,12 @@ uses opkman_const, opkman_mainfrm, opkman_maindm, opkman_intf;
procedure IDEMenuSectionClicked(Sender: TObject);
begin
MainDM := TMainDM.Create(nil);
MainFrm := TMainFrm.Create(nil);
try
MainFrm := TMainFrm.Create(nil);
try
MainFrm.ShowModal;
finally
MainFrm.Free;
MainFrm := nil;
end;
MainFrm.ShowModal;
finally
MainDM.Free;
MainDM := nil;
MainFrm.Free;
MainFrm := nil;
end;
end;
@ -76,9 +70,11 @@ begin
end;
initialization
MainDM := TMainDM.Create(nil);
OPMInterface := TOPMInterfaceEx.Create;
finalization
OPMInterface.Free;
MainDM.Free;
end.