Issue #2053: add debug log lines in all places where a sorting is created or restored

This commit is contained in:
Ansgar Becker
2024-12-31 15:51:51 +01:00
parent df4edef4f8
commit 34c2ed9224
2 changed files with 4 additions and 1 deletions

View File

@ -4,7 +4,7 @@ interface
uses
Winapi.Windows, System.SysUtils, System.Classes, Vcl.Controls, Vcl.Forms, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.ComCtrls, Vcl.Buttons,
Vcl.Graphics, apphelpers, gnugettext, extra_controls;
Vcl.Graphics, apphelpers, gnugettext, extra_controls, dbconnection;
type
@ -282,6 +282,7 @@ begin
NewSortItem.Column := UnusedColumns[0]
else
NewSortItem.Column := FColumnNames[0];
MainForm.LogSQL('Created sorting for column '+NewSortItem.Column+'/'+Integer(NewSortItem.Order).ToString+' in TfrmDataSorting.btnAddColClick', lcDebug);
// Refresh controls
DisplaySortingControls(Sender);