Extended TfpgImage with a new CreateDisabledImage() method.

This uses the new GrayScale Filter to create a grayscale image.

1 files changed, 9 insertions, 1 deletions

diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas
index 9c15760f..8bcda3fc 100644
--- a/src/corelib/fpg_main.pas
+++ b/src/corelib/fpg_main.pas
@@ -143,6 +143,7 @@ type
 
   TfpgImage = class(TfpgImageImpl)
   public
+    function    CreateDisabledImage: TfpgImage;
     function    ImageFromSource: TfpgImage;
     function    ImageFromRect(var ARect: TRect): TfpgImage; overload;
     function    ImageFromRect(var ARect: TfpgRect): TfpgImage; overload;
@@ -400,7 +401,8 @@ uses
   fpg_hint,
   fpg_extgraphics,
   fpg_utils,
-  fpg_cmdlineparams;
+  fpg_cmdlineparams,
+  fpg_imgutils;
 
 var
   fpgTimers: TList;
@@ -2088,6 +2090,12 @@ end;
 
 { TfpgImage }
 
+function TfpgImage.CreateDisabledImage: TfpgImage;
+begin
+  Result := ImageFromSource;
+  fpgApplyGreyFilter(Result);
+end;
+
 function TfpgImage.ImageFromSource: TfpgImage;
 var
   x, y: TfpgCoord;