paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-20 12:39:35 +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 BorderSpacing.Around = 6
Caption = '&Help' Caption = '&Help'
Kind = bkHelp Kind = bkHelp
OnClick = HelpButtonClick
TabOrder = 0 TabOrder = 0
end end
end end

8
converter/chgencodingdlg.pas
View File

@ -39,7 +39,7 @@ uses
// LazUtils // LazUtils
LConvEncoding, LazFileUtils, LazFileCache, LazStringUtils, LazUTF8, AvgLvlTree, LConvEncoding, LazFileUtils, LazFileCache, LazStringUtils, LazUTF8, AvgLvlTree,
// IDEIntf // IDEIntf
IdeIntfStrConsts, IDEWindowIntf, SrcEditorIntf, IDEHelpIntf, IDEImagesIntf, IdeIntfStrConsts, IDEWindowIntf, SrcEditorIntf, IDEImagesIntf,
// IdeConfig // IdeConfig
IDEProcs, IDEProcs,
// IDE // IDE
@ -72,7 +72,6 @@ type
procedure ApplyButtonClick(Sender: TObject); procedure ApplyButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);
procedure PreviewClick(Sender: TObject); procedure PreviewClick(Sender: TObject);
private private
FFiles: TFilenameToStringTree; FFiles: TFilenameToStringTree;
@ -239,11 +238,6 @@ begin
PreviewGroupBox.Caption:=Format(lisEncodingNumberOfFilesFailed, [PreviewListView.Items.Count]); PreviewGroupBox.Caption:=Format(lisEncodingNumberOfFilesFailed, [PreviewListView.Items.Count]);
end; end;
procedure TChgEncodingDialog.HelpButtonClick(Sender: TObject);
begin
LazarusHelp.ShowHelpForIDEControl(Self);
end;
procedure TChgEncodingDialog.PreviewClick(Sender: TObject); procedure TChgEncodingDialog.PreviewClick(Sender: TObject);
begin begin
UpdatePreview; UpdatePreview;