Changeset 5 for os/trunk/lddesktop.dpr


Ignore:
Timestamp:
Jun 2, 2013, 2:34:55 PM (11 years ago)
Author:
chronos
Message:
  • Added: Implemented sample desktop manager as simple application.
Location:
os/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • os/trunk

    • Property svn:ignore
      •  

        old new  
        11Win32
        22*.~dsk
         3__history
  • os/trunk/lddesktop.dpr

    r3 r5  
    44  Vcl.Forms,
    55  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',
    126  Driver.VideoVCL in 'Drivers\Driver.VideoVCL.pas',
    137  Driver.SystemVCL in 'Drivers\Driver.SystemVCL.pas',
    148  Driver.KeyboardVCL in 'Drivers\Driver.KeyboardVCL.pas',
    159  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';
    1719
    1820{$R *.res}
     
    2426  DriverKeyboard: TDriver;
    2527  DriverMouse: TDriver;
    26   TestApplication: TApplication;
     28  DesktopApp: TDesktopApp;
    2729begin
     30  ReportMemoryLeaksOnShutdown := DebugHook <> 0;
    2831  Kernel := TKernel.Create;
    2932  DriverSystem := TDriverSystemVCL.Create;
     
    3942  DriverMouse.Kernel := Kernel;
    4043  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);
    4447  Kernel.Boot;
    4548  Kernel.Destroy;
Note: See TracChangeset for help on using the changeset viewer.