Changeset 170 for trunk/UCore.pas

Timestamp:

Nov 23, 2017, 5:02:49 PM (6 years ago)

Author:

chronos

Message:

• Modified: UGeometry unit rewritten to use generics and define own TPoint and TRect types.

File:

• trunk/UCore.pas (modified) (2 diffs)

trunk/UCore.pas

@@ -8 +8 @@
   Classes, SysUtils, XMLConf, FileUtil, ActnList, Controls, Dialogs, Forms,
   UGame, UApplicationInfo, UPersistentForm, UScaleDPI, UCoolTranslator,
-  URegistry, ULastOpenedList, Registry, Menus;
+  URegistry, ULastOpenedList, Registry, Menus, UGeometry;
 
 type
@@ -419 +419 @@
   LastOpenedList1.AddItem(FileName);
   with Core.CurrentClient do
-    View.DestRect := Bounds(0, 0, FormMain.PaintBox1.Width, FormMain.PaintBox1.Height);
+    View.DestRect := TRect.CreateBounds(TPoint.Create(0, 0),
+      TPoint.Create(FormMain.PaintBox1.Width, FormMain.PaintBox1.Height));
   FormMain.AZoomAll.Execute;
   FormMain.Redraw;