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

10
source/loaddata.pas
View File

@@ -658,13 +658,15 @@ end;
procedure Tloaddataform.btnOpenFileClick(Sender: TObject);
var
Dialog: TOpenTextFileDialog;
Dialog: TExtFileOpenDialog;
TestStream: TFileStream;
begin
AppSettings.ResetPath;
Dialog := TOpenTextFileDialog.Create(Self);
Dialog.Filter := _('CSV files')+' (*.csv)|*.csv|'+_('Text files')+' (*.txt)|*.txt|'+_('All files')+' (*.*)|*.*';
Dialog.DefaultExt := 'csv';
Dialog := TExtFileOpenDialog.Create(Self);
Dialog.AddFileType('*.csv', _('CSV files'));
Dialog.AddFileType('*.txt', _('Text files'));
Dialog.AddFileType('*.*', _('All files'));
Dialog.DefaultExtension := 'csv';
Dialog.Encodings.Assign(Mainform.FileEncodings);
Dialog.EncodingIndex := AppSettings.ReadInt(asFileDialogEncoding, Self.Name);
if Dialog.Execute then begin