Changeset 18 for trunk


Ignore:
Timestamp:
Sep 5, 2012, 8:53:56 PM (12 years ago)
Author:
chronos
Message:
  • Used external packages are now stored in uncompressed form rather in zipped files. This allow better package version synchronisation.
Location:
trunk
Files:
114 added
4 deleted
10 edited

Legend:

Unmodified
Added
Removed

  • trunk/Studio/LibreDevelopStudio.lpi

    r16 r18  
    3333      </local>
    3434    </RunParams>
    35     <RequiredPackages Count="8">
     35    <RequiredPackages Count="12">
    3636      <Item1>
    37         <PackageName Value="LDModuleBasic"/>
     37        <PackageName Value="ModularSystem"/>
     38        <DefaultFilename Value="..\Packages\ModularSystem\ModularSystem.lpk" Prefer="True"/>
    3839      </Item1>
    3940      <Item2>
    40         <PackageName Value="LDStudioCommon"/>
     41        <PackageName Value="CoolTranslator"/>
     42        <DefaultFilename Value="..\Packages\CoolTranslator\CoolTranslator.lpk" Prefer="True"/>
    4143      </Item2>
    4244      <Item3>
    43         <PackageName Value="LDModuleProject"/>
     45        <PackageName Value="TemplateGenerics"/>
     46        <DefaultFilename Value="..\Packages\TemplateGenerics\TemplateGenerics.lpk" Prefer="True"/>
    4447      </Item3>
    4548      <Item4>
    46         <PackageName Value="LDModulePascal"/>
     49        <PackageName Value="Common"/>
     50        <DefaultFilename Value="..\Packages\Common\Common.lpk" Prefer="True"/>
    4751      </Item4>
    4852      <Item5>
    49         <PackageName Value="LDModuleBrainfuck"/>
     53        <PackageName Value="LDModuleBasic"/>
     54        <DefaultFilename Value="..\StudioModules\LDModuleBasic\LDModuleBasic.lpk" Prefer="True"/>
    5055      </Item5>
    5156      <Item6>
    52         <PackageName Value="LDModuleDebug"/>
     57        <PackageName Value="LDStudioCommon"/>
     58        <DefaultFilename Value="..\StudioCommon\LDStudioCommon.lpk" Prefer="True"/>
    5359      </Item6>
    5460      <Item7>
    55         <PackageName Value="LibreDevelopStudio"/>
     61        <PackageName Value="LDModuleProject"/>
     62        <DefaultFilename Value="..\StudioModules\LDModuleProject\LDModuleProject.lpk" Prefer="True"/>
    5663      </Item7>
    5764      <Item8>
     65        <PackageName Value="LDModulePascal"/>
     66        <DefaultFilename Value="..\StudioModules\LDModulePascal\LDModulePascal.lpk" Prefer="True"/>
     67      </Item8>
     68      <Item9>
     69        <PackageName Value="LDModuleBrainfuck"/>
     70        <DefaultFilename Value="..\StudioModules\LDModuleBrainfuck\LDModuleBrainfuck.lpk" Prefer="True"/>
     71      </Item9>
     72      <Item10>
     73        <PackageName Value="LDModuleDebug"/>
     74        <DefaultFilename Value="..\StudioModules\LDModuleDebug\LDModuleDebug.lpk" Prefer="True"/>
     75      </Item10>
     76      <Item11>
     77        <PackageName Value="LibreDevelopStudio"/>
     78        <DefaultFilename Value="..\StudioPackage\LibreDevelopStudio.lpk" Prefer="True"/>
     79      </Item11>
     80      <Item12>
    5881        <PackageName Value="LCL"/>
    59       </Item8>
     82      </Item12>
    6083    </RequiredPackages>
    6184    <Units Count="2">

  • trunk/Studio/UCore.pas

    r16 r18  
    4747begin
    4848  with DataModule1.ModuleManager do begin
    49     RegisterModule(TLDModuleProject.Create, True);
    50     RegisterModule(TLDModulePascal.Create, True);
    51     RegisterModule(TLDModuleBrainfuck.Create, True);
    52     RegisterModule(TLDModuleDebug.Create, True);
    53     RegisterModule(TLDModuleBasic.Create, True);
     49    RegisterModule(TLDModuleProject.Create(nil), True);
     50    RegisterModule(TLDModulePascal.Create(nil), True);
     51    RegisterModule(TLDModuleBrainfuck.Create(nil), True);
     52    RegisterModule(TLDModuleDebug.Create(nil), True);
     53    RegisterModule(TLDModuleBasic.Create(nil), True);
    5454    InstallMarked;
    5555  end;

  • trunk/StudioModules/LDModuleBasic/LDModuleBasic.lpk

    r16 r18  
    88      <PathDelim Value="\"/>
    99      <SearchPaths>
    10         <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\"/>
     10        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    1111      </SearchPaths>
    1212      <Other>
    … …  
    3434      <Item2>
    3535        <PackageName Value="LDStudioCommon"/>
     36        <DefaultFilename Value="..\..\StudioCommon\LDStudioCommon.lpk" Prefer="True"/>
    3637      </Item2>
    3738      <Item3>

  • trunk/StudioModules/LDModuleBasic/ULDModuleBasic.pas

    r17 r18  
    4545    TextFileType: TSourceType;
    4646    TextFileTemplate: TTemplateText;
    47     constructor Create; override;
     47    constructor Create(Owner: TComponent); override;
    4848    procedure Install; override;
    4949    procedure Uninstall; override;
    … …  
    107107{ TLDModuleBasic }
    108108
    109 constructor TLDModuleBasic.Create;
     109constructor TLDModuleBasic.Create(Owner: TComponent);
    110110begin
    111   inherited Create;
     111  inherited;
    112112  Identification := 'Basic';
    113113  Title := SBasic;

  • trunk/StudioModules/LDModuleBrainfuck/ULDModuleBrainfuck.pas

    r16 r18  
    1616    BFFileType: TSourceType;
    1717  public
    18     constructor Create; override;
     18    constructor Create(Owner: TComponent); override;
    1919    procedure Install; override;
    2020    procedure Uninstall; override;
    … …  
    3232{ TLDModuleBrainfuck }
    3333
    34 constructor TLDModuleBrainfuck.Create;
     34constructor TLDModuleBrainfuck.Create(Owner: TComponent);
    3535begin
    36   inherited Create;
     36  inherited;
    3737  Identification := 'Brainfuck';
    3838  Title := SBrainfuck;

  • trunk/StudioModules/LDModuleDebug/ULDModuleDebug.pas

    r14 r18  
    2222    MenuItemViewFormCPU: TMenuItem;
    2323    MenuItemViewFormMemory: TMenuItem;
    24     constructor Create; override;
     24    constructor Create(Owner: TComponent); override;
    2525    procedure Install; override;
    2626    procedure Uninstall; override;
    … …  
    4242{ TLDModuleDebug }
    4343
    44 constructor TLDModuleDebug.Create;
     44constructor TLDModuleDebug.Create(Owner: TComponent);
    4545begin
    46   inherited Create;
     46  inherited;
    4747  Identification := 'Debug';
    4848  Title := SDebug;

  • trunk/StudioModules/LDModulePascal/ULDModulePascal.pas

    r16 r18  
    5252    ProjectTemplateUnit: TProjectTemplateUnit;
    5353  public
    54     constructor Create; override;
     54    constructor Create(Owner: TComponent); override;
    5555    procedure Install; override;
    5656    procedure Uninstall; override;
    … …  
    7777{ TLDModulePascal }
    7878
    79 constructor TLDModulePascal.Create;
    80 begin
    81   inherited Create;
     79constructor TLDModulePascal.Create(Owner: TComponent);
     80begin
     81  inherited;
    8282  Identification := 'Pascal';
    8383  Title := SPascal;

  • trunk/StudioModules/LDModuleProject/ULDModuleProject.pas

    r17 r18  
    5959    ProjectFileType: TSourceType;
    6060  public
    61     constructor Create; override;
     61    constructor Create(Owner: TComponent); override;
    6262    procedure Install; override;
    6363    procedure Uninstall; override;
    … …  
    124124procedure TDataModuleProject.LoadFromRegistry(Context: TRegistryContext);
    125125begin
    126   LastOpenedList1.LoadFromRegistry(Context.RootKey, Context.Key + '\RecentFile');
     126  LastOpenedList1.LoadFromRegistry(RegContext(Context.RootKey, Context.Key + '\RecentFile'));
    127127end;
    128128
    129129procedure TDataModuleProject.SaveToRegistry(Context: TRegistryContext);
    130130begin
    131   LastOpenedList1.SaveToRegistry(Context.RootKey, Context.Key + '\RecentFile');
     131  LastOpenedList1.SaveToRegistry(RegContext(Context.RootKey, Context.Key + '\RecentFile'));
    132132end;
    133133
    … …  
    165165{ TLDModuleProject }
    166166
    167 constructor TLDModuleProject.Create;
    168 begin
    169   inherited Create;
     167constructor TLDModuleProject.Create(Owner: TComponent);
     168begin
     169  inherited;
    170170  Identification := 'Project';
    171171  Title := SProject;

  • trunk/StudioPackage/Forms/UFormMain.lfm

    r15 r18  
    55  Width = 747
    66  Caption = 'LibreDevelop Studio'
    7   ClientHeight = 501
     7  ClientHeight = 495
    88  ClientWidth = 747
    99  Menu = MainMenu
    … …  
    1616  object StatusBar1: TStatusBar
    1717    Left = 0
    18     Height = 20
    19     Top = 481
     18    Height = 21
     19    Top = 474
    2020    Width = 747
    2121    Panels = <>
    … …  
    2727    Width = 747
    2828    Caption = 'ToolBar1'
    29     Images = DataModule1.ImageListMain
    3029    TabOrder = 1
    3130    object ToolButton1: TToolButton
    … …  
    5453  object PageControlRight: TPageControl
    5554    Left = 547
    56     Height = 350
     55    Height = 343
    5756    Top = 26
    5857    Width = 200
    … …  
    6362  object PageControlLeft: TPageControl
    6463    Left = 0
    65     Height = 350
     64    Height = 343
    6665    Top = 26
    6766    Width = 200
    … …  
    7372    Left = 0
    7473    Height = 105
    75     Top = 376
     74    Top = 369
    7675    Width = 747
    7776    Align = alBottom
    … …  
    8079  object Splitter1: TSplitter
    8180    Left = 200
    82     Height = 350
     81    Height = 343
    8382    Top = 26
    8483    Width = 5
    … …  
    8685  object Splitter2: TSplitter
    8786    Left = 542
    88     Height = 350
     87    Height = 343
    8988    Top = 26
    9089    Width = 5
    … …  
    9493  object PageControlCenter: TPageControl
    9594    Left = 205
    96     Height = 350
     95    Height = 343
    9796    Top = 26
    9897    Width = 337
    … …  
    101100  end
    102101  object MainMenu: TMainMenu
    103     Images = DataModule1.ImageListMain
    104102    left = 80
    105103    top = 48
    … …  
    225223  end
    226224  object ActionListMain: TActionList
    227     Images = DataModule1.ImageListMain
    228225    left = 80
    229226    top = 104
    … …  
    394391  end
    395392  object PopupMenuRecentFiles: TPopupMenu
    396     Images = DataModule1.ImageListMain
    397393    left = 259
    398394    top = 69

  • trunk/StudioPackage/Forms/UFormMain.pas

    r16 r18  
    266266procedure TFormMain.LoadFromRegistry(Context: TRegistryContext);
    267267begin
    268   LastOpenedList1.LoadFromRegistry(Context.RootKey, Context.Key + '\RecentFiles');
     268  LastOpenedList1.LoadFromRegistry(RegContext(Context.RootKey, Context.Key + '\RecentFiles'));
    269269end;
    270270
    271271procedure TFormMain.SaveToRegistry(Context: TRegistryContext);
    272272begin
    273   LastOpenedList1.SaveToRegistry(Context.RootKey, Context.Key + '\RecentFiles');
     273  LastOpenedList1.SaveToRegistry(RegContext(Context.RootKey, Context.Key + '\RecentFiles'));
    274274end;
    275275
Note: See TracChangeset for help on using the changeset viewer.