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

lcl: TCustomIcon.Transparent is always true now

Browse Source 
git-svn-id: trunk@15631 -
This commit is contained in:
paul 2008-07-01 00:18:29 +00:00
parent cfa52d2e20
commit 542dac1b27
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/graphics.pp
View File

@ -1457,6 +1457,7 @@ type
function GetPixelFormat: TPixelFormat; override;
function GetRawImage: PRawImage; override;
function GetRawImageDescription: PRawImageDescription; override;
function GetTransparent: Boolean; override;
class function GetSharedImageClass: TSharedRasterImageClass; override;
procedure HandleNeeded; override;
function InternalReleaseBitmapHandle: HBITMAP; override;
@ -1465,6 +1466,7 @@ type
procedure ReadData(Stream: TStream); override;
procedure ReadStream(AStream: TMemoryStream; ASize: Longint); override;
procedure SetPixelFormat(AValue: TPixelFormat); override;
procedure SetTransparent(Value: Boolean); override;
procedure UnshareImage(CopyContent: boolean); override;
procedure UpdateCurrentView;
function UpdateHandles(ABitmap, AMask: HBITMAP): Boolean; override;

10
lcl/include/icon.inc
View File

@ -386,6 +386,11 @@ begin
else Result := @TIconImage(TSharedIcon(FSharedImage).FImages[FCurrent]).FImage.Description;
end;
function TCustomIcon.GetTransparent: Boolean;
begin
Result := True;
end;
class function TCustomIcon.GetSharedImageClass: TSharedRasterImageClass;
begin
Result := TSharedIcon;
@ -705,6 +710,11 @@ begin
raise EInvalidGraphicOperation.Create('Cannot change format of icon image');
end;
procedure TCustomIcon.SetTransparent(Value: Boolean);
begin
// nothing
end;
procedure TCustomIcon.SetSize(AWidth, AHeight: integer);
begin
raise EInvalidGraphicOperation.Create('Cannot change size of icon image');