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

fix open local phobos html 

but LCL bug with anchor: http://bugs.freepascal.org/view.php?id=30326
This commit is contained in:
Basile Burg 2016-06-29 23:51:46 +02:00
parent 30de2aee7a
commit 6fb523e8b8
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/ce_synmemo.pas
View File

@ -9,7 +9,7 @@ uses
SynEdit, SynPluginSyncroEdit, SynCompletion, SynEditKeyCmds, LazSynEditText, SynEdit, SynPluginSyncroEdit, SynCompletion, SynEditKeyCmds, LazSynEditText,
SynHighlighterLFM, SynEditHighlighter, SynEditMouseCmds, SynEditFoldedView, SynHighlighterLFM, SynEditHighlighter, SynEditMouseCmds, SynEditFoldedView,
SynEditMarks, SynEditTypes, SynHighlighterJScript, SynBeautifier, dialogs, SynEditMarks, SynEditTypes, SynHighlighterJScript, SynBeautifier, dialogs,
fpjson, jsonparser, fpjson, jsonparser, LCLIntf,
ce_common, ce_observer, ce_writableComponent, ce_d2syn, ce_txtsyn, ce_dialogs, ce_common, ce_observer, ce_writableComponent, ce_d2syn, ce_txtsyn, ce_dialogs,
ce_sharedres, ce_dlang, ce_stringrange; ce_sharedres, ce_dlang, ce_stringrange;
@ -1219,6 +1219,9 @@ begin
or rng.startsWith('etc' + DirectorySeparator) then or rng.startsWith('etc' + DirectorySeparator) then
break; break;
end; end;
if fPhobosDocRoot.dirExists then
pth := 'file://' + fPhobosDocRoot
else
pth := fPhobosDocRoot; pth := fPhobosDocRoot;
while not rng.empty do while not rng.empty do
begin begin
@ -1229,7 +1232,13 @@ begin
rng.popFront; rng.popFront;
end; end;
pth += idt; pth += idt;
shellOpen(pth); {$IFDEF WINDOWS}
if fPhobosDocRoot.dirExists then
for i:= 1 to pth.length do
if pth[i] = '\' then
pth[i] := '/';
{$ENDIF}
OpenURL(pth);
end; end;
procedure TCESynMemo.copy; procedure TCESynMemo.copy;