paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 12:40:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Restore Handle to TCustomImageList.

Browse Source
This commit is contained in:
Juha 2024-02-22 13:36:09 +02:00
parent 7716068e1a
commit c7c643a472
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/imglist.pp
View File

@ -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;

5
lcl/include/imglist.inc
View File

@ -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