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

Gtk3: make TListView setFont() and setColor() work.

Browse Source
This commit is contained in:
zeljan1 2025-02-04 19:38:24 +01:00
parent 7dbb6355e5
commit 8839d5656a
1 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/gtk3/gtk3wscomctrls.pp
View File

@ -162,9 +162,7 @@ type
class function GetVisibleRowCount(const ALV: TCustomListView): Integer; override;
class procedure SetAllocBy(const ALV: TCustomListView; const {%H-}AValue: Integer); override;
class procedure SetColor(const AWinControl: TWinControl); override;
class procedure SetDefaultItemHeight(const ALV: TCustomListView; const {%H-}AValue: Integer); override;
class procedure SetFont(const AWinControl: TWinControl; const AFont: TFont); override;
class procedure SetHotTrackStyles(const ALV: TCustomListView; const {%H-}AValue: TListHotTrackStyles); override;
class procedure SetHoverTime(const ALV: TCustomListView; const {%H-}AValue: Integer); override;
// class procedure SetIconOptions(const ALV: TCustomListView; const AValue: TIconOptions); override;
@ -870,12 +868,6 @@ begin
// inherited SetAllocBy(ALV, AValue);
end;
class procedure TGtk3WSCustomListView.SetColor(const AWinControl: TWinControl);
begin
DebugLn('TGtk3WSCustomListView.SetColor ');
inherited SetColor(AWinControl);
end;
class procedure TGtk3WSCustomListView.SetDefaultItemHeight(
const ALV: TCustomListView; const AValue: Integer);
begin
@ -886,13 +878,6 @@ begin
PGtkTreeView(TGtk3ListView(ALV.Handle).GetContainerWidget)^.set_fixed_height_mode(AValue > 0);
end;
class procedure TGtk3WSCustomListView.SetFont(const AWinControl: TWinControl;
const AFont: TFont);
begin
DebugLn('TGtk3WSCustomListView.SetFont ');
inherited SetFont(AWinControl, AFont);
end;
class procedure TGtk3WSCustomListView.SetHotTrackStyles(
const ALV: TCustomListView; const AValue: TListHotTrackStyles);
begin