Changeset 16 for trunk/StudioModules


Ignore:
Timestamp:
Aug 6, 2012, 3:16:26 PM (12 years ago)
Author:
chronos
Message:
  • Modified: Definition of text source file moved to new package Basic.
Location:
trunk/StudioModules
Files:
8 added
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/StudioModules/LDModuleBrainfuck/LDModuleBrainfuck.lpk

    r7 r16  
    88      <PathDelim Value="\"/>
    99      <SearchPaths>
    10         <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\"/>
     10        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    1111      </SearchPaths>
    1212      <Other>
    … …  
    2828    </Files>
    2929    <Type Value="RunAndDesignTime"/>
    30     <RequiredPkgs Count="2">
     30    <RequiredPkgs Count="3">
    3131      <Item1>
    32         <PackageName Value="LDStudioCommon"/>
     32        <PackageName Value="LDModuleBasic"/>
    3333      </Item1>
    3434      <Item2>
     35        <PackageName Value="LDStudioCommon"/>
     36      </Item2>
     37      <Item3>
    3538        <PackageName Value="FCL"/>
    36       </Item2>
     39      </Item3>
    3740    </RequiredPkgs>
    3841    <UsageOptions>

  • trunk/StudioModules/LDModuleBrainfuck/UBrainfuckCode.pas

    r15 r16  
    2727  end;
    2828
     29
    2930implementation
     31
     32uses
     33  ULDModuleBasic;
    3034
    3135{ TSourceBrainFuck }

  • trunk/StudioModules/LDModuleBrainfuck/ULDModuleBrainfuck.pas

    r11 r16  
    3939  Version := '0.1';
    4040  License := 'GNU/LGPLv3';
     41  Dependencies.Add('Basic');
    4142end;
    4243

  • trunk/StudioModules/LDModulePascal/ULDModulePascal.pas

    r15 r16  
    3737  end;
    3838
     39  { TPascalSourceType }
     40
     41  TPascalSourceType = class(TSourceType)
     42    constructor Create; override;
     43  end;
     44
    3945  { TLDModulePascal }
    4046
    4147  TLDModulePascal = class(TModule)
    4248  private
    43     PasFileType: TSourceType;
     49    PasFileType: TPascalSourceType;
    4450    ProjectTemplateConsoleApp: TProjectTemplateConsoleApp;
    4551    ProjectTemplateGUIApp: TProjectTemplateGUIApp;
    … …  
    5561
    5662uses
    57   ULDStudioAPI;
     63  ULDStudioAPI, ULDModuleBasic;
    5864
    5965resourcestring
    6066  SPascal = 'Pascal';
     67
     68{ TPascalSourceType }
     69
     70constructor TPascalSourceType.Create;
     71begin
     72  inherited Create;
     73  Extension := '.pas';
     74  Title := 'Pascal source';
     75end;
    6176
    6277{ TLDModulePascal }
    … …  
    7489begin
    7590  with TLDStudioAPI(API) do begin
    76     PasFileType := TSourceType.Create;
    77     PasFileType.Extension := '.pas';
    78     PasFileType.Title := 'Pascal source';
     91    PasFileType := TPascalSourceType.Create;
    7992    RegisterFileType(PasFileType);
    8093    ProjectTemplateConsoleApp := TProjectTemplateConsoleApp.Create;
    … …  
    125138  Result := TSourceText.Create;
    126139  Result.Name := 'Unit1.pas';
    127   with TSourceText(Result).Content do begin
     140  with TSourceText(Result), Content do begin
    128141    Add('unit Unit1;');
    129142    Add('');
    … …  
    133146    Add('');
    134147    Add('end.');
     148    Loaded := True;
    135149  end;
    136150end;

  • trunk/StudioModules/LDModuleProject/LDModuleProject.lpk

    r15 r16  
    3737    </i18n>
    3838    <Type Value="RunAndDesignTime"/>
    39     <RequiredPkgs Count="3">
     39    <RequiredPkgs Count="4">
    4040      <Item1>
    41         <PackageName Value="Common"/>
     41        <PackageName Value="LDModuleBasic"/>
    4242      </Item1>
    4343      <Item2>
    44         <PackageName Value="LDStudioCommon"/>
     44        <PackageName Value="Common"/>
    4545      </Item2>
    4646      <Item3>
     47        <PackageName Value="LDStudioCommon"/>
     48      </Item3>
     49      <Item4>
    4750        <PackageName Value="FCL"/>
    48       </Item3>
     51      </Item4>
    4952    </RequiredPkgs>
    5053    <UsageOptions>

  • trunk/StudioModules/LDModuleProject/ULDModuleProject.pas

    r15 r16  
    172172  Version := '0.1';
    173173  License := 'GNU/LGPLv3';
     174  Dependencies.Add('Basic');
    174175end;
    175176
Note: See TracChangeset for help on using the changeset viewer.