Changeset 11 for trunk/Packages


Ignore:
Timestamp:
Aug 29, 2016, 6:09:30 PM (8 years ago)
Author:
chronos
Message:
  • Modified: Slightly optimizied screen drawing.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/Kernel/UGraphics.pas

    r8 r11  
    66
    77uses
    8   Classes, SysUtils, Contnrs;
     8  Classes, SysUtils, fgl;
    99
    1010type
     
    4343
    4444  TDesktop = class
    45     Objects: TObjectList; // TList<TGraphicObject>
     45    Objects: TFPGObjectList<TGraphicObject>;
    4646    procedure Paint;
    4747    constructor Create;
     
    8888constructor TDesktop.Create;
    8989begin
    90   Objects := TObjectList.Create;
     90  Objects := TFPGObjectList<TGraphicObject>.Create;
    9191end;
    9292
Note: See TracChangeset for help on using the changeset viewer.