opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Issue #1503: replace remaining usages of TOpenTextFileDialog with new TExtFileOpenDialog

Browse Source
This commit is contained in:
Ansgar Becker
2022-02-06 13:49:09 +01:00
parent 919c73ef06
commit 26baa5eb0d
4 changed files with 24 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/texteditor.pas
View File

@@ -333,12 +333,12 @@ end;
procedure TfrmTextEditor.btnLoadTextClick(Sender: TObject);
var
d: TOpenTextFileDialog;
d: TExtFileOpenDialog;
begin
AppSettings.ResetPath;
d := TOpenTextFileDialog.Create(Self);
d.Filter := _('Text files')+' (*.txt)|*.txt|'+_('All files')+' (*.*)|*.*';
d.FilterIndex := 0;
d := TExtFileOpenDialog.Create(Self);
d.AddFileType('*.txt', _('Text files'));
d.AddFileType('*.*', _('All files'));
d.Encodings.Assign(MainForm.FileEncodings);
d.EncodingIndex := AppSettings.ReadInt(asFileDialogEncoding, Self.Name);
if d.Execute then try