From 8839d5656ac6834e42ec6a92dde27df4bd6d035f Mon Sep 17 00:00:00 2001 From: zeljan1 Date: Tue, 4 Feb 2025 19:38:24 +0100 Subject: [PATCH] Gtk3: make TListView setFont() and setColor() work. --- lcl/interfaces/gtk3/gtk3wscomctrls.pp | 15 --------------- 1 file changed, 15 deletions(-) diff --git a/lcl/interfaces/gtk3/gtk3wscomctrls.pp b/lcl/interfaces/gtk3/gtk3wscomctrls.pp index 0ff598634b..3989835e3e 100644 --- a/lcl/interfaces/gtk3/gtk3wscomctrls.pp +++ b/lcl/interfaces/gtk3/gtk3wscomctrls.pp @@ -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