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

cocoa: resolve rangecheck error for all table driven controls

Browse Source 
git-svn-id: trunk@61074 -
This commit is contained in:
dmitry 2019-04-28 19:02:24 +00:00
parent 1bbba763bc
commit b9a200da2a
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/cocoa/cocoatables.pas
View File

@ -82,7 +82,7 @@ type
procedure lclClearCallback; override;
// Own methods, mostly convenience methods
function getIndexOfColumn(ACol: NSTableColumn): NSInteger; message 'getIndexOfColumn:';
function getIndexOfColumn(ACol: NSTableColumn): Integer; message 'getIndexOfColumn:';
procedure reloadDataForRow_column(ARow, ACol: NSInteger); message 'reloadDataForRow:column:';
function initWithFrame(frameRect: NSRect): id; override;
@ -497,9 +497,15 @@ begin
end;
end;
function TCocoaTableListView.getIndexOfColumn(ACol: NSTableColumn): NSInteger;
function TCocoaTableListView.getIndexOfColumn(ACol: NSTableColumn): Integer;
var
idx : NSUInteger;
begin
Result := tableColumns.indexOfObject(ACol);
idx := tableColumns.indexOfObject(ACol);
if idx = NSNotFound then
Result := -1
else
Result := Integer(idx);
end;
procedure TCocoaTableListView.reloadDataForRow_column(ARow, ACol: NSInteger);