paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-25 13:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: compiler options: added mode delphiunicode and iso

Browse Source 
git-svn-id: trunk@51663 -
This commit is contained in:
mattias 2016-02-19 09:27:41 +00:00
parent 16ae7e4693
commit e727676a1e
2 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/frames/compiler_parsing_options.pas
View File

@ -36,13 +36,17 @@ begin
if CompareText(Mode, 'ObjFPC') = 0 then
Result := lisObjectPascalDefault + ' (-Mobjfpc)'
else if CompareText(Mode, 'Delphi') = 0 then
Result := lisDelphi + ' (-Mdelphi)'
Result := 'Delphi (-Mdelphi)'
else if CompareText(Mode, 'DelphiUnicode') = 0 then
Result := 'DelphiUnicode (-Mdelphiunicode)'
else if CompareText(Mode, 'tp') = 0 then
Result := lisTurboPascal + ' (-Mtp)'
Result := 'Turbo Pascal (-Mtp)'
else if CompareText(Mode, 'fpc') = 0 then
Result := lisFreePascal + ' (-Mfpc)'
Result := 'Free Pascal (-Mfpc)'
else if CompareText(Mode, 'macpas') = 0 then
Result := lisMacPascal + ' (-Mmacpas)'
Result := 'Mac Pascal (-Mmacpas)'
else if CompareText(Mode, 'iso') = 0 then
Result := 'ISO/IEC 7185 Pascal (-Miso)'
else
Result := '';
end;
@ -51,12 +55,16 @@ function CaptionToSyntaxMode(const Caption: string): string;
begin
if Pos('-Mdelphi', Caption) > 0 then
Result := 'Delphi'
else if Pos('-Mdelphiunicode', Caption) > 0 then
Result := 'delphiunicode'
else if Pos('-Mfpc', Caption) > 0 then
Result := 'fpc'
else if Pos('-Mtp', Caption) > 0 then
Result := 'tp'
else if Pos('-Mmacpas', Caption) > 0 then
Result := 'macpas'
else if Pos('-Mfpc', Caption) > 0 then
Result := 'fpc'
else if Pos('-Miso', Caption) > 0 then
Result := 'iso'
else
Result := 'ObjFPC';
end;

4
ide/lazarusidestrconsts.pas
View File

@ -5431,10 +5431,6 @@ resourcestring
lisUseAnsistrings = 'Use Ansistrings';
lisDoNotShowThisDialogForThisProject = 'Do not show this dialog for this project';
lisObjectPascalDefault = 'Object Pascal - default';
lisDelphi = 'Delphi';
lisTurboPascal = 'Turbo Pascal';
lisMacPascal = 'Mac Pascal';
lisFreePascal = 'Free Pascal';
lisVerifyMethodCalls = 'Verify method calls';
lisToggleShowingFilenamesWithFullPathOrWithRelativePa = 'Toggle showing '
+'filenames with full path or with relative path';