forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix b00b2d5, case issue.

This commit is contained in:
Basile Burg 2014-12-16 08:27:12 +01:00
parent 19ff4f214f
commit 99bcbc5d15
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ce_miniexplorer.pas
View File

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