From f9bf52235e2caeafd7857802dc30879d49f771a5 Mon Sep 17 00:00:00 2001 From: mattias Date: Wed, 14 Oct 2009 08:58:17 +0000 Subject: [PATCH] lcl: added CompareMethods git-svn-id: trunk@22165 - --- lcl/lclproc.pas | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lcl/lclproc.pas b/lcl/lclproc.pas index afa1e88352..c7eb1390fc 100644 --- a/lcl/lclproc.pas +++ b/lcl/lclproc.pas @@ -171,7 +171,7 @@ function CompareHandles(h1, h2: THandle): integer; function CompareLCLHandles(h1, h2: TLCLHandle): integer; function CompareRect(R1, R2: PRect): Boolean; function ComparePoints(const p1, p2: TPoint): integer; - +function CompareMethods(const m1, m2: TMethod): boolean; function RoundToInt(const e: Extended): integer; function RoundToCardinal(const e: Extended): cardinal; @@ -1815,6 +1815,11 @@ begin Result:=0; end; +function CompareMethods(const m1, m2: TMethod): boolean; +begin + Result:=(m1.Code=m2.Code) and (m1.Data=m2.Data); +end; + function RoundToInt(const e: Extended): integer; begin Result:=integer(Round(e));