Ignore:
Timestamp:
Nov 29, 2023, 2:35:44 PM (6 months ago)
Author:
chronos
Message:
  • Modified: HighDpi branch updated to trunk version.
File:
1 moved

Legend:

Unmodified
Added
Removed

  • branches/highdpi/Packages/CevoComponents/GraphicSet.pas

    r462 r463  
    1 unit UGraphicSet;
     1unit GraphicSet;
    22
    33interface
    44
    55uses
    6   UDpiControls, Classes, SysUtils, Graphics, fgl, LCLType, UPixelPointer, DOM, XMLRead,
    7   XMLWrite, UXMLUtils;
     6  UDpiControls, Classes, SysUtils, Graphics, Generics.Collections, LCLType, DOM,
     7  XMLRead, XMLWrite, XML;
    88
    99type
    … …  
    3131  { TGraphicSetItems }
    3232
    33   TGraphicSetItems = class(TFPGObjectList<TGraphicSetItem>)
     33  TGraphicSetItems = class(TObjectList<TGraphicSetItem>)
    3434    GraphicSet: TGraphicSet;
    3535    function SearchByName(Name: string): TGraphicSetItem;
    … …  
    5555  end;
    5656
     57  TGraphicSetClass = class of TGraphicSet;
     58
    5759  { TGraphicSets }
    5860
    59   TGraphicSets = class(TFPGObjectList<TGraphicSet>)
     61  TGraphicSets = class(TObjectList<TGraphicSet>)
    6062    function SearchByName(Name: string): TGraphicSet;
    6163    function AddNew(Name: string): TGraphicSet;
    … …  
    9193procedure TGraphicSetItem.DrawTo(Canvas: TDpiCanvas; Pos: TPoint);
    9294begin
    93 {  DpiBitCanvas(Canvas, Pos.X, Pos.Y, BoundsRect.Width, BoundsRect.Height,
     95{  DpiBitBltCanvas(Canvas, Pos.X, Pos.Y, BoundsRect.Width, BoundsRect.Height,
    9496    GraphicSet.Mask.Canvas, BoundsRect.Left, BoundsRect.Top, SRCAND);
    95   DpiBitCanvas(Canvas, Pos.X, Pos.Y, BoundsRect.Width, BoundsRect.Height,
     97  DpiBitBltCanvas(Canvas, Pos.X, Pos.Y, BoundsRect.Width, BoundsRect.Height,
    9698    GraphicSet.Data.Canvas, BoundsRect.Left, BoundsRect.Top, SRCPAINT);
    9799}
    … …  
    270272end.
    271273
     274
     275
Note: See TracChangeset for help on using the changeset viewer.