Skip to content
Permalink
Browse files

Issue #712: insert Unicode arrow characters in query result tabs and …

…status bar panel, and unify order of x + y
  • Loading branch information...
ansgarbecker committed Sep 17, 2019
1 parent 0da8cb7 commit acf6d956ff3a74f84adc34f6651ab3aceee8dcff
Showing with 2 additions and 2 deletions.
  1. +2 −2 source/main.pas
@@ -3037,7 +3037,7 @@ 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.ColumnCount) + '↔ × ' + FormatNumber(Results.RecordCount) + ')';
Tab.tabsetQuery.Tabs.Add(TabCaption);

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

0 comments on commit acf6d95

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