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

trunk/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ExtCtrls, Menus, ActnList, UKernel, UMemory, UDevice, UPlatformBase, LCLType;
+  ExtCtrls, Menus, ActnList, UKernel, UMemory, UDevice, UPlatformBase, LCLType,
+  UGraphics;
 
 type
@@ -88 +89 @@
   VideoDevice.OnRedraw := VideoDeviceRedraw;
   VideoDevice.DPI := Screen.PixelsPerInch;
-  VideoDevice.VideoMemorySize := Point(PaintBox1.Width, PaintBox1.Height);
+  VideoDevice.VideoMemorySize := TPoint.Create(PaintBox1.Width, PaintBox1.Height);
   VideoDevice.OnModeChanged := VideoDeviceRedraw;
   Kernel.Devices.Add(VideoDevice);
@@ -156 +157 @@
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin
-  Kernel.Free;
+  FreeAndNil(Kernel);
 end;