Changeset 18 for trunk/StudioModules
- Timestamp:
- Sep 5, 2012, 8:53:56 PM (12 years ago)
- Location:
- trunk/StudioModules
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/StudioModules/LDModuleBasic/LDModuleBasic.lpk
r16 r18 8 8 <PathDelim Value="\"/> 9 9 <SearchPaths> 10 <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS) \"/>10 <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> 11 11 </SearchPaths> 12 12 <Other> … … 34 34 <Item2> 35 35 <PackageName Value="LDStudioCommon"/> 36 <DefaultFilename Value="..\..\StudioCommon\LDStudioCommon.lpk" Prefer="True"/> 36 37 </Item2> 37 38 <Item3> -
trunk/StudioModules/LDModuleBasic/ULDModuleBasic.pas
r17 r18 45 45 TextFileType: TSourceType; 46 46 TextFileTemplate: TTemplateText; 47 constructor Create ; override;47 constructor Create(Owner: TComponent); override; 48 48 procedure Install; override; 49 49 procedure Uninstall; override; … … 107 107 { TLDModuleBasic } 108 108 109 constructor TLDModuleBasic.Create ;109 constructor TLDModuleBasic.Create(Owner: TComponent); 110 110 begin 111 inherited Create;111 inherited; 112 112 Identification := 'Basic'; 113 113 Title := SBasic; -
trunk/StudioModules/LDModuleBrainfuck/ULDModuleBrainfuck.pas
r16 r18 16 16 BFFileType: TSourceType; 17 17 public 18 constructor Create ; override;18 constructor Create(Owner: TComponent); override; 19 19 procedure Install; override; 20 20 procedure Uninstall; override; … … 32 32 { TLDModuleBrainfuck } 33 33 34 constructor TLDModuleBrainfuck.Create ;34 constructor TLDModuleBrainfuck.Create(Owner: TComponent); 35 35 begin 36 inherited Create;36 inherited; 37 37 Identification := 'Brainfuck'; 38 38 Title := SBrainfuck; -
trunk/StudioModules/LDModuleDebug/ULDModuleDebug.pas
r14 r18 22 22 MenuItemViewFormCPU: TMenuItem; 23 23 MenuItemViewFormMemory: TMenuItem; 24 constructor Create ; override;24 constructor Create(Owner: TComponent); override; 25 25 procedure Install; override; 26 26 procedure Uninstall; override; … … 42 42 { TLDModuleDebug } 43 43 44 constructor TLDModuleDebug.Create ;44 constructor TLDModuleDebug.Create(Owner: TComponent); 45 45 begin 46 inherited Create;46 inherited; 47 47 Identification := 'Debug'; 48 48 Title := SDebug; -
trunk/StudioModules/LDModulePascal/ULDModulePascal.pas
r16 r18 52 52 ProjectTemplateUnit: TProjectTemplateUnit; 53 53 public 54 constructor Create ; override;54 constructor Create(Owner: TComponent); override; 55 55 procedure Install; override; 56 56 procedure Uninstall; override; … … 77 77 { TLDModulePascal } 78 78 79 constructor TLDModulePascal.Create ;80 begin 81 inherited Create;79 constructor TLDModulePascal.Create(Owner: TComponent); 80 begin 81 inherited; 82 82 Identification := 'Pascal'; 83 83 Title := SPascal; -
trunk/StudioModules/LDModuleProject/ULDModuleProject.pas
r17 r18 59 59 ProjectFileType: TSourceType; 60 60 public 61 constructor Create ; override;61 constructor Create(Owner: TComponent); override; 62 62 procedure Install; override; 63 63 procedure Uninstall; override; … … 124 124 procedure TDataModuleProject.LoadFromRegistry(Context: TRegistryContext); 125 125 begin 126 LastOpenedList1.LoadFromRegistry( Context.RootKey, Context.Key + '\RecentFile');126 LastOpenedList1.LoadFromRegistry(RegContext(Context.RootKey, Context.Key + '\RecentFile')); 127 127 end; 128 128 129 129 procedure TDataModuleProject.SaveToRegistry(Context: TRegistryContext); 130 130 begin 131 LastOpenedList1.SaveToRegistry( Context.RootKey, Context.Key + '\RecentFile');131 LastOpenedList1.SaveToRegistry(RegContext(Context.RootKey, Context.Key + '\RecentFile')); 132 132 end; 133 133 … … 165 165 { TLDModuleProject } 166 166 167 constructor TLDModuleProject.Create ;168 begin 169 inherited Create;167 constructor TLDModuleProject.Create(Owner: TComponent); 168 begin 169 inherited; 170 170 Identification := 'Project'; 171 171 Title := SProject;
Note:
See TracChangeset
for help on using the changeset viewer.