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

reduced warnings

Browse Source 
git-svn-id: trunk@22404 -
This commit is contained in:
mattias 2009-11-03 13:11:38 +00:00
parent 2cd414bcbd
commit 6a2b68eda3
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/expreval.pas
View File

@ -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;

2
components/synedit/syneditmousecmds.pp
View File

@ -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;