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

lcl: define TImageList.Equals for 2.4.3

Browse Source 
git-svn-id: trunk@26768 -
This commit is contained in:
paul 2010-07-22 02:12:20 +00:00
parent b17733e749
commit 692a85e7f1
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/imglist.pp
View File

@ -158,7 +158,7 @@ type
procedure WriteData(AStream: TStream); virtual;
procedure ReadData(AStream: TStream); virtual;
function Equals(Obj: TObject): boolean;
{$if not (defined(ver2_2_2) or defined(ver2_2_0))}{$IF FPC_FULLVERSION>20500}override;{$ENDIF}{$ENDIF}
{$if not (defined(ver2_2_2) or defined(ver2_2_0))}{$IF FPC_FULLVERSION>20402}override;{$ENDIF}{$ENDIF}
procedure BeginUpdate;
procedure EndUpdate;

2
lcl/include/imglist.inc
View File

@ -1199,7 +1199,7 @@ begin
end;
end else
{$if not (defined(ver2_2_2) or defined(ver2_2_0))}
{$IF FPC_FULLVERSION>20500}
{$IF FPC_FULLVERSION>20402}
Result:=inherited Equals(Obj);
{$ELSE}
Result:=false;