paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 18:10:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: fix range check errors

Browse Source 
git-svn-id: trunk@38774 -
This commit is contained in:
paul 2012-09-21 06:47:56 +00:00
parent cffbf40c5f
commit bc0000f1f4
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/cocoa/cocoaobject.inc
View File

@ -479,7 +479,8 @@ end;
------------------------------------------------------------------------------}
function TCocoaWidgetSet.RawImage_DescriptionFromCocoaBitmap(out ADesc: TRawImageDescription; ABitmap: TCocoaBitmap): Boolean;
var
Prec, Shift, BPR: Byte;
Prec, Shift: Byte;
BPR: Integer;
begin
ADesc.Init;

2
lcl/interfaces/cocoa/cocoawinapi.inc
View File

@ -1646,7 +1646,7 @@ begin
if Assigned(ctx) then
begin
Result := ctx.TextColor;
ctx.TextColor := Color
ctx.TextColor := TColor(Color);
end
else
Result := CLR_INVALID;