diff --git a/lcl/include/customcombobox.inc b/lcl/include/customcombobox.inc
index d94ff26d95..702782918a 100644
--- a/lcl/include/customcombobox.inc
+++ b/lcl/include/customcombobox.inc
@@ -989,7 +989,7 @@ begin
       FCanvas.Font := Font;
     if Brush<>nil then
       FCanvas.Brush := Brush;
-    if (ItemID >= 0) and (odSelected in ItemState) then
+    if (ItemID <> UINT(-1)) and (odSelected in ItemState) then
     begin
       FCanvas.Brush.Color := clHighlight;
       FCanvas.Font.Color := clHighlightText
diff --git a/lcl/include/customlistbox.inc b/lcl/include/customlistbox.inc
index dba8bafc04..8a8fdc7fbf 100644
--- a/lcl/include/customlistbox.inc
+++ b/lcl/include/customlistbox.inc
@@ -286,7 +286,7 @@ begin
       FCanvas.Font := Font;
     if Brush <> nil then
       FCanvas.Brush := Brush;
-    if (ItemID >= 0) and (odSelected in ItemState) then
+    if (ItemID <> UINT(-1)) and (odSelected in ItemState) then
     begin
       FCanvas.Brush.Color := clHighlight;
       FCanvas.Font.Color := clHighlightText
diff --git a/lcl/lazregions.pas b/lcl/lazregions.pas
index f10d857b54..deb403a764 100644
--- a/lcl/lazregions.pas
+++ b/lcl/lazregions.pas
@@ -79,7 +79,7 @@ type
     UserData: TObject; // available link to another object
     constructor Create; override;
     destructor Destroy; override;
-    function IsPointInRegion(AX, AY: Integer): TLazRegionWithChilds; virtual;
+    function IsPointInRegion(AX, AY: Integer): TLazRegionWithChilds; virtual; reintroduce;
   end;
 
 function IsPointInPolygon(AX, AY: Integer; const APolygon: array of TPoint): Boolean;