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

    r494 r521  
    105105      ANumSegment: integer; dy: single; AData: pointer); override;
    106106  public
    107     constructor Create(const points: array of TPointF; const texCoords: array of TPointF);
    108     constructor Create(const points: array of TPointF; const texCoords: array of TPointF; const lightnesses: array of word);
     107    constructor Create(const points: array of TPointF; const texCoords: array of TPointF); overload;
     108    constructor Create(const points: array of TPointF; const texCoords: array of TPointF; const lightnesses: array of word); overload;
    109109    function CreateSegmentData(numPt,nextPt: integer; x,y: single): pointer; override;
    110110    function CreateIntersectionInfo: TIntersectionInfo; override;
    … …  
    150150      ANumSegment: integer; dy: single; AData: pointer); override;
    151151  public
    152     constructor Create(const points: array of TPointF; const pointsZ: array of single; const texCoords: array of TPointF);
    153     constructor Create(const points: array of TPointF; const pointsZ: array of single; const texCoords: array of TPointF; const lightnesses: array of word);
     152    constructor Create(const points: array of TPointF; const pointsZ: array of single; const texCoords: array of TPointF); overload;
     153    constructor Create(const points: array of TPointF; const pointsZ: array of single; const texCoords: array of TPointF; const lightnesses: array of word); overload;
    154154    function CreateSegmentData(numPt,nextPt: integer; x,y: single): pointer; override;
    155155    function CreateIntersectionInfo: TIntersectionInfo; override;
    … …  
    165165      ANumSegment: integer; dy: single; AData: pointer); override;
    166166  public
    167     constructor Create(const points: array of TPointF; const points3D: array of TPoint3D; const normals: array of TPoint3D; const texCoords: array of TPointF);
    168     constructor Create(const points: array of TPointF; const points3D: array of TPoint3D_128; const normals: array of TPoint3D_128; const texCoords: array of TPointF);
     167    constructor Create(const points: array of TPointF; const points3D: array of TPoint3D; const normals: array of TPoint3D; const texCoords: array of TPointF); overload;
     168    constructor Create(const points: array of TPointF; const points3D: array of TPoint3D_128; const normals: array of TPoint3D_128; const texCoords: array of TPointF); overload;
    169169    function CreateSegmentData(numPt,nextPt: integer; x,y: single): pointer; override;
    170170    function CreateIntersectionInfo: TIntersectionInfo; override;
    … …  
    196196  DX, DY: integer; BorderColor, FillColor: TBGRAPixel; FillTexture: IBGRAScanner = nil; ADrawMode: TDrawMode = dmDrawWithTransparency;
    197197  skipFill: boolean = false);
     198procedure BGRAFillRoundRectAliased(dest: TBGRACustomBitmap; X1, Y1, X2, Y2: integer;
     199  DX, DY: integer; FillColor: TBGRAPixel; FillTexture: IBGRAScanner = nil; ADrawMode: TDrawMode = dmDrawWithTransparency);
    198200
    199201implementation
    200202
    201 uses Math, BGRABlend;
     203uses Math, BGRABlend, BGRAPolygon;
    202204
    203205{ TPolygonPerspectiveColorGradientInfo }
    … …  
    10181020end;
    10191021
     1022procedure BGRAFillRoundRectAliased(dest: TBGRACustomBitmap; X1, Y1, X2,
     1023  Y2: integer; DX, DY: integer; FillColor: TBGRAPixel;
     1024  FillTexture: IBGRAScanner; ADrawMode: TDrawMode);
     1025var
     1026  fi: TFillRoundRectangleInfo;
     1027begin
     1028  fi := TFillRoundRectangleInfo.Create(x1,y1,x2,y2,dx/2,dy/2,[rrDefault],false);
     1029  FillShapeAliased(dest, fi, FillColor, false, FillTexture, true, ADrawMode);
     1030  fi.Free;
     1031end;
     1032
    10201033end.
    10211034
Note: See TracChangeset for help on using the changeset viewer.