From b8d587647b04c5b4dcf31cc28e7ff836cd13cea4 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Sun, 4 Feb 2024 11:14:48 +0100
Subject: [PATCH] SQL export dialog: cut long file list down to 20 latest items

---
 source/tabletools.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/source/tabletools.pas b/source/tabletools.pas
index 24858c9a..bc03a094 100644
--- a/source/tabletools.pas
+++ b/source/tabletools.pas
@@ -1345,8 +1345,13 @@ procedure TfrmTableTools.comboExportOutputTypeChange(Sender: TObject);
       comboExportOutputTarget.Items.Text := AppSettings.ReadString(asExportSQLFilenames, '')
     else
       comboExportOutputTarget.Items.Text := AppSettings.ReadString(asExportZIPFilenames, '');
-    if comboExportOutputTarget.Items.Count > 0 then
+    if comboExportOutputTarget.Items.Count > 0 then begin
       comboExportOutputTarget.ItemIndex := 0;
+      // Cut long file list down to 20 latest items
+      for i:=comboExportOutputTarget.Items.Count-1 downto 20 do begin
+        comboExportOutputTarget.Items.Delete(i);
+      end;
+    end;
     lblExportOutputTarget.Caption := _('Filename')+':';
     btnExportOutputTargetSelect.Enabled := True;
     btnExportOutputTargetSelect.ImageIndex := 51;