Changeset 11 for trunk/Packages/Kernel/UGraphics.pas

Timestamp:

Aug 29, 2016, 6:09:30 PM (8 years ago)

Author:

chronos

Message:

• Modified: Slightly optimizied screen drawing.

File:

• trunk/Packages/Kernel/UGraphics.pas (modified) (3 diffs)

trunk/Packages/Kernel/UGraphics.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Contnrs;
+  Classes, SysUtils, fgl;
 
 type
@@ -43 +43 @@
 
   TDesktop = class
-    Objects: TObjectList; // TList<TGraphicObject>
+    Objects: TFPGObjectList<TGraphicObject>;
     procedure Paint;
     constructor Create;
@@ -88 +88 @@
 constructor TDesktop.Create;
 begin
-  Objects := TObjectList.Create;
+  Objects := TFPGObjectList<TGraphicObject>.Create;
 end;