paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 16:39:19 +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; Term: String;
begin begin
Result := ''; Result := '';
List := TStringList.Create;
{$IFDEF MSWINDOWS}
List.Delimiter := ';';
{$ELSE}
List.Delimiter := ':';
{$ENDIF}
Term := ATerm; Term := ATerm;
if Term = '' then if Term = '' then
Term := GetEnvironmentVariableUTF8('TERM'); Term := GetEnvironmentVariableUTF8('TERM');
List := TStringList.Create;
{$IFDEF MSWINDOWS}
List.Delimiter := ';';
if Term = '' then
Term := 'cmd.exe';
{$ELSE}
List.Delimiter := ':';
if Term = '' then if Term = '' then
Term := 'xterm'; Term := 'xterm';
{$ENDIF}
List.DelimitedText := GetEnvironmentVariableUTF8('PATH'); List.DelimitedText := GetEnvironmentVariableUTF8('PATH');
for i := 0 to List.Count - 1 do for i := 0 to List.Count - 1 do
begin begin
@ -248,6 +250,8 @@ begin
if Term = 'gnome-terminal' then if Term = 'gnome-terminal' then
Result := S + ' -t ' + DefaultLauncherTitle + ' -e ' + Result := S + ' -t ' + DefaultLauncherTitle + ' -e ' +
'''' + DefaultLauncherApplication + '''' '''' + DefaultLauncherApplication + ''''
else if SameText(Term,'cmd.exe') then
Result := S + ' /C ${TargetCmdLine}'
else else
Result := S + ' -T ' + DefaultLauncherTitle + ' -e ' + Result := S + ' -T ' + DefaultLauncherTitle + ' -e ' +
DefaultLauncherApplication; DefaultLauncherApplication;