paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-24 07:59:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: run parameters: default terminal and PATH use UTF-8

Browse Source 
git-svn-id: trunk@53284 -
This commit is contained in:
mattias 2016-11-02 11:14:14 +00:00
parent 887269a2be
commit 43d6a1e7ab
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/runparamsopts.pas
View File

@ -50,7 +50,7 @@ uses
Classes, SysUtils, LCLProc, Controls, Forms, Buttons, StdCtrls, ComCtrls,
Dialogs, ExtCtrls, BaseIDEIntf, IDEHelpIntf, ProjectIntf, IDEDialogs,
IDEProcs, SysVarUserOverrideDlg, InputHistory, LazarusIDEStrConsts, LazFileUtils,
Laz2_XMLCfg, LazFileCache, ButtonPanel;
Laz2_XMLCfg, LazFileCache, LazUTF8, ButtonPanel;
{ The xml format version:
When the format changes (new values, changed formats) we can distinguish old
@ -166,10 +166,10 @@ begin
{$ENDIF}
Term := ATerm;
if Term = '' then
Term := GetEnvironmentVariable('TERM');
Term := GetEnvironmentVariableUTF8('TERM');
if Term = '' then
Term := 'xterm';
List.DelimitedText := GetEnvironmentVariable('PATH');
List.DelimitedText := GetEnvironmentVariableUTF8('PATH');
for i := 0 to List.Count - 1 do
begin
S := List.Strings[i] + PathDelim + Term;