mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-20 08:03:37 +02:00
52 lines
1.8 KiB
PHP
52 lines
1.8 KiB
PHP
{ TBitmapImage
|
|
|
|
*****************************************************************************
|
|
* *
|
|
* This file is part of the Lazarus Component Library (LCL) *
|
|
* *
|
|
* See the file COPYING.LCL, included in this distribution, *
|
|
* for details about the copyright. *
|
|
* *
|
|
* This program is distributed in the hope that it will be useful, *
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
|
* *
|
|
*****************************************************************************
|
|
}
|
|
|
|
destructor TBitmapImage.Destroy;
|
|
begin
|
|
if FDIBHandle <> 0 then
|
|
begin
|
|
//TODO:write this function
|
|
//DeselectBitmap(FDIBHandle);
|
|
DeleteObject(FDIBHandle);
|
|
FDIBHandle := 0;
|
|
end;
|
|
FreeHandle;
|
|
//TODO Write CLoseHandle
|
|
//if FDIB.dshSection <> 0 then CloseHandle(FDIB.dshSection);
|
|
inherited Destroy;
|
|
end;
|
|
|
|
procedure TBitmapImage.FreeHandle;
|
|
begin
|
|
if (FHandle <> 0) and (FHandle <> FDIBHandle) then
|
|
begin
|
|
//TODO: Once written, remove comment below
|
|
//DeselectBitmap(FHandle);
|
|
DeleteObject(FHandle);
|
|
end;
|
|
if FMaskHandle <> 0 then
|
|
begin
|
|
//TODO: Once written, remove comment below
|
|
//DeselectBitmap(FMaskHandle);
|
|
DeleteObject(FMaskHandle);
|
|
FMaskHandle := 0;
|
|
end;
|
|
//TODO: Once written, remove comment below
|
|
//InternalDeletePalette(FPalette);
|
|
FHandle := 0;
|
|
FPalette := 0;
|
|
end;
|