From 80f32f0ac93a603725de1bdfed862a1600f788ab Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sun, 5 May 2019 15:48:42 +0000
Subject: [PATCH] IDE: fix compare function

git-svn-id: trunk@61156 -
---
 designer/customnonformdesigner.pas | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/designer/customnonformdesigner.pas b/designer/customnonformdesigner.pas
index e7e46d5c1d..56c3c5fb9f 100644
--- a/designer/customnonformdesigner.pas
+++ b/designer/customnonformdesigner.pas
@@ -31,7 +31,7 @@ interface
 
 uses
   Classes, SysUtils,
-  FormEditingIntf;
+  FormEditingIntf, LazUtilities;
   
 type
 
@@ -75,9 +75,7 @@ var
 begin
   Form1 := TNonFormProxyDesignerForm(Data1) as INonFormDesigner;
   Form2 := TNonFormProxyDesignerForm(Data2) as INonFormDesigner;
-  {$PUSH}{$Q-} // Overflow is allowed to occur
-  Result := Integer(PtrInt(Form1.LookupRoot) - PtrInt(Form2.LookupRoot));
-  {$POP}
+  Result := ComparePointers(Pointer(Form1.LookupRoot), Pointer(Form2.LookupRoot)));
 end;
 
 function CompareLookupRootAndNonFormDesignerForm(Key, Data: Pointer): integer;
@@ -87,9 +85,7 @@ var
 begin
   LookupRoot := TComponent(Key);
   Form := TNonFormProxyDesignerForm(Data) as INonFormDesigner;
-  {$PUSH}{$Q-} // Overflow is allowed to occur
-  Result := Integer(PtrInt(LookupRoot) - PtrInt(Form.LookupRoot));
-  {$POP}
+  Result := ComparePointers(Pointer(LookupRoot), Pointer(Form.LookupRoot)));
 end;
 
 { TCustomNonFormDesignerForm }