paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 23:35:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: added CompareMethods

Browse Source 
git-svn-id: trunk@22165 -
This commit is contained in:
mattias 2009-10-14 08:58:17 +00:00
parent c91e24b39a
commit f9bf52235e
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/lclproc.pas
View File

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