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

No need to show file size of snippets in helper box. See issue #2137.

Browse Source
This commit is contained in:
Ansgar Becker
2010-09-16 19:34:14 +00:00
parent a40c10b4c4
commit 27cb6440e5
1 changed files with 4 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
source/main.pas
View File

@@ -9469,7 +9469,7 @@ begin
end;
HELPERNODE_FUNCTIONS: CellText := MySQLFunctions[Node.Index].Name;
HELPERNODE_KEYWORDS: CellText := MySQLKeywords[Node.Index];
HELPERNODE_SNIPPETS: CellText := FSnippetFilenames.Names[Node.Index];
HELPERNODE_SNIPPETS: CellText := FSnippetFilenames[Node.Index];
HELPERNODE_PROFILE: begin
if Assigned(ActiveQueryTab.QueryProfile) then begin
ActiveQueryTab.QueryProfile.RecNo := Node.Index;
@@ -9485,7 +9485,6 @@ begin
if (SelectedDbObj.NodeType in [lntTable, lntView]) and (SelectedTableColumns.Count > Integer(Node.Index)) then
CellText := SelectedTableColumns[Node.Index].DataType.Name;
HELPERNODE_FUNCTIONS: CellText := MySQLFunctions[Node.Index].Declaration;
HELPERNODE_SNIPPETS: CellText := FormatByteNumber(FSnippetFilenames.ValueFromIndex[Node.Index]);
HELPERNODE_PROFILE: begin
if Assigned(ActiveQueryTab.QueryProfile) then begin
ActiveQueryTab.QueryProfile.RecNo := Node.Index;
@@ -9539,15 +9538,11 @@ end;
procedure TMainForm.SetSnippetFilenames(Value: TStringList);
var
i: Integer;
begin
// Refreshing list of snippet file names needs to refresh helper node too
if not Assigned(FSnippetFilenames) then
FSnippetFilenames := TStringList.Create;
FSnippetFilenames.Clear;
for i:=0 to Value.Count-1 do
FSnippetFilenames.Values[Value[i]] := IntToStr(_GetFileSize(DirnameSnippets+Value[i]+'.sql'));
if Assigned(FSnippetFilenames) then
FSnippetFilenames.Free;
FSnippetFilenames := Value;
RefreshHelperNode(HELPERNODE_SNIPPETS);
end;