paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 20:41:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: fix the rangecheck error for aarch64. Patch by C Western. bug #38446

Browse Source 
git-svn-id: trunk@65352 -
This commit is contained in:
dmitry 2021-07-03 01:05:05 +00:00
parent 0e0ef8c3ca
commit 7930dc2236
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2554,7 +2554,7 @@ begin
ctx := CheckDC(DC);
if Assigned(ctx) then
begin
Result := ctx.TextColor;
Result := TColorRef(ctx.TextColor);
ctx.TextColor := TColor(Color);
end
else