Changeset 521 for GraphicTest/Packages/bgrabitmap/bgraspritegl.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/bgraspritegl.pas (modified) (11 diffs)

GraphicTest

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

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

GraphicTest/Packages/bgrabitmap/bgraspritegl.pas

@@ -32 +32 @@
     function GetLayer: Integer; virtual; abstract;
     function GetLocation: TPointF; virtual;
+    function GetVisible: Boolean; virtual;
     function GetW: Single; virtual; abstract;
     function GetX: Single; virtual; abstract;
@@ -46 +47 @@
     procedure SetLocation(AValue: TPointF); virtual;
     procedure SetW(AValue: Single); virtual; abstract;
+    procedure SetVisible({%H-}AValue: boolean); virtual;
     procedure SetX(AValue: Single); virtual; abstract;
     procedure SetY(AValue: Single); virtual; abstract;
@@ -54 +56 @@
     destructor Destroy; override;
     procedure OnDraw; virtual;
-    procedure OnElapse(AElapsedMs: integer); virtual;
+    procedure OnElapse({%H-}AElapsedMs: integer); virtual;
     procedure OnTimer; virtual;
     procedure QueryDestroy; virtual; abstract;
@@ -71 +73 @@
     property HorizontalAlign: TAlignment read GetHorizontalAlign write SetHorizontalAlign;
     property VerticalAlign: TTextLayout read GetVerticalAlign write SetVerticalAlign;
+    property Visible : Boolean read GetVisible write SetVisible;
     property Texture : IBGLTexture read GetTexture;
     property Handle  : Pointer read GetHandle;
@@ -86 +89 @@
     FQueryDestroy: boolean;
     FLayer: integer;
+    FHidden: boolean;
     function GetHorizontalAlign: TAlignment; override;
     function GetVerticalAlign: TTextLayout; override;
@@ -97 +101 @@
     function GetH: Single; override;
     function GetLayer: Integer; override;
+    function GetVisible: Boolean; override;
     function GetW: Single; override;
     function GetX: Single; override;
@@ -107 +112 @@
     procedure SetH(AValue: Single); override;
     procedure SetLayer(AValue: Integer); override;
+    procedure SetVisible(AValue: boolean); override;
     procedure SetW(AValue: Single); override;
     procedure SetX(AValue: Single); override;
@@ -342 +348 @@
 end;
 
+function TBGLDefaultSprite.GetVisible: Boolean;
+begin
+  Result:= not FHidden;
+end;
+
 function TBGLDefaultSprite.GetW: Single;
 begin
@@ -390 +401 @@
 begin
   FLayer:= AValue;
+end;
+
+procedure TBGLDefaultSprite.SetVisible(AValue: boolean);
+begin
+  FHidden := not AValue;
 end;
 
@@ -487 +503 @@
 end;
 
+function TBGLCustomSprite.GetVisible: Boolean;
+begin
+  result := true;
+end;
+
 procedure TBGLCustomSprite.SetLocation(AValue: TPointF);
 begin
   X := AValue.X;
   Y := AValue.Y;
+end;
+
+procedure TBGLCustomSprite.SetVisible(AValue: boolean);
+begin
+  raise ENotImplemented.Create('Not implemented in base class');
 end;
 
@@ -536 +562 @@
 var NumFrame: integer;
 begin
-  if Texture <> nil then
+  if Visible and (Texture <> nil) then
     begin
       NumFrame := Trunc(Frame+0.5);

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