paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 15:48:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: cocoa: fixed calling overload

Browse Source
This commit is contained in:
mattias 2024-10-25 10:47:22 +02:00
parent 4a5ca7eb1f
commit 8da445d514
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/cocoagdiobjects.pas
View File

@ -1798,7 +1798,7 @@ begin
SetLength(CharsDeltaFloat, Count);
for i := 0 to Count - 1 do
CharsDeltaFloat[i] := CharsDelta[i];
TextOut(X,Y,Options, Rect, UTF8Chars, Count, @CharsDeltaFloat[0]);
TextOut(X,Y,Options, Rect, UTF8Chars, Count, CGFloatPtr(@CharsDeltaFloat[0]));
end
else
TextOut(X,Y,Options, Rect, UTF8Chars, Count, CGFloatPtr(nil));