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

Code cleanup; use hideExt instead of extra Copy().

Browse Source
This commit is contained in:
rosenfield
2007-07-27 11:23:24 +00:00
parent 37a5951835
commit 5ae56fe00c
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/childwin.pas
View File

@@ -4454,7 +4454,6 @@ begin
FillPopupQueryLoad;
Screen.Cursor := crDefault;
end;
end;
procedure TMDIChild.CallSQLHelp(Sender: TObject);
@@ -4717,22 +4716,21 @@ var
i, j : Integer;
menuitem, snippetsfolder : TMenuItem;
snippets : TStringList;
sqlFilename, s : String;
sqlFilename : String;
begin
// Fill the popupQueryLoad menu
popupQueryLoad.Items.Clear;
// Snippets
snippets := getFilesFromDir( DIRNAME_SNIPPETS, '*.sql' );
snippets := getFilesFromDir( DIRNAME_SNIPPETS, '*.sql', true );
snippetsfolder := TMenuItem.Create( popupQueryLoad );
snippetsfolder.Caption := 'Snippets';
popupQueryLoad.Items.Add(snippetsfolder);
for i := 0 to snippets.Count - 1 do
begin
s := Copy(snippets[i], 1, Length(snippets[i]) - 4);
menuitem := TMenuItem.Create( snippetsfolder );
menuitem.Caption := s;
menuitem.Caption := snippets[i];
menuitem.OnClick := popupQueryLoadClick;
snippetsfolder.Add(menuitem);
end;