Ignore:
Timestamp:
Apr 17, 2019, 12:58:41 AM (5 years ago)
Author:
chronos
Message:
  • Modified: Propagate project build mode options to used packages.
  • Added: Check memory leaks using heaptrc.
  • Modified: Update BGRABitmap package.
Location:
GraphicTest
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • GraphicTest

    • Property svn:ignore

      •  

        old new  
        88GraphicTest.lps
        99GraphicTest.dbg
         10heaptrclog.trc

  • GraphicTest/Packages/bgrabitmap/bgraslicescaling.pas

    r494 r521  
    6666    // or as a local owned copy in other cases
    6767    constructor Create(ABitmap: TBGRABitmap;
    68       AMarginTop, AMarginRight, AMarginBottom, AMarginLeft: integer; ABitmapOwner: boolean = false);
     68      AMarginTop, AMarginRight, AMarginBottom, AMarginLeft: integer; ABitmapOwner: boolean = false); overload;
    6969    constructor Create(ABitmap: TBitmap;
    70       AMarginTop, AMarginRight, AMarginBottom, AMarginLeft: integer);
     70      AMarginTop, AMarginRight, AMarginBottom, AMarginLeft: integer); overload;
    7171    constructor Create(AFilename: string;
    72       AMarginTop, AMarginRight, AMarginBottom, AMarginLeft: integer);
     72      AMarginTop, AMarginRight, AMarginBottom, AMarginLeft: integer); overload;
    7373    constructor Create(AFilename: string; AIsUtf8: boolean;
    74       AMarginTop, AMarginRight, AMarginBottom, AMarginLeft: integer);
     74      AMarginTop, AMarginRight, AMarginBottom, AMarginLeft: integer); overload;
    7575    constructor Create(AStream: TStream;
    76       AMarginTop, AMarginRight, AMarginBottom, AMarginLeft: integer);
    77     constructor Create(ABitmap: TBGRABitmap; ABitmapOwner: boolean = false);
    78     constructor Create(ABitmap: TBitmap);
    79     constructor Create(AFilename: string);
    80     constructor Create(AFilename: string; AIsUtf8: boolean);
    81     constructor Create(AStream: TStream);
    82     constructor Create;
    83     procedure SetMargins(AMarginTop, AMarginRight, AMarginBottom, AMarginLeft: integer);
    84     procedure SetMargins(AMargins: TMargins);
     76      AMarginTop, AMarginRight, AMarginBottom, AMarginLeft: integer); overload;
     77    constructor Create(ABitmap: TBGRABitmap; ABitmapOwner: boolean = false); overload;
     78    constructor Create(ABitmap: TBitmap); overload;
     79    constructor Create(AFilename: string); overload;
     80    constructor Create(AFilename: string; AIsUtf8: boolean); overload;
     81    constructor Create(AStream: TStream); overload;
     82    constructor Create; overload;
     83    procedure SetMargins(AMarginTop, AMarginRight, AMarginBottom, AMarginLeft: integer); overload;
     84    procedure SetMargins(AMargins: TMargins); overload;
    8585    destructor Destroy; override;
    8686  public
    … …  
    8888    //so new bitmaps should be used
    8989    // Draw
    90     procedure Draw(ABitmap: TBGRABitmap; ARect: TRect; DrawGrid: boolean = False);
     90    procedure Draw(ABitmap: TBGRABitmap; ARect: TRect; DrawGrid: boolean = False); overload;
    9191    procedure Draw(ABitmap: TBGRABitmap; ALeft, ATop, AWidth, AHeight: integer;
    92       DrawGrid: boolean = False);
     92      DrawGrid: boolean = False); overload;
    9393    procedure AutodetectRepeat;
    9494  public
    … …  
    124124    constructor Create(ABitmap: TBGRABitmap;
    125125      AMarginTop, AMarginRight, AMarginBottom, AMarginLeft, NumberOfItems: integer;
    126       Direction: TSliceScalingDirection; ABitmapOwner: boolean = false);
     126      Direction: TSliceScalingDirection; ABitmapOwner: boolean = false); overload;
    127127    constructor Create(ABitmap: TBitmap;
    128128      AMarginTop, AMarginRight, AMarginBottom, AMarginLeft, NumberOfItems: integer;
    129       Direction: TSliceScalingDirection);
     129      Direction: TSliceScalingDirection); overload;
    130130    constructor Create(ABitmapFilename: string;
    131131      AMarginTop, AMarginRight, AMarginBottom, AMarginLeft, NumberOfItems: integer;
    132       Direction: TSliceScalingDirection);
     132      Direction: TSliceScalingDirection); overload;
    133133    constructor Create(ABitmapFilename: string; AIsUtf8: boolean;
    134134      AMarginTop, AMarginRight, AMarginBottom, AMarginLeft, NumberOfItems: integer;
    135       Direction: TSliceScalingDirection);
     135      Direction: TSliceScalingDirection); overload;
    136136    constructor Create(AStream: TStream;
    137137      AMarginTop, AMarginRight, AMarginBottom, AMarginLeft, NumberOfItems: integer;
    138       Direction: TSliceScalingDirection);
     138      Direction: TSliceScalingDirection); overload;
    139139    destructor Destroy; override;
    140     constructor Create(AIniFilename, ASection: string; AIsUtf8Filename: boolean= false);
     140    constructor Create(AIniFilename, ASection: string; AIsUtf8Filename: boolean= false); overload;
    141141  public
    142142    procedure Draw(ItemNumber: integer; ABitmap: TBGRABitmap;
    143       ARect: TRect; DrawGrid: boolean = False);
     143      ARect: TRect; DrawGrid: boolean = False); overload;
    144144    procedure Draw(ItemNumber: integer; ABitmap: TBGRABitmap;
    145       ALeft, ATop, AWidth, AHeight: integer; DrawGrid: boolean = False);
     145      ALeft, ATop, AWidth, AHeight: integer; DrawGrid: boolean = False); overload;
    146146  public
    147147    property SliceScalingArray: TSliceScalingArray
Note: See TracChangeset for help on using the changeset viewer.