Opkman: Add an empty data module for future use.

git-svn-id: trunk@59422 -

.gitattributes

@@ -3830,6 +3830,8 @@ components/onlinepackagemanager/opkman_installer.pas svneol=native#text/pascal
 components/onlinepackagemanager/opkman_intf.pas svneol=native#text/pascal
 components/onlinepackagemanager/opkman_intf_packagelistfrm.lfm svneol=native#text/plain
 components/onlinepackagemanager/opkman_intf_packagelistfrm.pas svneol=native#text/pascal
+components/onlinepackagemanager/opkman_maindm.lfm svneol=native#text/pascal
+components/onlinepackagemanager/opkman_maindm.pas svneol=native#text/plain
 components/onlinepackagemanager/opkman_mainfrm.lfm svneol=native#text/plain
 components/onlinepackagemanager/opkman_mainfrm.pas svneol=native#text/pascal
 components/onlinepackagemanager/opkman_options.pas svneol=native#text/pascal

components/onlinepackagemanager/onlinepackagemanager.lpk

@@ -25,7 +25,7 @@
 For more info please visit: http://wiki.freepascal.org/Online_Package_Manager"/>
     <License Value="GPL"/>
     <Version Major="1" Release="1" Build="2"/>
-    <Files Count="28">
+    <Files Count="29">
       <Item1>
         <Filename Value="onlinepackagemanagerintf.pas"/>
         <HasRegisterProc Value="True"/>
@@ -144,6 +144,10 @@ For more info please visit: http://wiki.freepascal.org/Online_Package_Manager"/>
         <Filename Value="opkman_colorsfrm.pas"/>
         <UnitName Value="opkman_colorsfrm"/>
       </Item28>
+      <Item29>
+        <Filename Value="opkman_maindm.pas"/>
+        <UnitName Value="opkman_maindm"/>
+      </Item29>
     </Files>
     <i18n>
       <EnableI18N Value="True"/>

components/onlinepackagemanager/onlinepackagemanager.pas

@@ -16,15 +16,16 @@ uses
   opkman_createjsonforupdatesfrm, opkman_uploader, opkman_repositories, 
   opkman_createrepositoryfrm, opkman_repositorydetailsfrm, 
   opkman_addrepositorypackagefrm, opkman_intf, opkman_intf_packagelistfrm, 
-  opkman_showhint, opkman_showhintbase, opkman_colorsfrm, LazarusPackageIntf;
+  opkman_showhint, opkman_showhintbase, opkman_colorsfrm, opkman_maindm, 
+  LazarusPackageIntf;
 
 implementation
 
 procedure Register;
 begin
-  RegisterUnit('onlinepackagemanagerintf', @ onlinepackagemanagerintf.Register);
+  RegisterUnit('onlinepackagemanagerintf', @onlinepackagemanagerintf.Register);
 end;
 
 initialization
-  RegisterPackage('OnlinePackageManager', @ Register);
+  RegisterPackage('OnlinePackageManager', @Register);
 end.

components/onlinepackagemanager/onlinepackagemanagerintf.pas

@@ -36,16 +36,22 @@ uses
 procedure Register;
 
 implementation
-uses opkman_const, opkman_mainfrm, opkman_intf;
+uses opkman_const, opkman_mainfrm, opkman_maindm, opkman_intf;
 
 procedure IDEMenuSectionClicked(Sender: TObject);
 begin
-  MainFrm := TMainFrm.Create(nil);
+  MainDM := TMainDM.Create(nil);
   try
-    MainFrm.ShowModal;
+    MainFrm := TMainFrm.Create(nil);
+    try
+      MainFrm.ShowModal;
+    finally
+      MainFrm.Free;
+      MainFrm := nil;
+    end;
   finally
-    MainFrm.Free;
-    MainFrm := nil;
+    MainDM.Free;
+    MainDM := nil;
   end;
 end;
 

components/onlinepackagemanager/opkman_maindm.lfm

@@ -0,0 +1,13 @@
+object MainDM: TMainDM
+  OldCreateOrder = False
+  Height = 246
+  HorizontalOffset = 360
+  VerticalOffset = 142
+  Width = 316
+  PPI = 96
+  object ImageList1: TImageList
+    Tag = 5
+    left = 104
+    top = 82
+  end
+end

components/onlinepackagemanager/opkman_maindm.pas

@@ -0,0 +1,30 @@
+unit opkman_maindm;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, Controls;
+
+type
+
+  { TMainDM }
+
+  TMainDM = class(TDataModule)
+    ImageList1: TImageList;
+  private
+
+  public
+
+  end;
+
+var
+  MainDM: TMainDM;
+
+implementation
+
+{$R *.lfm}
+
+end.
+

components/onlinepackagemanager/opkman_mainfrm.pas

@@ -41,7 +41,7 @@ uses
   opkman_downloader, opkman_installer, opkman_updates,
   opkman_serializablepackages, opkman_visualtree, opkman_const, opkman_common,
   opkman_progressfrm, opkman_zipper, opkman_packagelistfrm, opkman_options,
-  opkman_optionsfrm, opkman_createrepositorypackagefrm,
+  opkman_optionsfrm, opkman_createrepositorypackagefrm, opkman_maindm,
   opkman_createjsonforupdatesfrm, opkman_createrepositoryfrm;
 
 type