Changeset 73 for trunk/IDE

Timestamp:

May 2, 2013, 10:11:15 PM (12 years ago)

Author:

chronos

Message:

• Modified: Packages are now stored as uncomporessed and are linked with relative path to project.

Location:

trunk/IDE

Files:

• Modules/Pascal/UIDEModulePascal.pas (modified) (2 diffs)
• Transpascal.lpi (modified) (1 diff)
• UCore.pas (modified) (4 diffs)

trunk/IDE/Modules/Pascal/UIDEModulePascal.pas

@@ -13 +13 @@
 
   TIDEModulePascal = class(TModule)
-    constructor Create; override;
+    constructor Create(AOwner: TComponent); override;
   end;
 
@@ -20 +20 @@
 { TIDEModulePascal }
 
-constructor TIDEModulePascal.Create;
+constructor TIDEModulePascal.Create(AOwner: TComponent);
 begin
   inherited;

trunk/IDE/Transpascal.lpi

@@ -80 +80 @@
       </local>
     </RunParams>
-    <RequiredPackages Count="9">
+    <RequiredPackages Count="8">
       <Item1>
         <PackageName Value="ModularSystem"/>
         <MinVersion Minor="1" Valid="True"/>
+        <DefaultFilename Value="..\Packages\ModularSystem\ModularSystem.lpk" Prefer="True"/>
       </Item1>
       <Item2>
-        <PackageName Value="GeneralRegistry"/>
-        <MinVersion Minor="1" Valid="True"/>
+        <PackageName Value="Common"/>
+        <MinVersion Minor="7" Valid="True"/>
+        <DefaultFilename Value="..\Packages\Common\Common.lpk" Prefer="True"/>
       </Item2>
       <Item3>
-        <PackageName Value="Common"/>
-        <MinVersion Minor="7" Valid="True"/>
+        <PackageName Value="CoolTranslator"/>
+        <DefaultFilename Value="..\Packages\CoolTranslator\CoolTranslator.lpk" Prefer="True"/>
       </Item3>
       <Item4>
-        <PackageName Value="CoolTranslator"/>
+        <PackageName Value="LCLBase"/>
+        <MinVersion Major="1" Release="1" Valid="True"/>
       </Item4>
       <Item5>
-        <PackageName Value="LCLBase"/>
-        <MinVersion Major="1" Release="1" Valid="True"/>
+        <PackageName Value="TemplateGenerics"/>
+        <DefaultFilename Value="..\Packages\TemplateGenerics\TemplateGenerics.lpk" Prefer="True"/>
       </Item5>
       <Item6>
-        <PackageName Value="TemplateGenerics"/>
+        <PackageName Value="TranspascalCompiler"/>
+        <DefaultFilename Value="..\Compiler\TranspascalCompiler.lpk" Prefer="True"/>
       </Item6>
       <Item7>
-        <PackageName Value="TranspascalCompiler"/>
+        <PackageName Value="SynEdit"/>
+        <MinVersion Major="1" Valid="True"/>
       </Item7>
       <Item8>
-        <PackageName Value="SynEdit"/>
-        <MinVersion Major="1" Valid="True"/>
+        <PackageName Value="LCL"/>
       </Item8>
-      <Item9>
-        <PackageName Value="LCL"/>
-      </Item9>
     </RequiredPackages>
     <Units Count="20">

trunk/IDE/UCore.pas

@@ -176 +176 @@
       Free;
     end;
-  LastOpenedFiles.LoadFromRegistry(Root, Key + '\LastOpenedFiles'); //Root, Key + '\LastOpenedFiles');
+  LastOpenedFiles.LoadFromRegistry(RegContext(Root, Key + '\LastOpenedFiles')); //Root, Key + '\LastOpenedFiles');
   Compiler.LoadFromRegistry(Root, Key + '\Compiler');
   FormMain.LoadFromRegistry(Root, Key);
@@ -198 +198 @@
       Free;
     end;
-  LastOpenedFiles.SaveToRegistry(Root, Key + '\LastOpenedFiles');
+  LastOpenedFiles.SaveToRegistry(RegContext(Root, Key + '\LastOpenedFiles'));
   Compiler.SaveToRegistry(Root, Key + '\Compiler');
   FormMain.SaveToRegistry(Root, Key);
@@ -205 +205 @@
 procedure TCore.RegisterIDEModules;
 begin
-  ModuleManager.RegisterModule(TIDEModulePascal.Create);
+  ModuleManager.RegisterModule(TIDEModulePascal.Create(nil));
 end;
 
@@ -211 +211 @@
 begin
   with Compiler.ModuleManager do begin
-    RegisterModule(TModulePascal.Create, True);
-    RegisterModule(TModuleGCC.Create, True);
+    RegisterModule(TModulePascal.Create(nil));
+    RegisterModule(TModuleGCC.Create(nil));
 {    RegisterModule(TModuleInterpretter.Create);
     RegisterModule(TModuleDelphi.Create);