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

Converter: Cleaning up unnecessary help button code

Browse Source
This commit is contained in:
n7800 2025-06-22 15:55:16 +05:00 committed by Maxim Ganetsky
parent 975c46a7fa
commit 713b6afa8f
2 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
converter/chgencodingdlg.lfm
View File

@ -158,7 +158,6 @@ object ChgEncodingDialog: TChgEncodingDialog
BorderSpacing.Around = 6
Caption = '&Help'
Kind = bkHelp
OnClick = HelpButtonClick
TabOrder = 0
end
end

8
converter/chgencodingdlg.pas
View File

@ -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;