opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix two errors due to changed function declarations in recent VirtualTree update.

Browse Source
This commit is contained in:
Ansgar Becker
2015-08-08 14:50:16 +00:00
parent 7adc76999b
commit 6809e85854
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/main.pas
View File

@@ -1,4 +1,4 @@
unit Main;
unit Main;
// -------------------------------------
@@ -1567,7 +1567,7 @@ begin
miFunction.Caption := '&-';
miFunction.Hint := MySqlFunctions[j].Name + MySqlFunctions[j].Declaration + ' - ' + sstr(MySqlFunctions[j].Description, 200);
// Prevent generating a seperator for ShortHint and LongHint
miFunction.Hint := StringReplace( miFunction.Hint, '|', '<EFBFBD>', [rfReplaceAll] );
miFunction.Hint := StringReplace( miFunction.Hint, '|', '¦', [rfReplaceAll] );
miFunction.Tag := j;
// Place menuitem on menu
miFunction.OnClick := insertFunction;
@@ -1954,7 +1954,7 @@ begin
Connection := ActiveConnection;
// Find and remove connection node from tree
Node := GetRootNode(DBtree, Connection);
DBTree.DeleteNode(Node, True);
DBTree.DeleteNode(Node);
FConnections.Remove(Connection);
// TODO: focus last session?
SelectNode(DBtree, GetNextNode(DBtree, nil));
@@ -2570,7 +2570,7 @@ begin
except on E:EDatabaseError do
TabCaption := _('Result')+' #'+IntToStr(Tab.ResultTabs.Count);
end;
TabCaption := TabCaption + ' (' + FormatNumber(Results.ColumnCount) + '<EFBFBD>' + FormatNumber(Results.RecordCount) + ')';
TabCaption := TabCaption + ' (' + FormatNumber(Results.ColumnCount) + '×' + FormatNumber(Results.RecordCount) + ')';
Tab.tabsetQuery.Tabs.Add(TabCaption);
NewTab.Grid.BeginUpdate;
@@ -6609,7 +6609,7 @@ begin
HintSQL[i] := sstr(HintSQL[i], 100);
HintSQL[i] := StringReplace(HintSQL[i], #9, ' ', [rfReplaceAll]);
end;
BalloonHint1.Description := FormatNumber(ResultTab.Results.ColumnCount) + ' columns <EFBFBD> ' +
BalloonHint1.Description := FormatNumber(ResultTab.Results.ColumnCount) + ' columns × ' +
FormatNumber(ResultTab.Results.RecordCount) + ' rows' + CRLF + CRLF +
Trim(sstr(HintSQL.Text, SIZE_KB));
Rect := Tabs.ItemRect(idx);
@@ -10310,7 +10310,7 @@ var
Cap: String;
begin
// Set window caption and taskbar text
Cap := DBtree.Path(DBtree.FocusedNode, 0, ttNormal, '\') + ' - ' + APPNAME;
Cap := DBtree.Path(DBtree.FocusedNode, 0, '\') + ' - ' + APPNAME;
if AppSettings.PortableMode then
Cap := Cap + ' Portable';
Cap := Cap + ' ' + FAppVersion;