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

Cocoa/ListView: in vsReport, textField fixed in Dark Mode

Browse Source
This commit is contained in:
rich2014 2024-08-11 11:32:01 +08:00
parent ff27bdaf81
commit 041b8d7fae
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -28,7 +28,7 @@ uses
MacOSAll, CocoaAll,
CocoaPrivate, Cocoa_Extra, CocoaCallback, CocoaConst, CocoaConfig,
CocoaWSCommon, CocoaUtils, CocoaGDIObjects,
CocoaListView,
CocoaListView, CocoaTextEdits,
LCLType, LCLMessageGlue, LMessages, Controls, ComCtrls, StdCtrls, ImgList, Forms;
type
@ -97,11 +97,12 @@ type
isDynamicRowHeight: Boolean;
CustomRowHeight: Integer;
ScrollWidth: Integer;
public
procedure backend_setCallback( cb:TLCLListViewCallback );
procedure backend_reloadData;
procedure backend_onInit;
public
procedure addSubview(aView: NSView); override;
procedure lclSetProcessor( processor: TCocoaTableViewProcessor ); message 'lclSetProcessor:';
procedure lclSetCheckBoxes( checkBoxes: Boolean); message 'lclSetCheckBoxes:';
@ -423,6 +424,18 @@ begin
self.setIntercellSpacing(sz);
end;
procedure TCocoaTableListView.addSubview(aView: NSView);
var
field: TCocoaTextField;
begin
if aView.isKindOfClass(TCocoaTextField) then begin
field:= TCocoaTextField( aView );
field.setBezeled( False );
field.fixedBorderStyle:= True;
end;
inherited addSubview(aView);
end;
procedure TCocoaTableListView.lclSetProcessor( processor: TCocoaTableViewProcessor);
begin
_processor:= processor;