paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 02:39:15 +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; function getNSStringObject( const aString: id ) : NSString;
begin begin
if aString.isKindOfClass( NSAttributedString.classClass ) then if aString.isKindOfClass( NSAttributedString ) then
Result:= NSAttributedString( aString ).string_ Result:= NSAttributedString( aString ).string_
else else
Result:= NSString( aString ); 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 if sc.frame.size.height = 0 then Exit; // do nothing
ps := pt.y / sc.frame.size.height; ps := pt.y / sc.frame.size.height;
end; end;
sz := (sc.maxInt - sc.minInt - sc.pageInt);; sz := (sc.maxInt - sc.minInt - sc.pageInt);
newPos := Round(sc.minInt + sz * ps); newPos := Round(sc.minInt + sz * ps);
sc.lclSetPos(NewPos); sc.lclSetPos(NewPos);
end; end;

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

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

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

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

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

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

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

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