Changeset 5
- Timestamp:
- Aug 2, 2012, 3:23:38 PM (12 years ago)
- Location:
- trunk
- Files:
-
- 22 added
- 2 deleted
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Studio/LibreDevelopStudio.lpi
r4 r5 33 33 </local> 34 34 </RunParams> 35 <RequiredPackages Count=" 2">35 <RequiredPackages Count="3"> 36 36 <Item1> 37 <PackageName Value="L ibreDevelopStudio"/>37 <PackageName Value="LDModuleDebug"/> 38 38 </Item1> 39 39 <Item2> 40 <PackageName Value="LibreDevelopStudio"/> 41 </Item2> 42 <Item3> 40 43 <PackageName Value="LCL"/> 41 </Item 2>44 </Item3> 42 45 </RequiredPackages> 43 46 <Units Count="2"> -
trunk/Studio/LibreDevelopStudio.lpr
r4 r5 17 17 Application.CreateForm(TCore, Core); 18 18 Application.CreateForm(TDataModule1, DataModule1); 19 Core.Init; 19 20 Application.Run; 20 21 end. -
trunk/Studio/UCore.lfm
r1 r5 1 1 object Core: TCore 2 OnCreate = DataModuleCreate 3 OnDestroy = DataModuleDestroy 2 4 OldCreateOrder = False 3 5 Height = 251 -
trunk/Studio/UCore.pas
r1 r5 1 1 unit UCore; 2 2 3 {$mode objfpc}{$H+}3 {$mode delphi}{$H+} 4 4 5 5 interface 6 6 7 7 uses 8 Classes, SysUtils, FileUtil ;8 Classes, SysUtils, FileUtil, UModularSystem, ULDStudioAPI; 9 9 10 10 type 11 12 { TCore } 13 11 14 TCore = class(TDataModule) 15 procedure DataModuleCreate(Sender: TObject); 16 procedure DataModuleDestroy(Sender: TObject); 12 17 private 13 { private declarations }18 procedure RegisterModules; 14 19 public 15 { public declarations } 20 ModuleManager: TModuleManager; 21 API: TLDStudioAPI; 22 procedure Init; 16 23 end; 17 24 … … 23 30 {$R *.lfm} 24 31 32 uses 33 ULDModuleDebug, UFormMain; 34 35 { TCore } 36 37 procedure TCore.DataModuleCreate(Sender: TObject); 38 begin 39 API := TLDStudioAPI.Create; 40 ModuleManager := TModuleManager.Create(nil); 41 ModuleManager.API := API; 42 end; 43 44 procedure TCore.DataModuleDestroy(Sender: TObject); 45 begin 46 FreeAndNil(ModuleManager); 47 FreeAndNil(API); 48 end; 49 50 procedure TCore.RegisterModules; 51 begin 52 ModuleManager.RegisterModule(TLDModuleDebug.Create, True); 53 ModuleManager.InstallMarked; 54 end; 55 56 procedure TCore.Init; 57 begin 58 TLDStudioAPI(ModuleManager.API).MainForm := FormMain; 59 TLDStudioAPI(ModuleManager.API).MainMenu := FormMain.MainMenu1; 60 RegisterModules; 61 end; 62 25 63 end. 26 64 -
trunk/StudioPackage/Forms/UFormMain.lfm
r4 r5 5 5 Width = 747 6 6 Caption = 'LibreDevelop Studio' 7 ClientHeight = 4957 ClientHeight = 501 8 8 ClientWidth = 747 9 9 Menu = MainMenu1 … … 12 12 object StatusBar1: TStatusBar 13 13 Left = 0 14 Height = 2 115 Top = 4 7414 Height = 20 15 Top = 481 16 16 Width = 747 17 17 Panels = <> … … 48 48 object PageControl1: TPageControl 49 49 Left = 547 50 Height = 3 4350 Height = 350 51 51 Top = 26 52 52 Width = 200 … … 62 62 object PageControl2: TPageControl 63 63 Left = 0 64 Height = 3 4364 Height = 350 65 65 Top = 26 66 66 Width = 200 … … 77 77 Left = 0 78 78 Height = 105 79 Top = 3 6979 Top = 376 80 80 Width = 747 81 81 ActivePage = TabSheet3 … … 89 89 object Splitter1: TSplitter 90 90 Left = 200 91 Height = 3 4391 Height = 350 92 92 Top = 26 93 93 Width = 5 … … 95 95 object Splitter2: TSplitter 96 96 Left = 542 97 Height = 3 4397 Height = 350 98 98 Top = 26 99 99 Width = 5 … … 103 103 object PageControl4: TPageControl 104 104 Left = 205 105 Height = 3 43105 Height = 350 106 106 Top = 26 107 107 Width = 337 -
trunk/StudioPackage/LibreDevelopStudio.lpk
r4 r5 51 51 </i18n> 52 52 <Type Value="RunAndDesignTime"/> 53 <RequiredPkgs Count=" 4">53 <RequiredPkgs Count="5"> 54 54 <Item1> 55 <PackageName Value=" synedit"/>55 <PackageName Value="LDStudioCommon"/> 56 56 </Item1> 57 57 <Item2> 58 <PackageName Value=" TemplateGenerics"/>58 <PackageName Value="synedit"/> 59 59 </Item2> 60 60 <Item3> 61 <PackageName Value=" LCL"/>61 <PackageName Value="TemplateGenerics"/> 62 62 </Item3> 63 63 <Item4> 64 <PackageName Value="LCL"/> 65 </Item4> 66 <Item5> 64 67 <PackageName Value="FCL"/> 65 </Item 4>68 </Item5> 66 69 </RequiredPkgs> 67 70 <UsageOptions>
Note:
See TracChangeset
for help on using the changeset viewer.