feat: add "source table: xyz" hint to query result column headers

ansgarbecker · ansgarbecker · commit 2863a80b68ec · 2025-11-29T16:20:38.000+01:00
https://www.heidisql.com/forum.php?t=44554
diff --git a/source/apphelpers.pas b/source/apphelpers.pas
@@ -396,6 +396,7 @@   TAppSettings = class(TObject)
   //function GetImageLinkTimeStamp(const FileName: string): TDateTime;
   function IsEmpty(Str: String): Boolean;
   function IsNotEmpty(Str: String): Boolean;
+  function IfEmpty(Str: String; WhenEmpty: String): String;
   function MessageDialog(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): Integer; overload;
   function MessageDialog(const Title, Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; KeepAskingSetting: TAppSettingIndex=asUnused; FooterText: String=''): Integer; overload;
   function ErrorDialog(Msg: string): Integer; overload;
@@ -2365,6 +2366,13 @@ function IsNotEmpty(Str: String): Boolean;
   Result := Str <> '';
 end;
 
+function IfEmpty(Str: String; WhenEmpty: String): String;
+begin
+  if Str.IsEmpty then
+    Result := WhenEmpty
+  else
+    Result := Str;
+end;
 
 function MessageDialog(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): Integer;
 begin
diff --git a/source/main.pas b/source/main.pas
@@ -3384,6 +3384,7 @@ procedure TMainForm.AfterQueryExecution(Thread: TQueryThread);
     for i:=0 to NewTab.Results.ColumnCount-1 do begin
       col := NewTab.Grid.Header.Columns.Add;
       col.Text := NewTab.Results.ColumnNames[i];
+      col.Hint := _('Source table') + ': ' + IfEmpty(NewTab.Results.TableName(i), '-');
       if NewTab.Results.DataType(i).Category in [dtcInteger, dtcReal] then
         col.Alignment := taRightJustify;
       if NewTab.Results.ColIsPrimaryKeyPart(i) then
