Changeset 13 for trunk/Packages/Kernel/UKernel.pas

Timestamp:

Sep 25, 2017, 2:48:08 PM (7 years ago)

Author:

chronos

Message:

• Added: Drawing relative to Canvas. In case of Window drawing relative to Window.
• Modified: Use custom TPoint and TRectangle if possible.

File:

• trunk/Packages/Kernel/UKernel.pas (modified) (5 diffs)

trunk/Packages/Kernel/UKernel.pas

@@ -6 +6 @@
 
 uses
-  Classes, Math, SysUtils, UList, Contnrs, UFileSystem, UMemory, UScreen, UDevice,
-  fgl, UApp, UScheduler, UApi;
+  Classes, SysUtils, UList, Contnrs, UFileSystem, UMemory, UScreen, UDevice,
+  fgl, UApp, UScheduler, UApi, UGraphics;
 
 type
@@ -37 +37 @@
     Devices: TNamedObjectList<TDevice>;
     Screens: TFPGObjectList<TScreen>;
+    Desktop: TDesktop;
     procedure AppExecute(AFile: TFile);
     procedure Init;
     procedure Run;
+    procedure Terminate;
     constructor Create;
     destructor Destroy; override;
@@ -84 +86 @@
       NewScreen.BytesPerLine := VideoMode.GetBytesPerLine;
       NewScreen.Device := VideoDevice;
+      NewScreen.Canvas := TScreenCanvas.Create;
+      TScreenCanvas(NewScreen.Canvas).Screen := NewScreen;
       Screens.Add(NewScreen);
     end;
@@ -150 +154 @@
 end;
 
+procedure TKernel.Terminate;
+begin
+  if Scheduler.Running then Scheduler.Stop;
+end;
+
 constructor TKernel.Create;
 begin
@@ -159 +168 @@
   Api := TKernelApi.Create;
   Api.Kernel := Self;
+  Desktop := TDesktop.Create;
 end;
 
 destructor TKernel.Destroy;
 begin
+  Terminate;
+  FreeAndNil(Desktop);
   FreeAndNil(Api);
   FreeAndNil(Screens);