opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 01:56:36 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

3
source/data_sorting.pas
View File

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

2
source/main.pas
View File

@ -10578,6 +10578,7 @@ begin
else else
SortOrder := sioAscending; SortOrder := sioAscending;
FDataGridSortItems.AddNew(ColName, SortOrder); FDataGridSortItems.AddNew(ColName, SortOrder);
LogSQL('Created sorting for column '+ColName+'/'+Integer(SortOrder).ToString+' in TMainForm.DataGridHeaderClick', lcDebug);
end; end;
// Refresh grid, and remember X scroll offset, so the just clicked column is still at the same place. // Refresh grid, and remember X scroll offset, so the just clicked column is still at the same place.
@ -11274,6 +11275,7 @@ begin
SortItem := FDataGridSortItems.AddNew; SortItem := FDataGridSortItems.AddNew;
SortItem.Column := rx.Match[2]; SortItem.Column := rx.Match[2];
SortItem.Order := TSortItemOrder(StrToIntDef(rx.Match[1], 0)); SortItem.Order := TSortItemOrder(StrToIntDef(rx.Match[1], 0));
LogSQL('Restored sorting for column '+SortItem.Column+'/'+Integer(SortItem.Order).ToString+' in TMainForm.HandleDataGridAttributes', lcDebug);
Break; Break;
end; end;
end; end;