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

cocoa: removed special NSScrollView class for ListView. Using the common TCocoaScrollView instead

Browse Source 
git-svn-id: trunk@58674 -
This commit is contained in:
dmitry 2018-08-04 22:13:08 +00:00
parent deb177f78b
commit d8f5f93d77
2 changed files with 15 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -224,30 +224,8 @@ type
procedure tableViewSelectionIsChanging(notification: NSNotification); message 'tableViewSelectionIsChanging:';}
end;
// todo: this NSScrollView should go away. TCocoaScrollView must be used instead
{ TCocoaListView }
TCocoaListView = objcclass(NSScrollView)
public
callback: ICommonCallback;
// For report style:
TableListView: TCocoaTableListView;
// For the other styles:
// ToDo
function lclGetCallback: ICommonCallback; override;
end;
implementation
{ TCocoaListView }
function TCocoaListView.lclGetCallback: ICommonCallback;
begin
Result := callback;
end;
{ TCocoaListBox }
function TCocoaListBox.lclIsHandle: Boolean;

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

@ -17,7 +17,8 @@ uses
// WS
WSComCtrls,
// Cocoa WS
CocoaPrivate, CocoaTabControls, CocoaUtils, CocoaWSCommon, CocoaTables, cocoa_extra;
CocoaPrivate, CocoaScrollers, CocoaTabControls, CocoaUtils,
CocoaWSCommon, CocoaTables, cocoa_extra;
type
@ -92,6 +93,8 @@ type
{ TCocoaWSCustomListView }
TCocoaListView = TCocoaScrollView;
TCocoaWSCustomListView = class(TWSCustomListView)
private
class function CheckParams(out AScroll: TCocoaListView; out ATableControl: TCocoaTableListView; const ALV: TCustomListView): Boolean;
@ -654,9 +657,9 @@ begin
AScroll := TCocoaListView(ALV.Handle);
// ToDo: Implement for other styles
if AScroll.TableListView <> nil then
if Assigned(AScroll.documentView) and (AScroll.documentView.isKindOfClass(TCocoaTableListView)) then
begin
ATableControl := AScroll.TableListView;
ATableControl := TCocoaTableListView(AScroll.documentView);
Result := True;
end;
end;
@ -708,7 +711,7 @@ begin
// 1-> The column header appears only if the NSTableView is inside a NSScrollView
// 2-> To get proper scrolling use NSScrollView.setDocumentView instead of addSubview
// Source: http://stackoverflow.com/questions/13872642/nstableview-scrolling-does-not-work
lCocoaLV.TableListView := lTableLV;
//lCocoaLV.TableListView := lTableLV;
lCocoaLV.setDocumentView(lTableLV);
lCocoaLV.setHasVerticalScroller(True);
@ -747,13 +750,15 @@ class function TCocoaWSCustomListView.ColumnGetWidth(
var
lTableLV: TCocoaTableListView;
lColumn: NSTableColumn;
sc: TCocoaListView;
begin
{$IFDEF COCOA_DEBUG_LISTVIEW}
WriteLn(Format('[TCocoaWSCustomListView.ColumnGetWidth] AIndex=%d', [AIndex]));
{$ENDIF}
Result:=0;
if not Assigned(ALV) or not ALV.HandleAllocated then Exit;
lTableLV := TCocoaListView(ALV.Handle).TableListView;
if not CheckParams(sc, lTableLV, ALV) then Exit;
//if not Assigned(ALV) or not ALV.HandleAllocated then Exit;
//lTableLV := TCocoaTableListView(TCocoaListView(ALV.Handle).documentView);
if (AIndex < 0) or (AIndex >= lTableLV.tableColumns.count()) then Exit;
lColumn := lTableLV.tableColumns.objectAtIndex(AIndex);
@ -766,13 +771,15 @@ var
lTableLV: TCocoaTableListView;
lNSColumn: NSTableColumn;
lTitle: NSString;
sc: TCocoaListView;
begin
{$IFDEF COCOA_DEBUG_LISTVIEW}
WriteLn(Format('[TCocoaWSCustomListView.ColumnInsert] ALV=%x AIndex=%d', [PtrInt(ALV), AIndex]));
{$ENDIF}
ALV.HandleNeeded();
if not Assigned(ALV) or not ALV.HandleAllocated then Exit;
lTableLV := TCocoaListView(ALV.Handle).TableListView;
//if not Assigned(ALV) or not ALV.HandleAllocated then Exit;
//lTableLV := TCocoaTableListView(TCocoaListView(ALV.Handle).documentView);
if not CheckParams(sc, lTableLV, ALV) then Exit;
{$IFDEF COCOA_DEBUG_LISTVIEW}
WriteLn(Format('[TCocoaWSCustomListView.ColumnInsert]=> tableColumns.count=%d', [lTableLV.tableColumns.count()]));
{$ENDIF}