--- oup/current/Tools/Template.pas 2007/02/21 03:12:33 109 +++ oup/current/Tools/Template.pas 2007/02/26 22:57:17 117 @@ -152,6 +152,7 @@ begin begin combo_extension.Items.Add('_All files_ (' + IntToStr(ConManager.Connection[FConnectionID].GetFileCount) + ')'); + exts := nil; exts := ConManager.Connection[FConnectionID].GetExtensionsList(EF_ExtCount); for i := 0 to exts.Count - 1 do if Length(FAllowedExts) > 0 then @@ -176,7 +177,6 @@ var no_zero_bytes: Boolean; pattern: String; files: TStrings; - i: Integer; begin if FConnectionID > -1 then begin @@ -191,6 +191,7 @@ begin else Extension := ''; + files := nil; files := ConManager.Connection[FConnectionID].GetFilesList(extension, pattern, no_zero_bytes, FSortBy); filelist.Visible := False; @@ -282,8 +283,6 @@ end; procedure TForm_ToolTemplate.combo_connectionChange(Sender: TObject); var name: String; - nstart, nend: Integer; - i: Integer; begin if combo_connection.ItemIndex >= 0 then begin @@ -345,8 +344,6 @@ begin if Pos(ext, ToolList[i].exts) = 0 then filepopup.Items.Items[i].Enabled := False; end; - filepopup.Items.Find('What links here?').Enabled := - ConManager.Connection[FConnectionID].Backend = DB_ADB; end; procedure TForm_ToolTemplate.check_zerobyteClick(Sender: TObject);