From 713b6afa8f66329d1a6cbfa4b311a0ac6211b683 Mon Sep 17 00:00:00 2001 From: n7800 <14154601-n7800@users.noreply.gitlab.com> Date: Sun, 22 Jun 2025 15:55:16 +0500 Subject: [PATCH] Converter: Cleaning up unnecessary help button code --- converter/chgencodingdlg.lfm | 1 - converter/chgencodingdlg.pas | 8 +------- 2 files changed, 1 insertion(+), 8 deletions(-) diff --git a/converter/chgencodingdlg.lfm b/converter/chgencodingdlg.lfm index 455f5adb2a..6b9a275c2d 100644 --- a/converter/chgencodingdlg.lfm +++ b/converter/chgencodingdlg.lfm @@ -158,7 +158,6 @@ object ChgEncodingDialog: TChgEncodingDialog BorderSpacing.Around = 6 Caption = '&Help' Kind = bkHelp - OnClick = HelpButtonClick TabOrder = 0 end end diff --git a/converter/chgencodingdlg.pas b/converter/chgencodingdlg.pas index a6c150db53..7b114905da 100644 --- a/converter/chgencodingdlg.pas +++ b/converter/chgencodingdlg.pas @@ -39,7 +39,7 @@ uses // LazUtils LConvEncoding, LazFileUtils, LazFileCache, LazStringUtils, LazUTF8, AvgLvlTree, // IDEIntf - IdeIntfStrConsts, IDEWindowIntf, SrcEditorIntf, IDEHelpIntf, IDEImagesIntf, + IdeIntfStrConsts, IDEWindowIntf, SrcEditorIntf, IDEImagesIntf, // IdeConfig IDEProcs, // IDE @@ -72,7 +72,6 @@ type procedure ApplyButtonClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); - procedure HelpButtonClick(Sender: TObject); procedure PreviewClick(Sender: TObject); private FFiles: TFilenameToStringTree; @@ -239,11 +238,6 @@ begin PreviewGroupBox.Caption:=Format(lisEncodingNumberOfFilesFailed, [PreviewListView.Items.Count]); end; -procedure TChgEncodingDialog.HelpButtonClick(Sender: TObject); -begin - LazarusHelp.ShowHelpForIDEControl(Self); -end; - procedure TChgEncodingDialog.PreviewClick(Sender: TObject); begin UpdatePreview;