paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:19:22 +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

8
components/onlinepackagemanager/onlinepackagemanagerintf.pas
View File

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