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

cocoa: adapted patch by David Jenkins for event processing (#34211)

Browse Source 
git-svn-id: trunk@58827 -
This commit is contained in:
dmitry 2018-09-02 21:58:28 +00:00
parent 0e5b7385a9
commit 0885bac2f2
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -227,6 +227,9 @@ type
// on the other hand, it doesn't call "inherited" so there's no need
// to do an actual override
function tableView_viewForTableColumn_row(tableView: NSTableView; tableColumn: NSTableColumn; row: NSInteger): NSView; message 'tableView:viewForTableColumn:row:';
procedure textFieldAction(sender: NSTextField); message 'textFieldAction:';
procedure checkboxAction(sender: NSButton); message 'checkboxAction:';
end;
function AllocCocoaTableListView: TCocoaTableListView;
@ -1058,5 +1061,28 @@ begin
Result := item
end;
procedure TViewCocoaTableListView.textFieldAction(sender: NSTextField);
var
column, row: NSInteger;
begin
if not Assigned(callback) then Exit;
column := columnForView(sender);
row := rowForView(sender);
callback.SetItemTextAt(row, column, NSStringToString(sender.stringValue));
reloadDataForRow_column(row, column);
end;
procedure TViewCocoaTableListView.checkboxAction(sender: NSButton);
var
row: NSInteger;
begin
if not Assigned(callback) then Exit;
row := rowForView(sender);
callback.SetItemCheckedAt(row, 0, sender.state);
reloadDataForRow_column(row, 0);
end;
end.