From 41d29fd3a5057214f00c10fd4cb416fc3431d72d Mon Sep 17 00:00:00 2001
From: Markus Quaritsch <markus.quaritsch@tugraz.at>
Date: Mon, 16 Apr 2018 15:40:26 +0200
Subject: [PATCH] filebrower: corrected icon display in file list

---
 VECTO/File Browser/FileBrowserDialog.vb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/VECTO/File Browser/FileBrowserDialog.vb b/VECTO/File Browser/FileBrowserDialog.vb
index 444f2672cc..330397ea1a 100644
--- a/VECTO/File Browser/FileBrowserDialog.vb	
+++ b/VECTO/File Browser/FileBrowserDialog.vb	
@@ -827,12 +827,12 @@ Public Class FileBrowserDialog
 		Try
 			'Add Folder
 			Dim di As New DirectoryInfo(_myFolder)
-			Dim aryFi As FileInfo()
+			'Dim aryFi As FileInfo()
 			Dim fi As FileInfo
-			Dim x = -1
+			Dim x = ImageList1.Images.Count - 1
 			For Each SearchExt In extStr
 				Dim searchPat = "*" & Trim(searchFile) & "*." & Trim(SearchExt)
-				aryFi = di.GetFiles(searchPat)
+				Dim aryFi = di.GetFiles(searchPat)
 				For Each fi In aryFi
 					x += 1
 					Dim shinfo = New SHFILEINFO()
-- 
GitLab