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

LCL: removed not implemented methods TCustomImageList GetIcon and GetImages

Browse Source 
git-svn-id: trunk@14019 -
This commit is contained in:
mattias 2008-02-07 18:42:06 +00:00
parent 79666bf74b
commit b72236c15c
2 changed files with 0 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/imglist.pp
View File

@ -143,7 +143,6 @@ type
procedure SetWidth(const Value: Integer);
protected
procedure CheckIndex(AIndex: Integer; AForInsert: Boolean = False);
procedure GetImages(Index: Integer; const Image, Mask: TBitmap);
function GetReferenceHandle: THandle; override;
procedure Initialize; virtual;
procedure DefineProperties(Filer: TFiler); override;
@ -184,7 +183,6 @@ type
var ImageRect: TRect);
{$endif}
function GetHotSpot: TPoint; virtual;
procedure GetIcon(Index: Integer; Image: TIcon);
procedure Insert(AIndex: Integer; AImage, AMask: TBitmap);
procedure InsertIcon(Index: Integer; Image: TIcon);

31
lcl/include/imglist.inc
View File

@ -611,37 +611,6 @@ begin
Result := Point(0, 0);
end;
{------------------------------------------------------------------------------
Method: TCustomImageList.GetIcon
Params: Index: the index of the requested image
Image: an icon as a container for the bitmap
Returns: Nothing
Fetches the index'th image into an icon.
------------------------------------------------------------------------------}
procedure TCustomImageList.GetIcon(Index: Integer; Image: TIcon);
begin
if (Index < 0) or (Index >= FCount)
then raise EInvalidOperation.Create(SInvalidIndex);
//No Icon Support yet
end;
{------------------------------------------------------------------------------
Method: TCustomImageList.GetImages
Params: Index: the index of the requested image
Image: a bitmap as a container for the bitmap
Mask: a bitmap as a container for the mask
Returns: Nothing
Fetches the index'th image and mask into a bitmap.
------------------------------------------------------------------------------}
procedure TCustomImageList.GetImages(Index: Integer; const Image, Mask: TBitmap);
begin
{$note implement}
end;
{------------------------------------------------------------------------------
Method: TCustomImageList.Initialize
Params: None