SQL export dialog: cut long file list down to 20 latest items

HeidiSQL · Feb 4, 2024 · b8d5876 · b8d5876
1 parent 17f4cb2
commit b8d5876
Showing 1 changed file with 6 additions and 1 deletion.
diff --git 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;