paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 19:56:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa: fix typos

Browse Source
This commit is contained in:
rich2014 2023-07-18 19:05:39 +08:00
parent 890ae752ca
commit e5b2c70c00
6 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/cocoa/cocoaprivate.pas
View File

@ -603,7 +603,7 @@ end;
function getNSStringObject( const aString: id ) : NSString;
begin
if aString.isKindOfClass( NSAttributedString.classClass ) then
if aString.isKindOfClass( NSAttributedString ) then
Result:= NSAttributedString( aString ).string_
else
Result:= NSString( aString );

2
lcl/interfaces/cocoa/cocoascrollers.pas
View File

@ -290,7 +290,7 @@ begin
if sc.frame.size.height = 0 then Exit; // do nothing
ps := pt.y / sc.frame.size.height;
end;
sz := (sc.maxInt - sc.minInt - sc.pageInt);;
sz := (sc.maxInt - sc.minInt - sc.pageInt);
newPos := Round(sc.minInt + sz * ps);
sc.lclSetPos(NewPos);
end;

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

@ -2726,7 +2726,7 @@ begin
SM_LCLHasFormAlphaBlend:
Result := 1;
else
DebugLn('TCocoaWidgetSet.GetSystemMetrics TODO ', DbgS(NIndex));;
DebugLn('TCocoaWidgetSet.GetSystemMetrics TODO ', DbgS(NIndex));
end;
{$IFDEF VerboseWinAPI}

1
lcl/interfaces/cocoa/cocoawindows.pas
View File

@ -1059,7 +1059,6 @@ end;
// between LCL and COCOA, see also:
// https://wiki.lazarus.freepascal.org/Cocoa_Internals/Application#Focus_Change
// 4. makeFirstResponder() is Reentrant and Thread-safe
//
function TCocoaWindow.makeFirstResponder( aResponder : NSResponder ): ObjCBOOL;
var
lastResponder : NSResponder;

2
lcl/interfaces/cocoa/cocoawscomctrls.pas
View File

@ -1051,7 +1051,7 @@ begin
sz := lTableLV.intercellSpacing;
// Windows compatibility. on Windows there's no extra space between columns
sz.width := 0;
lTableLV.setIntercellSpacing(sz);;
lTableLV.setIntercellSpacing(sz);
lTableLV.release;
{$IFDEF COCOA_DEBUG_LISTVIEW}
WriteLn(Format('[TCocoaWSCustomListView.CreateHandle] headerView=%d', [PtrInt(lTableLV.headerView)]));

2
lcl/interfaces/cocoa/cocoawscommon.pas
View File

@ -402,7 +402,7 @@ var
control: TControl;
begin
GetCursorPos(P);
control:= FindControlAtPosition(P, true);;
control:= FindControlAtPosition(P, true);
if Assigned(control) then
TCocoaCursor(Screen.Cursors[control.Cursor]).SetCursor;
end;