Changeset 18
- Timestamp:
- Sep 5, 2012, 8:53:56 PM (12 years ago)
- Location:
- trunk
- Files:
-
- 114 added
- 4 deleted
- 10 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Studio/LibreDevelopStudio.lpi
r16 r18 33 33 </local> 34 34 </RunParams> 35 <RequiredPackages Count=" 8">35 <RequiredPackages Count="12"> 36 36 <Item1> 37 <PackageName Value="LDModuleBasic"/> 37 <PackageName Value="ModularSystem"/> 38 <DefaultFilename Value="..\Packages\ModularSystem\ModularSystem.lpk" Prefer="True"/> 38 39 </Item1> 39 40 <Item2> 40 <PackageName Value="LDStudioCommon"/> 41 <PackageName Value="CoolTranslator"/> 42 <DefaultFilename Value="..\Packages\CoolTranslator\CoolTranslator.lpk" Prefer="True"/> 41 43 </Item2> 42 44 <Item3> 43 <PackageName Value="LDModuleProject"/> 45 <PackageName Value="TemplateGenerics"/> 46 <DefaultFilename Value="..\Packages\TemplateGenerics\TemplateGenerics.lpk" Prefer="True"/> 44 47 </Item3> 45 48 <Item4> 46 <PackageName Value="LDModulePascal"/> 49 <PackageName Value="Common"/> 50 <DefaultFilename Value="..\Packages\Common\Common.lpk" Prefer="True"/> 47 51 </Item4> 48 52 <Item5> 49 <PackageName Value="LDModuleBrainfuck"/> 53 <PackageName Value="LDModuleBasic"/> 54 <DefaultFilename Value="..\StudioModules\LDModuleBasic\LDModuleBasic.lpk" Prefer="True"/> 50 55 </Item5> 51 56 <Item6> 52 <PackageName Value="LDModuleDebug"/> 57 <PackageName Value="LDStudioCommon"/> 58 <DefaultFilename Value="..\StudioCommon\LDStudioCommon.lpk" Prefer="True"/> 53 59 </Item6> 54 60 <Item7> 55 <PackageName Value="LibreDevelopStudio"/> 61 <PackageName Value="LDModuleProject"/> 62 <DefaultFilename Value="..\StudioModules\LDModuleProject\LDModuleProject.lpk" Prefer="True"/> 56 63 </Item7> 57 64 <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> 58 81 <PackageName Value="LCL"/> 59 </Item 8>82 </Item12> 60 83 </RequiredPackages> 61 84 <Units Count="2"> -
trunk/Studio/UCore.pas
r16 r18 47 47 begin 48 48 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); 54 54 InstallMarked; 55 55 end; -
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; -
trunk/StudioPackage/Forms/UFormMain.lfm
r15 r18 5 5 Width = 747 6 6 Caption = 'LibreDevelop Studio' 7 ClientHeight = 5017 ClientHeight = 495 8 8 ClientWidth = 747 9 9 Menu = MainMenu … … 16 16 object StatusBar1: TStatusBar 17 17 Left = 0 18 Height = 2 019 Top = 4 8118 Height = 21 19 Top = 474 20 20 Width = 747 21 21 Panels = <> … … 27 27 Width = 747 28 28 Caption = 'ToolBar1' 29 Images = DataModule1.ImageListMain30 29 TabOrder = 1 31 30 object ToolButton1: TToolButton … … 54 53 object PageControlRight: TPageControl 55 54 Left = 547 56 Height = 3 5055 Height = 343 57 56 Top = 26 58 57 Width = 200 … … 63 62 object PageControlLeft: TPageControl 64 63 Left = 0 65 Height = 3 5064 Height = 343 66 65 Top = 26 67 66 Width = 200 … … 73 72 Left = 0 74 73 Height = 105 75 Top = 3 7674 Top = 369 76 75 Width = 747 77 76 Align = alBottom … … 80 79 object Splitter1: TSplitter 81 80 Left = 200 82 Height = 3 5081 Height = 343 83 82 Top = 26 84 83 Width = 5 … … 86 85 object Splitter2: TSplitter 87 86 Left = 542 88 Height = 3 5087 Height = 343 89 88 Top = 26 90 89 Width = 5 … … 94 93 object PageControlCenter: TPageControl 95 94 Left = 205 96 Height = 3 5095 Height = 343 97 96 Top = 26 98 97 Width = 337 … … 101 100 end 102 101 object MainMenu: TMainMenu 103 Images = DataModule1.ImageListMain104 102 left = 80 105 103 top = 48 … … 225 223 end 226 224 object ActionListMain: TActionList 227 Images = DataModule1.ImageListMain228 225 left = 80 229 226 top = 104 … … 394 391 end 395 392 object PopupMenuRecentFiles: TPopupMenu 396 Images = DataModule1.ImageListMain397 393 left = 259 398 394 top = 69 -
trunk/StudioPackage/Forms/UFormMain.pas
r16 r18 266 266 procedure TFormMain.LoadFromRegistry(Context: TRegistryContext); 267 267 begin 268 LastOpenedList1.LoadFromRegistry( Context.RootKey, Context.Key + '\RecentFiles');268 LastOpenedList1.LoadFromRegistry(RegContext(Context.RootKey, Context.Key + '\RecentFiles')); 269 269 end; 270 270 271 271 procedure TFormMain.SaveToRegistry(Context: TRegistryContext); 272 272 begin 273 LastOpenedList1.SaveToRegistry( Context.RootKey, Context.Key + '\RecentFiles');273 LastOpenedList1.SaveToRegistry(RegContext(Context.RootKey, Context.Key + '\RecentFiles')); 274 274 end; 275 275
Note:
See TracChangeset
for help on using the changeset viewer.