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

LCL: Return TSharedCustomBitmap as shared image class. TCustomBitmap assumes this as a descendant

Browse Source
This commit is contained in:
Marc 2021-10-12 22:14:21 +02:00
parent 9233efadf0
commit 4918dc89b0
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/graphics.pp
View File

@ -1368,6 +1368,7 @@ type
function GetPixelFormat: TPixelFormat; override; function GetPixelFormat: TPixelFormat; override;
function GetRawImagePtr: PRawImage; override; function GetRawImagePtr: PRawImage; override;
function GetRawImageDescriptionPtr: PRawImageDescription; override; function GetRawImageDescriptionPtr: PRawImageDescription; override;
class function GetSharedImageClass: TSharedRasterImageClass; override;
procedure HandleNeeded; override; procedure HandleNeeded; override;
function InternalReleaseBitmapHandle: HBITMAP; override; function InternalReleaseBitmapHandle: HBITMAP; override;
function InternalReleaseMaskHandle: HBITMAP; override; function InternalReleaseMaskHandle: HBITMAP; override;

4
lcl/include/custombitmap.inc
View File

@ -503,4 +503,8 @@ begin
Result := @TSharedCustomBitmap(FSharedImage).FImage.Description; Result := @TSharedCustomBitmap(FSharedImage).FImage.Description;
end; end;
class function TCustomBitmap.GetSharedImageClass: TSharedRasterImageClass;
begin
Result := TSharedCustomBitmap;
end;