Changeset 8 for trunk/Studio


Ignore:
Timestamp:
Aug 3, 2012, 12:14:25 PM (12 years ago)
Author:
chronos
Message:
Location:
trunk/Studio
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/Studio/LibreDevelopStudio.lpi

    r7 r8  
    3333      </local>
    3434    </RunParams>
    35     <RequiredPackages Count="4">
     35    <RequiredPackages Count="5">
    3636      <Item1>
    37         <PackageName Value="LDModuleBrainfuck"/>
     37        <PackageName Value="LDModulePascal"/>
    3838      </Item1>
    3939      <Item2>
    40         <PackageName Value="LDModuleDebug"/>
     40        <PackageName Value="LDModuleBrainfuck"/>
    4141      </Item2>
    4242      <Item3>
    43         <PackageName Value="LibreDevelopStudio"/>
     43        <PackageName Value="LDModuleDebug"/>
    4444      </Item3>
    4545      <Item4>
     46        <PackageName Value="LibreDevelopStudio"/>
     47      </Item4>
     48      <Item5>
    4649        <PackageName Value="LCL"/>
    47       </Item4>
     50      </Item5>
    4851    </RequiredPackages>
    4952    <Units Count="2">
    … …  
    7982    </Parsing>
    8083    <Linking>
     84      <Debugging>
     85        <UseHeaptrc Value="True"/>
     86      </Debugging>
    8187      <Options>
    8288        <Win32>

  • trunk/Studio/LibreDevelopStudio.lpr

    r5 r8  
    1616  Application.Initialize;
    1717  Application.CreateForm(TCore, Core);
    18   Application.CreateForm(TDataModule1, DataModule1);
    1918  Core.Init;
    2019  Application.Run;

  • trunk/Studio/UCore.pas

    r7 r8  
    3131
    3232uses
    33   ULDModuleDebug, UFormMain, ULDModuleBrainfuck, UDataModule;
     33  ULDModuleDebug, UFormMain, ULDModuleBrainfuck, UDataModule, ULDModulePascal;
    3434
    3535{ TCore }
    … …  
    3737procedure TCore.DataModuleCreate(Sender: TObject);
    3838begin
     39  DataModule1 := TDataModule1.Create(nil);
    3940  API := TLDStudioAPI.Create;
    4041  ModuleManager := TModuleManager.Create(nil);
    … …  
    4647  FreeAndNil(ModuleManager);
    4748  FreeAndNil(API);
     49  FreeAndNil(DataModule1);
    4850end;
    4951
    … …  
    5254  ModuleManager.RegisterModule(TLDModuleDebug.Create, True);
    5355  ModuleManager.RegisterModule(TLDModuleBrainfuck.Create, True);
     56  ModuleManager.RegisterModule(TLDModulePascal.Create, True);
    5457  ModuleManager.InstallMarked;
    5558end;
Note: See TracChangeset for help on using the changeset viewer.