Skip to content
Permalink
Browse files

Issue #712: final solution for intuitive result tab captions and line…

…/char panel
  • Loading branch information...
ansgarbecker committed Sep 29, 2019
1 parent 0fc09be commit d09e121cdd5b19bcc640f8558f31fa806207be73
Showing with 3 additions and 2 deletions.
  1. +3 −2 source/main.pas
@@ -3037,7 +3037,8 @@ procedure TMainForm.AfterQueryExecution(Thread: TQueryThread);
except on E:EDbError do
TabCaption := _('Result')+' #'+IntToStr(Tab.ResultTabs.Count);
end;
TabCaption := TabCaption + ' (' + FormatNumber(Results.ColumnCount) + '↔ × ' + FormatNumber(Results.RecordCount) + '↕)';

TabCaption := TabCaption + ' (' + FormatNumber(Results.RecordCount) + 'r × ' + FormatNumber(Results.ColumnCount) + 'c)';
Tab.tabsetQuery.Tabs.Add(TabCaption);

NewTab.Grid.BeginUpdate;
@@ -11972,7 +11973,7 @@ procedure TMainForm.UpdateLineCharPanel;
AppendMsg := ' ('+FormatByteNumber(ActiveQueryMemo.GetTextLen)+')';
end;
if (x > -1) and (y > -1) then begin
ShowStatusMsg(FormatNumber(x)+' : '+FormatNumber(y) + '' + AppendMsg, 1)
ShowStatusMsg('r'+FormatNumber(y)+' : c'+FormatNumber(x) + AppendMsg, 1)
end else
ShowStatusMsg('', 1);
end;

0 comments on commit d09e121

Please sign in to comment.
You can’t perform that action at this time.