From 99bcbc5d15758d05e1d6fb975c7f10a3f8fc07f3 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Tue, 16 Dec 2014 08:27:12 +0100
Subject: [PATCH] fix b00b2d5, case issue.

---
 src/ce_miniexplorer.pas | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/ce_miniexplorer.pas b/src/ce_miniexplorer.pas
index 8fbd2dd9..223c4a03 100644
--- a/src/ce_miniexplorer.pas
+++ b/src/ce_miniexplorer.pas
@@ -94,8 +94,8 @@ begin
   Tree.OnSelectionChanged := @treeSelectionChanged;
   Tree.OnExpanding := @treeExpanding;
 
-  // the filter is just used as a GUI element and reveals:
   // http://bugs.freepascal.org/view.php?id=27137
+  // TODO-cCleanup: remove comment after next Laz release
   lstFilter.FilteredListbox := nil;
   lstFilter.onChange := @lstFilterChange;
   //
@@ -422,7 +422,6 @@ begin
   treeScanSubFolders(Tree.Selected);
 end;
 
-// TODO-cbugfix: fails with "View in mini explorer", src files of the project resource.d
 procedure TCEMiniExplorerWidget.expandPath(const aPath: string);
 var
   i: NativeInt;
@@ -436,7 +435,7 @@ begin
   for i := 0 to aRoot.Count-1 do
   begin
     str := PString(aRoot.Items[i].Data)^;
-    if LeftStr(aPath, length(str)) = str then
+    if SameText(LeftStr(aPath, length(str)), str) then
     begin
       result := true;
       Tree.Selected := aRoot.Items[i];