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

fix, linux version, to open a source from the mini explorer could lead to a mess in the project due to double backslash/rel path resoltion

This commit is contained in:
Basile Burg 2015-10-22 01:59:05 +02:00
parent a13603f286
commit 2a3cb6dba1
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ce_miniexplorer.lfm
View File

@ -28,7 +28,7 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
AutoWidthLastColumn = True AutoWidthLastColumn = True
Columns = < Columns = <
item item
Width = 319 Width = 314
end> end>
ReadOnly = True ReadOnly = True
ShowColumnHeaders = False ShowColumnHeaders = False
@ -61,7 +61,7 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
Top = 32 Top = 32
Width = 335 Width = 335
Align = alTop Align = alTop
DefaultItemHeight = 18 DefaultItemHeight = 16
Images = imgList Images = imgList
ReadOnly = True ReadOnly = True
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
@ -88,7 +88,7 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
AutoWidthLastColumn = True AutoWidthLastColumn = True
Columns = < Columns = <
item item
Width = 319 Width = 314
end> end>
ReadOnly = True ReadOnly = True
ShowColumnHeaders = False ShowColumnHeaders = False

3
src/ce_miniexplorer.pas
View File

@ -298,6 +298,9 @@ begin
if lstFiles.Selected.Data = nil then exit; if lstFiles.Selected.Data = nil then exit;
fname := PString(lstFiles.Selected.Data)^; fname := PString(lstFiles.Selected.Data)^;
if not fileExists(fname) then exit; if not fileExists(fname) then exit;
{$IFNDEF WINDOWS}
fname := fname[2..length(fname)];
{$ENDIF}
getMultiDocHandler.openDocument(fname); getMultiDocHandler.openDocument(fname);
end; end;