Changeset 521 for GraphicTest/Packages/bgrabitmap/bgrawinbitmap.pas

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:

• . (modified) (1 prop)
• Packages/bgrabitmap/bgrawinbitmap.pas (modified) (3 diffs)

GraphicTest

@@ -8 +8 @@
 GraphicTest.lps
 GraphicTest.dbg
+heaptrclog.trc

@@ -8 +8 @@
 GraphicTest.lps
 GraphicTest.dbg
+heaptrclog.trc

GraphicTest/Packages/bgrabitmap/bgrawinbitmap.pas

@@ -53 +53 @@
   public
     procedure LoadFromBitmapIfNeeded; override;
-    procedure Draw(ACanvas: TCanvas; x, y: integer; Opaque: boolean=True); override;
-    procedure Draw(ACanvas: TCanvas; Rect: TRect; Opaque: boolean = True); override;
-    procedure DataDrawOpaque(ACanvas: TCanvas; Rect: TRect; AData: Pointer;
+    procedure Draw(ACanvas: TCanvas; x, y: integer; Opaque: boolean=True); overload; override;
+    procedure Draw(ACanvas: TCanvas; Rect: TRect; Opaque: boolean = True); overload; override;
+    procedure DataDrawOpaque(ACanvas: TCanvas; ARect: TRect; AData: Pointer;
       ALineOrder: TRawImageLineOrder; AWidth, AHeight: integer); override;
     procedure GetImageFromCanvas(CanvasSource: TCanvas; x, y: integer); override;
@@ -183 +183 @@
 end;
 
-procedure TBGRAWinBitmap.DataDrawOpaque(ACanvas: TCanvas; Rect: TRect;
+procedure TBGRAWinBitmap.DataDrawOpaque(ACanvas: TCanvas; ARect: TRect;
   AData: Pointer; ALineOrder: TRawImageLineOrder; AWidth, AHeight: integer);
 var
@@ -206 +206 @@
 
   info := DIBitmapInfo(AWidth, AHeight);
-  StretchDIBits(ACanvas.Handle, Rect.Left, Rect.Top, Rect.Right -
-    Rect.Left, Rect.Bottom - Rect.Top,
+  StretchDIBits(ACanvas.Handle, ARect.Left, ARect.Top, ARect.Right -
+    ARect.Left, ARect.Bottom - ARect.Top,
     0, 0, AWidth, AHeight, AData, info, DIB_RGB_COLORS, SRCCOPY);
 

@@ -8 +8 @@
 GraphicTest.lps
 GraphicTest.dbg
+heaptrclog.trc