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

lcl: free shareimage image when FreeImage is called in TCustomBitmap. This allows to change PixelFormat to desired.

Browse Source 
git-svn-id: trunk@31469 -
This commit is contained in:
paul 2011-06-30 07:08:29 +00:00
parent 0ac2f35d4e
commit 59684c6edd
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/graphics.pp
View File

@ -1299,7 +1299,7 @@ type
procedure Clear; override;
procedure BeginUpdate(ACanvasOnly: Boolean = False);
procedure EndUpdate(AStreamIsValid: Boolean = False);
procedure FreeImage;
procedure FreeImage; virtual;
function BitmapHandleAllocated: boolean; virtual; abstract;
function MaskHandleAllocated: boolean; virtual; abstract;
function PaletteAllocated: boolean; virtual; abstract;
@ -1398,8 +1398,8 @@ type
public
constructor Create; override;
destructor Destroy; override;
procedure Clear; override;
procedure FreeImage; override;
function GetResourceType: TResourceType; override;
function LazarusResourceTypeValid(const ResourceType: string): Boolean; override;
function BitmapHandleAllocated: boolean; override;

6
lcl/include/custombitmap.inc
View File

@ -45,6 +45,12 @@ begin
inherited Clear;
end;
procedure TCustomBitmap.FreeImage;
begin
inherited FreeImage;
TSharedCustomBitmap(FSharedImage).FreeImage;
end;
constructor TCustomBitmap.Create;
begin
inherited Create;