Changeset 18 for trunk/StudioModules


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/StudioModules
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • 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;
Note: See TracChangeset for help on using the changeset viewer.