Changeset 13 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (2 diffs)
• UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 565
+  Left = 566
   Height = 687
-  Top = 259
+  Top = 262
   Width = 932
   Caption = 'Screen 1 - ChronOS'
@@ -12 +12 @@
   OnKeyDown = FormKeyDown
   OnShow = FormShow
-  LCLVersion = '1.6.0.4'
+  LCLVersion = '1.6.4.0'
   object PaintBox1: TPaintBox
     Left = 0

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;