Changeset 5 for os/trunk/lddesktop.dpr
- Timestamp:
- Jun 2, 2013, 2:34:55 PM (11 years ago)
- Location:
- os/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
os/trunk
- Property svn:ignore
-
old new 1 1 Win32 2 2 *.~dsk 3 __history
-
- Property svn:ignore
-
os/trunk/lddesktop.dpr
r3 r5 4 4 Vcl.Forms, 5 5 UFormMain in 'UFormMain.pas' {Form1}, 6 Xvcl.Controls in 'Xvcl.Controls.pas',7 TestApplication in 'Applications\TestApplication.pas',8 Xvcl.Classes in 'Xvcl.Classes.pas',9 Xvcl.Graphics in 'Xvcl.Graphics.pas',10 Xvcl.Forms in 'Xvcl.Forms.pas',11 Xvcl.Kernel in 'Xvcl.Kernel.pas',12 6 Driver.VideoVCL in 'Drivers\Driver.VideoVCL.pas', 13 7 Driver.SystemVCL in 'Drivers\Driver.SystemVCL.pas', 14 8 Driver.KeyboardVCL in 'Drivers\Driver.KeyboardVCL.pas', 15 9 Driver.MouseVCL in 'Drivers\Driver.MouseVCL.pas', 16 Xvcl.Generics in 'Xvcl.Generics.pas'; 10 Xvcl.Classes in 'Xvcl\Xvcl.Classes.pas', 11 Xvcl.Controls in 'Xvcl\Xvcl.Controls.pas', 12 Xvcl.Forms in 'Xvcl\Xvcl.Forms.pas', 13 Xvcl.Generics in 'Xvcl\Xvcl.Generics.pas', 14 Xvcl.Graphics in 'Xvcl\Xvcl.Graphics.pas', 15 LDOS.Kernel in 'System\LDOS.Kernel.pas', 16 LDOS.Task in 'System\LDOS.Task.pas', 17 TestApplication in 'Applications\TestApplication.pas', 18 UDesktop in 'Applications\UDesktop.pas'; 17 19 18 20 {$R *.res} … … 24 26 DriverKeyboard: TDriver; 25 27 DriverMouse: TDriver; 26 TestApplication: TApplication;28 DesktopApp: TDesktopApp; 27 29 begin 30 ReportMemoryLeaksOnShutdown := DebugHook <> 0; 28 31 Kernel := TKernel.Create; 29 32 DriverSystem := TDriverSystemVCL.Create; … … 39 42 DriverMouse.Kernel := Kernel; 40 43 Kernel.Drivers.Add(DriverMouse); 41 TestApplication := TTestApplication.Create;42 TestApplication.Screen := Kernel.Screen;43 Kernel.StartOnBoot.Add( TestApplication);44 DesktopApp := TDesktopApp.Create; 45 DesktopApp.Screen := Kernel.Screen; 46 Kernel.StartOnBoot.Add(DesktopApp); 44 47 Kernel.Boot; 45 48 Kernel.Destroy;
Note:
See TracChangeset
for help on using the changeset viewer.