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

View File

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

View File

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