paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 12:40:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: reduce amount of hints and warnings

Browse Source 
git-svn-id: trunk@36435 -
This commit is contained in:
paul 2012-03-30 01:27:25 +00:00
parent 6c8e15a1cf
commit a17cb11168
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customcombobox.inc
View File

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

2
lcl/include/customlistbox.inc
View File

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

2
lcl/lazregions.pas
View File

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