From 6a2b68eda3ea3c333692a076600d60a1a509276e Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 3 Nov 2009 13:11:38 +0000 Subject: [PATCH] reduced warnings git-svn-id: trunk@22404 - --- components/codetools/expreval.pas | 2 +- components/synedit/syneditmousecmds.pp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/components/codetools/expreval.pas b/components/codetools/expreval.pas index a31c8632a9..4ae474e36c 100644 --- a/components/codetools/expreval.pas +++ b/components/codetools/expreval.pas @@ -70,7 +70,7 @@ type property Count: integer read FCount; procedure Undefine(const Name: string); function IsDefined(const Name: string): boolean; - function Equals(AnExpressionEvaluator: TExpressionEvaluator): boolean; + function Equals(AnExpressionEvaluator: TExpressionEvaluator): boolean; reintroduce; procedure Assign(SourceExpressionEvaluator: TExpressionEvaluator); procedure AssignTo(SL: TStringList); function Eval(const Expression: string):string; diff --git a/components/synedit/syneditmousecmds.pp b/components/synedit/syneditmousecmds.pp index 0fbd1c56a3..af4dda774d 100644 --- a/components/synedit/syneditmousecmds.pp +++ b/components/synedit/syneditmousecmds.pp @@ -170,7 +170,7 @@ type function Add: TSynEditMouseAction; procedure Assign(Source: TPersistent); override; procedure AssertNoConflict(MAction: TSynEditMouseAction); - function Equals(Other: TSynEditMouseActions): Boolean; + function Equals(Other: TSynEditMouseActions): Boolean; reintroduce; function FindCommand(AnInfo: TSynEditMouseActionInfo; APrevious: TSynEditMouseAction = nil): TSynEditMouseAction; procedure ResetDefaults; virtual;