From 49a1b828cc4d922eb28a8a62e9201e76aca502ea Mon Sep 17 00:00:00 2001
From: Steven Kamradt <skamradt67@gmail.com>
Date: Fri, 24 Nov 2023 08:26:09 -0600
Subject: [PATCH] Update tb2kdiff.txt

Add support for drawing disabled images from TSVGIconImageList properly.
---
 TB2K Patch/tb2kdiff.txt | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/TB2K Patch/tb2kdiff.txt b/TB2K Patch/tb2kdiff.txt
index 422fd98..be5ed56 100644
--- a/TB2K Patch/tb2kdiff.txt	
+++ b/TB2K Patch/tb2kdiff.txt	
@@ -351,6 +351,19 @@
 +        end;
 +      end;
 +    end
++    // special case for TSVGIconImageList (also uses RTTI)
++    else
++      if (ImageList.ClassName = 'TSVGIconImageList') then begin
++        if enabled then
++          ImageList.Draw(ACanvas, ARect.Left, ARect.Top, ImageIndex)
++        else
++          begin
++            RttiC := TRttiContext.Create;
++            // Paint disabled
++            RTTIC.GetType(ImageList.ClassType).GetMethod('PaintTo').Invoke(
++              ImageList,[ACanvas,ImageIndex,ARect.Left,ARect.Top,ARect.Width,aRect.Height,False]);
++          end;
++      end
 +    else
 +    {$IFEND}
 +      // For older versions of Delphi