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/bgrafilterblur.pas

    r494 r521  
    3232  public
    3333    constructor Create(bmp: TBGRACustomBitmap; ABounds: TRect; radius: single;
    34                        blurType: TRadialBlurType);
     34                       blurType: TRadialBlurType); overload;
    3535    constructor Create(bmp: TBGRACustomBitmap; ABounds: TRect; radiusX,radiusY: single;
    36                        blurType: TRadialBlurType);
     36                       blurType: TRadialBlurType); overload;
    3737  protected
    3838    procedure DoExecute; override;
    … …  
    5757
    5858procedure FilterBlur(bmp: TBGRACustomBitmap; ABounds: TRect;
    59    blurMask: TBGRACustomBitmap; ADestination: TBGRACustomBitmap; ACheckShouldStop: TCheckShouldStopFunc); forward;
     59   blurMask: TBGRACustomBitmap; ADestination: TBGRACustomBitmap; ACheckShouldStop: TCheckShouldStopFunc); forward; overload;
    6060procedure FilterBlurMotion(bmp: TBGRACustomBitmap; ABounds: TRect; distance: single;
    61   angle: single; oriented: boolean; ADestination: TBGRACustomBitmap; ACheckShouldStop: TCheckShouldStopFunc); forward;
     61  angle: single; oriented: boolean; ADestination: TBGRACustomBitmap; ACheckShouldStop: TCheckShouldStopFunc); forward; overload;
    6262procedure FilterBlurRadial(bmp: TBGRACustomBitmap; ABounds: TRect; radiusX,radiusY: single;
    63   blurType: TRadialBlurType; ADestination: TBGRACustomBitmap; ACheckShouldStop: TCheckShouldStopFunc); forward;
     63  blurType: TRadialBlurType; ADestination: TBGRACustomBitmap; ACheckShouldStop: TCheckShouldStopFunc); forward; overload;
    6464
    6565type
    … …  
    7171    FRadiusX,FRadiusY: single;
    7272  public
    73     constructor Create(bmp: TBGRACustomBitmap; ABounds: TRect; radius: single);
    74     constructor Create(bmp: TBGRACustomBitmap; ABounds: TRect; radiusX,radiusY: single);
     73    constructor Create(bmp: TBGRACustomBitmap; ABounds: TRect; radius: single); overload;
     74    constructor Create(bmp: TBGRACustomBitmap; ABounds: TRect; radiusX,radiusY: single); overload;
    7575  protected
    7676    {$IFNDEF CPU64}
    … …  
    310310
    311311procedure FilterBlurRadial(bmp: TBGRACustomBitmap; ABounds: TRect; radius: single;
    312   blurType: TRadialBlurType; ADestination: TBGRACustomBitmap; ACheckShouldStop: TCheckShouldStopFunc);
     312  blurType: TRadialBlurType; ADestination: TBGRACustomBitmap; ACheckShouldStop: TCheckShouldStopFunc); overload;
    313313begin
    314314  if radius = 0 then
    … …  
    347347end;
    348348
    349 function FilterBlurRadial(bmp: TBGRACustomBitmap; radius: single;
    350   blurType: TRadialBlurType): TBGRACustomBitmap;
     349function FilterBlurRadial(bmp: TBGRACustomBitmap; radius: single; blurType: TRadialBlurType): TBGRACustomBitmap;  overload;
    351350begin
    352351  if blurType = rbBox then
    … …  
    361360
    362361function FilterBlurRadial(bmp: TBGRACustomBitmap; radiusX: single;
    363   radiusY: single; blurType: TRadialBlurType): TBGRACustomBitmap;
     362  radiusY: single; blurType: TRadialBlurType): TBGRACustomBitmap; overload;
    364363begin
    365364  if blurType = rbBox then
    … …  
    374373
    375374function CreateRadialBlurTask(ABmp: TBGRACustomBitmap; ABounds: TRect; ARadius: single;
    376   ABlurType: TRadialBlurType): TFilterTask;
     375  ABlurType: TRadialBlurType): TFilterTask; overload;
    377376begin
    378377  if ABlurType = rbBox then
    … …  
    383382
    384383function CreateRadialBlurTask(ABmp: TBGRACustomBitmap; ABounds: TRect;
    385   ARadiusX, ARadiusY: single; ABlurType: TRadialBlurType): TFilterTask;
     384  ARadiusX, ARadiusY: single; ABlurType: TRadialBlurType): TFilterTask; overload;
    386385begin
    387386  if ABlurType = rbBox then
    … …  
    432431
    433432function FilterBlurMotion(bmp: TBGRACustomBitmap; distance: single;
    434   angle: single; oriented: boolean): TBGRACustomBitmap;
     433  angle: single; oriented: boolean): TBGRACustomBitmap;  overload;
    435434begin
    436435  result := bmp.NewBitmap(bmp.Width,bmp.Height);
    … …  
    463462end;
    464463
    465 function FilterBlur(bmp: TBGRACustomBitmap; blurMask: TBGRACustomBitmap): TBGRACustomBitmap;
     464function FilterBlur(bmp: TBGRACustomBitmap; blurMask: TBGRACustomBitmap): TBGRACustomBitmap; overload;
    466465begin
    467466  result := bmp.NewBitmap(bmp.Width,bmp.Height);
Note: See TracChangeset for help on using the changeset viewer.