Changeset 13 for trunk/Platform/Base/UPlatformBase.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/Platform/Base/UPlatformBase.pas (modified) (3 diffs)

trunk/Platform/Base/UPlatformBase.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, UFileSystem, UKernel, syncobjs, UThreadEx, UMemory,
-  DateUtils, UDevice, Contnrs, Graphics, Forms, UScreen, UScheduler;
+  DateUtils, UDevice, Contnrs, Graphics, Forms, UScreen, UScheduler, UGraphics;
 
 type
@@ -107 +107 @@
   Modes.Clear;
   NewMode := TVideoMode.Create;
-  NewMode.Size := Point(320, 240);
-  NewMode.ColorFormat := cfRGBA8;
-  Modes.Add(NewMode);
-  NewMode := TVideoMode.Create;
-  NewMode.Size := Point(640, 480);
+  NewMode.Size := TPoint.Create(320, 240);
+  NewMode.ColorFormat := cfRGBA8;
+  Modes.Add(NewMode);
+  NewMode := TVideoMode.Create;
+  NewMode.Size := TPoint.Create(640, 480);
   NewMode.ColorFormat := cfRGBA8;
   Modes.Add(NewMode);
@@ -235 +235 @@
   Task := TBaseTask(inherited AddTask(Name, EntryPoint));
   if Running then Task.Thread.Start;
+  Result := Task;
 end;