diff --git a/lcl/imglist.pp b/lcl/imglist.pp index 8e8707740d..799c42827a 100644 --- a/lcl/imglist.pp +++ b/lcl/imglist.pp @@ -157,7 +157,7 @@ type procedure Assign(Source: TPersistent); override; procedure WriteData(AStream: TStream); virtual; procedure ReadData(AStream: TStream); virtual; - function Equals(Obj: TObject): boolean; {$IFNDEF FPC2_2}override;{$ENDIF} + function Equals(Obj: TObject): boolean; {$IF FPC_FULLVERSION>20500}override;{$ENDIF} procedure BeginUpdate; procedure EndUpdate; diff --git a/lcl/include/imglist.inc b/lcl/include/imglist.inc index 6180f9755f..7382a841aa 100644 --- a/lcl/include/imglist.inc +++ b/lcl/include/imglist.inc @@ -1198,7 +1198,7 @@ begin CurStream.Free; end; end else - {$IFNDEF FPC2_2} + {$IF FPC_FULLVERSION>20500} Result:=inherited Equals(Obj); {$ELSE} Result:=false;