From 28f86382e5cba15dafe2be4f265b0a46611452cd Mon Sep 17 00:00:00 2001
From: Sven Barth <pascaldragon@gmail.com>
Date: Mon, 8 Nov 2021 22:35:45 +0100
Subject: [PATCH] * FPC side fix for #39432: declare TColor the same way as
 Lazarus does (this way it's also a distinct type from LongInt)

(cherry picked from commit c950bcba9f6c21b44bc71140737aa6dd452837cc)
---
 packages/rtl-objpas/src/inc/system.uitypes.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/rtl-objpas/src/inc/system.uitypes.pp b/packages/rtl-objpas/src/inc/system.uitypes.pp
index eb099fba8c..75ba4d0e27 100644
--- a/packages/rtl-objpas/src/inc/system.uitypes.pp
+++ b/packages/rtl-objpas/src/inc/system.uitypes.pp
@@ -19,7 +19,7 @@ unit System.UITypes;
 interface
 
 Type  
-    TColor      = Longint;
+    TColor      = -$7FFFFFFF-1..$7FFFFFFF;
     PColor      = ^TColor;
     TColorRef   = Cardinal;
     PColorRef   = ^TColorRef;