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

* removed old (nonworking) compatebility code

Browse Source 
git-svn-id: trunk@15772 -
This commit is contained in:
marc 2008-07-13 21:04:30 +00:00
parent ebd4d40039
commit e8e5ebb797
2 changed files with 0 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/imglist.pp
View File

@ -178,10 +178,6 @@ type
procedure GetBitmap(Index: Integer; Image: TBitmap); overload;
procedure GetBitmap(Index: Integer; Image: TBitmap; AEffect: TGraphicsDrawEffect); overload;
procedure GetRawImage(Index: Integer; out Image: TRawImage);
{$ifdef IMGLIST_KEEP_EXTRA}
procedure GetInternalImage(Index: integer; var Image, Mask: TBitmap;
var ImageRect: TRect);
{$endif}
function GetHotSpot: TPoint; virtual;
procedure Insert(AIndex: Integer; AImage, AMask: TCustomBitmap);
@ -203,10 +199,6 @@ type
property Width: Integer read FWidth write SetWidth default 16;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
property Masked: boolean read FMasked write SetMasked;
{$ifdef IMGLIST_KEEP_EXTRA}
property Bitmap: TBitmap read FBitmap;
property MaskBitmap: TBitmap read FMaskBitmap;
{$endif}
property Reference: TWSCustomImageListReference read GetReference;
property ShareImages: Boolean read FShareImages write SetShareImages;
property ImageType: TImageType read FImageType write FImageType default itImage;

18
lcl/include/imglist.inc
View File

@ -582,24 +582,6 @@ begin
Result := FReference.Handle;
end;
{------------------------------------------------------------------------------
procedure TCustomImageList.GetInternalImage(Index: integer; var Image,
Mask: TBitmap);
Returns the bitmaps of the n-th image. The Imagelist can combine several
images into one bitmap (plus one mask), therefore ImageRect contains the
bounds of the n-th image on the bitmap.
------------------------------------------------------------------------------}
{$ifdef IMGLIST_KEEP_EXTRA}
procedure TCustomImageList.GetInternalImage(Index: integer; var Image,
Mask: TBitmap; var ImageRect: TRect);
begin
Image:=TBitmap(FImageList[Index]);
Mask:=TBitmap(FMaskList[Index]);
ImageRect:=Rect(0,0,Image.Width,Image.Height);
end;
{$endif}
{------------------------------------------------------------------------------
Function: TCustomImageList.GetHotspot
Params: None