From 5c61bf6aaaab64853a28c281090123b35e17ba67 Mon Sep 17 00:00:00 2001 From: paul Date: Fri, 7 Dec 2007 07:14:22 +0000 Subject: [PATCH] lcl: add TBitmap.ReleaseMaskHandle by analogy with TBitmap.ReleaseHandle git-svn-id: trunk@13198 - --- lcl/graphics.pp | 2 ++ lcl/include/bitmap.inc | 6 ++++++ lcl/include/bitmapimage.inc | 6 ++++++ 3 files changed, 14 insertions(+) diff --git a/lcl/graphics.pp b/lcl/graphics.pp index ace9d7a02d..6a1d85977f 100644 --- a/lcl/graphics.pp +++ b/lcl/graphics.pp @@ -1086,6 +1086,7 @@ type procedure FreeHandle; override; procedure FreeMaskHandle; function ReleaseHandle: HBITMAP; + function ReleaseMaskHandle: HBITMAP; function IsEmpty: boolean; function GetPixelFormat: TPixelFormat; public @@ -1198,6 +1199,7 @@ type procedure ReadStream(Stream: TStream; UseSize: boolean; Size: Longint); virtual; procedure WriteStream(Stream: TStream; WriteSize: Boolean); virtual; function ReleaseHandle: HBITMAP; + function ReleaseMaskHandle: HBITMAP; function ReleasePalette: HPALETTE; class function GetFPReaderForFileExt( const FileExtension: string): TFPCustomImageReaderClass; override; diff --git a/lcl/include/bitmap.inc b/lcl/include/bitmap.inc index feebc49640..16950ffd55 100644 --- a/lcl/include/bitmap.inc +++ b/lcl/include/bitmap.inc @@ -1096,6 +1096,12 @@ begin Result := FImage.ReleaseHandle; end; +function TBitmap.ReleaseMaskHandle: HBITMAP; +begin + FreeCanvasContext; + Result := FImage.ReleaseMaskHandle; +end; + function TBitmap.ReleasePalette: HPALETTE; begin // ToDo diff --git a/lcl/include/bitmapimage.inc b/lcl/include/bitmapimage.inc index ba1ed3e29c..d8c906340b 100644 --- a/lcl/include/bitmapimage.inc +++ b/lcl/include/bitmapimage.inc @@ -81,6 +81,12 @@ begin FHandle:=0; end; +function TBitmapImage.ReleaseMaskHandle: HBITMAP; +begin + Result := FMaskHandle; + FMaskHandle := 0; +end; + function TBitmapImage.IsEmpty: boolean; begin Result := (FHandle = 0) and (FDIBHandle = 0)