paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 12:29:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: run params default for windows

Browse Source 
git-svn-id: trunk@62674 -
This commit is contained in:
mattias 2020-02-26 16:53:29 +00:00
parent 545444126b
commit 7b68c36225
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/runparamsopts.pas
View File

@ -227,17 +227,19 @@ var
Term: String;
begin
Result := '';
List := TStringList.Create;
{$IFDEF MSWINDOWS}
List.Delimiter := ';';
{$ELSE}
List.Delimiter := ':';
{$ENDIF}
Term := ATerm;
if Term = '' then
Term := GetEnvironmentVariableUTF8('TERM');
List := TStringList.Create;
{$IFDEF MSWINDOWS}
List.Delimiter := ';';
if Term = '' then
Term := 'cmd.exe';
{$ELSE}
List.Delimiter := ':';
if Term = '' then
Term := 'xterm';
{$ENDIF}
List.DelimitedText := GetEnvironmentVariableUTF8('PATH');
for i := 0 to List.Count - 1 do
begin
@ -248,6 +250,8 @@ begin
if Term = 'gnome-terminal' then
Result := S + ' -t ' + DefaultLauncherTitle + ' -e ' +
'''' + DefaultLauncherApplication + ''''
else if SameText(Term,'cmd.exe') then
Result := S + ' /C ${TargetCmdLine}'
else
Result := S + ' -T ' + DefaultLauncherTitle + ' -e ' +
DefaultLauncherApplication;