From c7c643a472e695dec4b9d2ff4337966aa1a8d089 Mon Sep 17 00:00:00 2001 From: Juha Date: Thu, 22 Feb 2024 13:36:09 +0200 Subject: [PATCH] LCL: Restore Handle to TCustomImageList. --- lcl/imglist.pp | 2 ++ lcl/include/imglist.inc | 5 +++++ 2 files changed, 7 insertions(+) diff --git a/lcl/imglist.pp b/lcl/imglist.pp index 10abc11353..5e61c2c0d6 100644 --- a/lcl/imglist.pp +++ b/lcl/imglist.pp @@ -291,6 +291,7 @@ type procedure SetMasked(const AValue: boolean); procedure SetShareImages(const AValue: Boolean); procedure SetWidth(const Value: Integer); + function GetHandle: TLCLHandle; function GetReference(AImageWidth: Integer): TWSCustomImageListReference; function GetReferenceForPPI(AImageWidth, APPI: Integer): TWSCustomImageListReference; function GetResolutionForPPI(AImageWidth, APPI: Integer; @@ -401,6 +402,7 @@ type property BkColor: TColor read FBkColor write SetBkColor default clNone; property Count: Integer read GetCount; property DrawingStyle: TDrawingStyle read FDrawingStyle write SetDrawingStyle default dsNormal; + property Handle: TLCLHandle read GetHandle; property Height: Integer read FHeight write SetHeight default 16; property HeightForPPI[AImageWidth, APPI: Integer]: Integer read GetHeightForPPI; property HeightForWidth[AWidth: Integer]: Integer read GetHeightForWidth; diff --git a/lcl/include/imglist.inc b/lcl/include/imglist.inc index abfce5fbad..f2b7cdcfec 100644 --- a/lcl/include/imglist.inc +++ b/lcl/include/imglist.inc @@ -2174,6 +2174,11 @@ begin for nIndex := 0 to Count - 1 do TChangeLink(Items[nIndex]).Change end; +function TCustomImageList.GetHandle: TLCLHandle; +begin + Result := ResolutionByIndex[0].Reference.Handle; +end; + {------------------------------------------------------------------------------ Method: TCustomImageList.WriteDefData Params: AStream: The stream to write the data to