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

removed unneeded TCustomImageList.GetCount

Browse Source 
git-svn-id: trunk@7415 -
This commit is contained in:
mattias 2005-07-24 10:56:27 +00:00
parent fb353c7b49
commit ebd919ca86
2 changed files with 9 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/imglist.pp
View File

@ -136,8 +136,6 @@ type
procedure SetShareImages(const AValue: Boolean);
procedure SetWidth(const Value: Integer);
Function GetCount: Integer;
procedure ShiftImages(const Source: TCanvas; Start, Shift: Integer);
protected
FUpdateCount: integer;
@ -187,7 +185,7 @@ type
property AllocBy: Integer read FAllocBy write FAllocBy default 4;
property BlendColor: TColor read FBlendColor write FBlendColor default clNone;
property BkColor: TColor read FBkColor write SetBkColor default clNone;
property Count: Integer read GetCount;
property Count: Integer read FCount;
property DrawingStyle: TDrawingStyle read FDrawingStyle write SetDrawingStyle default dsNormal;
property Handle: THandle read FHandle;
property Height: Integer read FHeight write SetHeight default 16;
@ -219,6 +217,9 @@ end.
{
$Log$
Revision 1.27 2005/07/24 10:56:27 mattias
removed unneeded TCustomImageList.GetCount
Revision 1.26 2005/07/24 08:08:58 mattias
fixed updating FCount in TCustomImageList.Insert/Delete

21
lcl/include/imglist.inc
View File

@ -410,8 +410,8 @@ begin
FMaskBitmap:=nil;
for i:=0 to FImageList.Count-1 do TObject(FImageList[i]).Free;
for i:=0 to FMaskList.Count-1 do TObject(FMaskList[i]).Free;
FreeThenNil(FImageList); //shane
FreeThenNil(FMaskList); //shane
FreeThenNil(FImageList);
FreeThenNil(FMaskList);
inherited Destroy;
FChangeLinkList.Free;
FChangeLinkList:=nil;
@ -487,20 +487,6 @@ begin
ImageRect:=Rect(0,0,Image.Width,Image.Height);
end;
{------------------------------------------------------------------------------
Method: TCustomImageList.GetCount
Params:
Returns: Count
Returns the number of images.
------------------------------------------------------------------------------}
Function TCustomImageList.GetCount : Integer;
begin
Result := FImageList.Count;
FCount := Result;
end;
{------------------------------------------------------------------------------
Function: TCustomImageList.GetHotspot
Params: None
@ -1203,6 +1189,9 @@ end;
{
$Log$
Revision 1.44 2005/07/24 10:56:27 mattias
removed unneeded TCustomImageList.GetCount
Revision 1.43 2005/07/24 08:08:58 mattias
fixed updating FCount in TCustomImageList.Insert/Delete