ide: add compiler parsing options to the common dialog

git-svn-id: trunk@23334 -

.gitattributes

@@ -3399,6 +3399,9 @@ ide/frames/codetools_wordpolicy_options.pas svneol=native#text/pascal
 ide/frames/compiler_messages_options.lfm svneol=native#text/plain
 ide/frames/compiler_messages_options.lrs svneol=native#text/plain
 ide/frames/compiler_messages_options.pas svneol=native#text/plain
+ide/frames/compiler_parsing_options.lfm svneol=native#text/plain
+ide/frames/compiler_parsing_options.lrs svneol=native#text/plain
+ide/frames/compiler_parsing_options.pas svneol=native#text/plain
 ide/frames/compiler_path_options.lfm svneol=native#text/plain
 ide/frames/compiler_path_options.lrs svneol=native#text/plain
 ide/frames/compiler_path_options.pas svneol=native#text/plain

ide/frames/compiler_parsing_options.lfm

@@ -0,0 +1,88 @@
+inherited CompilerParsingOptionsFrame: TCompilerParsingOptionsFrame
+  Height = 410
+  Width = 580
+  ClientHeight = 410
+  ClientWidth = 580
+  TabOrder = 0
+  DesignLeft = 360
+  DesignTop = 210
+  object grpSyntaxMode: TGroupBox[0]
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Owner
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    Left = 0
+    Height = 51
+    Top = 0
+    Width = 580
+    Anchors = [akTop, akLeft, akRight]
+    AutoSize = True
+    Caption = 'grpSyntaxMode'
+    ClientHeight = 33
+    ClientWidth = 576
+    TabOrder = 0
+    object cmbSyntaxMode: TComboBox
+      AnchorSideRight.Control = grpSyntaxMode
+      AnchorSideRight.Side = asrBottom
+      Left = 6
+      Height = 21
+      Top = 6
+      Width = 564
+      Align = alLeft
+      Anchors = [akTop, akLeft, akRight, akBottom]
+      BorderSpacing.Around = 6
+      ItemHeight = 13
+      Style = csDropDownList
+      TabOrder = 0
+    end
+  end
+  object grpAsmStyle: TRadioGroup[1]
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = grpSyntaxOptions
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    Left = 0
+    Height = 40
+    Top = 321
+    Width = 580
+    Anchors = [akTop, akLeft, akRight]
+    AutoFill = True
+    BorderSpacing.Top = 6
+    Caption = 'grpAsmStyle'
+    ChildSizing.LeftRightSpacing = 6
+    ChildSizing.TopBottomSpacing = 6
+    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+    ChildSizing.EnlargeVertical = crsHomogenousChildResize
+    ChildSizing.ShrinkHorizontal = crsScaleChilds
+    ChildSizing.ShrinkVertical = crsScaleChilds
+    ChildSizing.Layout = cclLeftToRightThenTopToBottom
+    ChildSizing.ControlsPerLine = 3
+    Columns = 3
+    TabOrder = 1
+  end
+  object grpSyntaxOptions: TCheckGroup[2]
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = grpSyntaxMode
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    Left = 0
+    Height = 258
+    Top = 57
+    Width = 580
+    Anchors = [akTop, akLeft, akRight]
+    AutoFill = True
+    BorderSpacing.Top = 6
+    Caption = 'grpSyntaxOptions'
+    ChildSizing.LeftRightSpacing = 6
+    ChildSizing.TopBottomSpacing = 6
+    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+    ChildSizing.EnlargeVertical = crsHomogenousChildResize
+    ChildSizing.ShrinkHorizontal = crsScaleChilds
+    ChildSizing.ShrinkVertical = crsScaleChilds
+    ChildSizing.Layout = cclLeftToRightThenTopToBottom
+    ChildSizing.ControlsPerLine = 1
+    TabOrder = 2
+  end
+end

ide/frames/compiler_parsing_options.lrs

@@ -0,0 +1,40 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TCompilerParsingOptionsFrame','FORMDATA',[
+  'TPF0'#241#28'TCompilerParsingOptionsFrame'#27'CompilerParsingOptionsFrame'#6
+  +'Height'#3#154#1#5'Width'#3'D'#2#12'ClientHeight'#3#154#1#11'ClientWidth'#3
+  +'D'#2#8'TabOrder'#2#0#10'DesignLeft'#3'h'#1#9'DesignTop'#3#210#0#0#242#2#0#9
+  +'TGroupBox'#13'grpSyntaxMode'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Ancho'
+  +'rSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'Anch'
+  +'orSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2'3'#3'Top'#2#0#5'Wi'
+  +'dth'#3'D'#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#7'C'
+  +'aption'#6#13'grpSyntaxMode'#12'ClientHeight'#2'!'#11'ClientWidth'#3'@'#2#8
+  +'TabOrder'#2#0#0#9'TComboBox'#13'cmbSyntaxMode'#23'AnchorSideRight.Control'#7
+  +#13'grpSyntaxMode'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Hei'
+  +'ght'#2#21#3'Top'#2#6#5'Width'#3'4'#2#5'Align'#7#6'alLeft'#7'Anchors'#11#5'a'
+  +'kTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#10'It'
+  +'emHeight'#2#13#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#0#0#0#0#242#2#1
+  +#11'TRadioGroup'#11'grpAsmStyle'#22'AnchorSideLeft.Control'#7#5'Owner'#21'An'
+  +'chorSideTop.Control'#7#16'grpSyntaxOptions'#18'AnchorSideTop.Side'#7#9'asrB'
+  +'ottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9
+  +'asrBottom'#4'Left'#2#0#6'Height'#2'('#3'Top'#3'A'#1#5'Width'#3'D'#2#7'Ancho'
+  +'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoFill'#9#17'BorderSpacing.Top'#2
+  +#6#7'Caption'#6#11'grpAsmStyle'#28'ChildSizing.LeftRightSpacing'#2#6#28'Chil'
+  +'dSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHom'
+  +'ogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChild'
+  +'Resize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizin'
+  +'g.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftT'
+  +'oRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#3#7'Columns'#2#3#8
+  +'TabOrder'#2#1#0#0#242#2#2#11'TCheckGroup'#16'grpSyntaxOptions'#22'AnchorSid'
+  +'eLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#13'grpSyntaxMode'#18
+  +'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20
+  +'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#3#2#1#3'Top'#2'9'
+  +#5'Width'#3'D'#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoFill'#9
+  +#17'BorderSpacing.Top'#2#6#7'Caption'#6#16'grpSyntaxOptions'#28'ChildSizing.'
+  +'LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.E'
+  +'nlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVert'
+  +'ical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14
+  +'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'Chil'
+  +'dSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Controls'
+  +'PerLine'#2#1#8'TabOrder'#2#2#0#0#0
+]);

ide/frames/compiler_parsing_options.pas

@@ -0,0 +1,172 @@
+unit compiler_parsing_options;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
+  StdCtrls, ExtCtrls, IDEOptionsIntf, Project, CompilerOptions, LinkScanner,
+  LazarusIDEStrConsts;
+
+type
+
+  { TCompilerParsingOptionsFrame }
+
+  TCompilerParsingOptionsFrame = class(TAbstractIDEOptionsEditor)
+    cmbSyntaxMode: TComboBox;
+    grpAsmStyle: TRadioGroup;
+    grpSyntaxMode: TGroupBox;
+    grpSyntaxOptions: TCheckGroup;
+  public
+    function GetTitle: string; override;
+    procedure Setup(ADialog: TAbstractOptionsEditorDialog); override;
+    procedure ReadSettings(AOptions: TAbstractIDEOptions); override;
+    procedure WriteSettings(AOptions: TAbstractIDEOptions); override;
+    class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;
+  end;
+
+implementation
+
+function SyntaxModeToCaption(const Mode: string): string;
+begin
+  if SysUtils.CompareText(Mode, 'ObjFPC') = 0 then
+    Result := lisObjectPascalDefault + ' (-Mobjfpc)'
+  else if SysUtils.CompareText(Mode, 'Delphi') = 0 then
+    Result := lisDelphi + ' (-Mdelphi)'
+  else if SysUtils.CompareText(Mode, 'tp') = 0 then
+    Result := lisTurboPascal + ' (-Mtp)'
+  else if SysUtils.CompareText(Mode, 'fpc') = 0 then
+    Result := lisFreePascal + ' (-Mfpc)'
+  else if SysUtils.CompareText(Mode, 'macpas') = 0 then
+    Result := lisMacPascal + ' (-Mmacpas)'
+  else
+    Result := '';
+end;
+
+function CaptionToSyntaxMode(const Caption: string): string;
+begin
+  if System.Pos('-Mdelphi', Caption) > 0 then
+    Result := 'Delphi'
+  else if System.Pos('-Mtp', Caption) > 0 then
+    Result := 'tp'
+  else if System.Pos('-Mmacpas', Caption) > 0 then
+    Result := 'macpas'
+  else if System.Pos('-Mfpc', Caption) > 0 then
+    Result := 'fpc'
+  else
+    Result := 'ObjFPC';
+end;
+
+{ TCompilerParsingOptionsFrame }
+
+function TCompilerParsingOptionsFrame.GetTitle: string;
+begin
+  Result := dlgCOParsing;
+end;
+
+procedure TCompilerParsingOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
+var
+  m: TCompilerMode;
+  s: string;
+begin
+  with grpAsmStyle do
+  begin
+    Caption := dlgCOAsmStyle + ' (-R)';
+
+    with Items do
+    begin
+      BeginUpdate;
+      Add(dlgAssemblerDefault);
+      Add('Intel');
+      Add('AT&&T');
+      EndUpdate;
+    end;
+  end;
+
+  with grpSyntaxOptions do
+  begin
+    AutoSize := True;
+    Caption := dlgSyntaxOptions;
+
+    Items.Add(dlgCOCOps + ' (-Sc)');
+    Items.Add(dlgAssertCode + ' (-Sa)');
+    Items.Add(dlgLabelGoto + ' (-Sg)');
+    Items.Add(dlgCppInline + ' (-Si)');
+    Items.Add(dlgCMacro + ' (-Sm)');
+    Items.Add(dlgInitDoneOnly + ' (-Ss)');
+    Items.Add(dlgStaticKeyword + ' (-St)');
+    Items.Add(dlgCOAnsiStr + ' (-Sh)');
+  end;
+
+  grpSyntaxMode.Caption := lisSyntaxMode + ' (-M)';
+  cmbSyntaxMode.Items.BeginUpdate;
+  cmbSyntaxMode.Items.Clear;
+  for m := Low(TCompilerMode) to High(TCompilerMode) do
+  begin
+    s := SyntaxModeToCaption(CompilerModeNames[m]);
+    if s <> '' then
+      cmbSyntaxMode.Items.Add(s);
+  end;
+  cmbSyntaxMode.Items.EndUpdate;
+end;
+
+procedure TCompilerParsingOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
+begin
+  with AOptions as TProjectCompilerOptions do
+  begin
+    if (AssemblerStyle in [1,2,3]) then
+      grpAsmStyle.ItemIndex := AssemblerStyle
+    else
+      grpAsmStyle.ItemIndex := 0;
+
+    with grpSyntaxOptions do
+    begin
+      Checked[0] := CStyleOperators;
+      Checked[1] := IncludeAssertionCode;
+      Checked[2] := AllowLabel;
+      Checked[3] := CPPInline;
+      Checked[4] := CStyleMacros;
+      Checked[5] := InitConstructor;
+      Checked[6] := StaticKeyword;
+      Checked[7] := UseAnsiStrings;
+    end;
+
+    cmbSyntaxMode.Text := SyntaxModeToCaption(SyntaxMode);
+  end;
+end;
+
+procedure TCompilerParsingOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
+begin
+  with AOptions as TProjectCompilerOptions do
+  begin
+    AssemblerStyle := grpAsmStyle.ItemIndex;
+
+    with grpSyntaxOptions do
+    begin
+      CStyleOperators := Checked[0];
+      IncludeAssertionCode := Checked[1];
+      AllowLabel := Checked[2];
+      CPPInline := Checked[3];
+      CStyleMacros := Checked[4];
+      InitConstructor := Checked[5];
+      StaticKeyword := Checked[6];
+      UseAnsiStrings := Checked[7];
+    end;
+
+    SyntaxMode := CaptionToSyntaxMode(cmbSyntaxMode.Text);
+  end;
+end;
+
+class function TCompilerParsingOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
+begin
+  Result := TProjectCompilerOptions;
+end;
+
+initialization
+  {$I compiler_parsing_options.lrs}
+  RegisterIDEOptionsEditor(GroupCompiler, TCompilerParsingOptionsFrame,
+    CompilerOptionsParsing);
+
+end.
+

ide/frames/compiler_path_options.lfm

@@ -1,4 +1,4 @@
-inherited TCompilerPathOptionsFrame: TTCompilerPathOptionsFrame
+inherited CompilerPathOptionsFrame: TCompilerPathOptionsFrame
   Height = 356
   Width = 473
   ClientHeight = 356

ide/frames/compiler_path_options.lrs

@@ -1,82 +1,82 @@
 { This is an automatically generated lazarus resource file }
 
-LazarusResources.Add('TTCompilerPathOptionsFrame','FORMDATA',[
-  'TPF0'#241#26'TTCompilerPathOptionsFrame'#25'TCompilerPathOptionsFrame'#6'Hei'
-  +'ght'#3'd'#1#5'Width'#3#217#1#12'ClientHeight'#3'd'#1#11'ClientWidth'#3#217#1
-  +#8'TabOrder'#2#0#10'DesignLeft'#3'Z'#1#9'DesignTop'#3'H'#1#0#242#2#0#6'TLabe'
-  +'l'#13'lblOtherUnits'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop'
-  +'.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRi'
-  +'ght.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#14#3'Top'#2#0#5'Width'#3
-  +#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#13'lblOthe'
-  +'rUnits'#11'ParentColor'#8#0#0#242#2#1#6'TLabel'#15'lblIncludeFiles'#22'Anch'
-  +'orSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#13'edtOtherUnits'
-  +#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'
-  +#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#14#3'Top'#2
-  +')'#5'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'Border'
-  +'Spacing.Top'#2#6#7'Caption'#6#15'lblIncludeFiles'#11'ParentColor'#8#0#0#242
-  +#2#2#6'TLabel'#15'lblOtherSources'#22'AnchorSideLeft.Control'#7#5'Owner'#21
-  +'AnchorSideTop.Control'#7#15'edtIncludeFiles'#18'AnchorSideTop.Side'#7#9'asr'
+LazarusResources.Add('TCompilerPathOptionsFrame','FORMDATA',[
+  'TPF0'#241#25'TCompilerPathOptionsFrame'#24'CompilerPathOptionsFrame'#6'Heigh'
+  +'t'#3'd'#1#5'Width'#3#217#1#12'ClientHeight'#3'd'#1#11'ClientWidth'#3#217#1#8
+  +'TabOrder'#2#0#10'DesignLeft'#3'Z'#1#9'DesignTop'#3'H'#1#0#242#2#0#6'TLabel'
+  +#13'lblOtherUnits'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Co'
+  +'ntrol'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight'
+  +'.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#14#3'Top'#2#0#5'Width'#3#217#1
+  +#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#13'lblOtherUnits'
+  +#11'ParentColor'#8#0#0#242#2#1#6'TLabel'#15'lblIncludeFiles'#22'AnchorSideLe'
+  +'ft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#13'edtOtherUnits'#18'Anc'
+  +'horSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'A'
+  +'nchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#14#3'Top'#2')'#5
+  +'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpaci'
+  +'ng.Top'#2#6#7'Caption'#6#15'lblIncludeFiles'#11'ParentColor'#8#0#0#242#2#2#6
+  +'TLabel'#15'lblOtherSources'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anchor'
+  +'SideTop.Control'#7#15'edtIncludeFiles'#18'AnchorSideTop.Side'#7#9'asrBottom'
+  +#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBott'
+  +'om'#4'Left'#2#0#6'Height'#2#14#3'Top'#2'R'#5'Width'#3#217#1#7'Anchors'#11#5
+  +'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#7'Caption'#6#15'lbl'
+  +'OtherSources'#11'ParentColor'#8#0#0#242#2#3#6'TLabel'#12'lblLibraries'#22'A'
+  +'nchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#15'edtOtherSo'
+  +'urces'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5
+  +'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#14#3
+  +'Top'#2'{'#5'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17
+  +'BorderSpacing.Top'#2#6#7'Caption'#6#12'lblLibraries'#11'ParentColor'#8#0#0
+  +#242#2#4#6'TLabel'#16'lblUnitOutputDir'#22'AnchorSideLeft.Control'#7#5'Owner'
+  +#21'AnchorSideTop.Control'#7#12'edtLibraries'#18'AnchorSideTop.Side'#7#9'asr'
   +'Bottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9
-  +'asrBottom'#4'Left'#2#0#6'Height'#2#14#3'Top'#2'R'#5'Width'#3#217#1#7'Anchor'
-  +'s'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#7'Caption'#6
-  +#15'lblOtherSources'#11'ParentColor'#8#0#0#242#2#3#6'TLabel'#12'lblLibraries'
-  +#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#15'edtOth'
-  +'erSources'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'
-  +#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2
-  +#14#3'Top'#2'{'#5'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
-  +#0#17'BorderSpacing.Top'#2#6#7'Caption'#6#12'lblLibraries'#11'ParentColor'#8
-  +#0#0#242#2#4#6'TLabel'#16'lblUnitOutputDir'#22'AnchorSideLeft.Control'#7#5'O'
-  +'wner'#21'AnchorSideTop.Control'#7#12'edtLibraries'#18'AnchorSideTop.Side'#7
-  +#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'
-  +#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#14#3'Top'#3#164#0#5'Width'#3#217#1#7
-  +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#7'Cap'
-  +'tion'#6#16'lblUnitOutputDir'#11'ParentColor'#8#0#0#242#2#5#6'TLabel'#12'lbl'
-  +'DebugPath'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7
-  +#16'edtUnitOutputDir'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRig'
-  +'ht.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6
-  +'Height'#2#14#3'Top'#3#205#0#5'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'akLef'
-  +'t'#7'akRight'#0#17'BorderSpacing.Top'#2#6#7'Caption'#6#12'lblDebugPath'#11
-  +'ParentColor'#8#0#0#242#2#6#6'TLabel'#18'LCLWidgetTypeLabel'#22'AnchorSideLe'
-  +'ft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#21'LCLWidgetTypeComboBox'
-  +#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#0#6'Height'#2#14#3'Top'#3
-  +#249#0#5'Width'#2'e'#7'Caption'#6#18'LCLWidgetTypeLabel'#11'ParentColor'#8#0
-  +#0#242#2#7#5'TEdit'#13'edtOtherUnits'#22'AnchorSideLeft.Control'#7#5'Owner'
-  +#21'AnchorSideTop.Control'#7#13'lblOtherUnits'#18'AnchorSideTop.Side'#7#9'as'
-  +'rBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9
-  +'asrBottom'#4'Left'#2#0#6'Height'#2#21#3'Top'#2#14#5'Width'#3#217#1#7'Anchor'
-  +'s'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Bottom'#2#6#8'TabOrd'
-  +'er'#2#0#4'Text'#6#13'edtOtherUnits'#0#0#242#2#8#5'TEdit'#15'edtIncludeFiles'
-  +#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#15'lblInc'
-  +'ludeFiles'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'
-  +#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2
-  +#21#3'Top'#2'7'#5'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
-  +#0#20'BorderSpacing.Bottom'#2#6#8'TabOrder'#2#1#4'Text'#6#15'edtIncludeFiles'
-  +#0#0#242#2#9#5'TEdit'#15'edtOtherSources'#22'AnchorSideLeft.Control'#7#5'Own'
-  +'er'#21'AnchorSideTop.Control'#7#15'lblOtherSources'#18'AnchorSideTop.Side'#7
-  +#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'
-  +#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#21#3'Top'#2'`'#5'Width'#3#217#1#7'An'
-  +'chors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Bottom'#2#6#8'Ta'
-  +'bOrder'#2#2#4'Text'#6#15'edtOtherSources'#0#0#242#2#10#5'TEdit'#12'edtLibra'
-  +'ries'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#12
-  +'lblLibraries'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Cont'
-  +'rol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Heigh'
-  +'t'#2#21#3'Top'#3#137#0#5'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
-  +'akRight'#0#20'BorderSpacing.Bottom'#2#6#8'TabOrder'#2#3#4'Text'#6#12'edtLib'
-  +'raries'#0#0#242#2#11#5'TEdit'#16'edtUnitOutputDir'#22'AnchorSideLeft.Contro'
-  +'l'#7#5'Owner'#21'AnchorSideTop.Control'#7#16'lblUnitOutputDir'#18'AnchorSid'
-  +'eTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorS'
-  ,'ideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#21#3'Top'#3#178#0#5'W'
-  +'idth'#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacin'
-  +'g.Bottom'#2#6#8'TabOrder'#2#4#4'Text'#6#16'edtUnitOutputDir'#0#0#242#2#12#5
-  +'TEdit'#12'edtDebugPath'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSide'
-  +'Top.Control'#7#12'lblDebugPath'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'An'
-  +'chorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4
-  +'Left'#2#0#6'Height'#2#21#3'Top'#3#219#0#5'Width'#3#217#1#7'Anchors'#11#5'ak'
-  +'Top'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Bottom'#2#6#8'TabOrder'#2#5#4
-  +'Text'#6#12'edtDebugPath'#0#0#242#2#13#9'TComboBox'#21'LCLWidgetTypeComboBox'
-  +#22'AnchorSideLeft.Control'#7#18'LCLWidgetTypeLabel'#19'AnchorSideLeft.Side'
-  +#7#9'asrBottom'#21'AnchorSideTop.Control'#7#12'edtDebugPath'#18'AnchorSideTo'
-  +'p.Side'#7#9'asrBottom'#4'Left'#2'k'#6'Height'#2#21#3'Top'#3#246#0#5'Width'#3
-  +#171#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#10'ItemHeight'#2
-  +#13#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#6#0#0#0
+  +'asrBottom'#4'Left'#2#0#6'Height'#2#14#3'Top'#3#164#0#5'Width'#3#217#1#7'Anc'
+  +'hors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#7'Captio'
+  +'n'#6#16'lblUnitOutputDir'#11'ParentColor'#8#0#0#242#2#5#6'TLabel'#12'lblDeb'
+  +'ugPath'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#16
+  +'edtUnitOutputDir'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.'
+  +'Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'H'
+  +'eight'#2#14#3'Top'#3#205#0#5'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'
+  +#7'akRight'#0#17'BorderSpacing.Top'#2#6#7'Caption'#6#12'lblDebugPath'#11'Par'
+  +'entColor'#8#0#0#242#2#6#6'TLabel'#18'LCLWidgetTypeLabel'#22'AnchorSideLeft.'
+  +'Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#21'LCLWidgetTypeComboBox'#18
+  +'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#0#6'Height'#2#14#3'Top'#3#249#0
+  +#5'Width'#2'e'#7'Caption'#6#18'LCLWidgetTypeLabel'#11'ParentColor'#8#0#0#242
+  +#2#7#5'TEdit'#13'edtOtherUnits'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anc'
+  +'horSideTop.Control'#7#13'lblOtherUnits'#18'AnchorSideTop.Side'#7#9'asrBotto'
+  +'m'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrB'
+  +'ottom'#4'Left'#2#0#6'Height'#2#21#3'Top'#2#14#5'Width'#3#217#1#7'Anchors'#11
+  +#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Bottom'#2#6#8'TabOrder'#2#0
+  +#4'Text'#6#13'edtOtherUnits'#0#0#242#2#8#5'TEdit'#15'edtIncludeFiles'#22'Anc'
+  +'horSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#15'lblIncludeFi'
+  +'les'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5
+  +'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#21#3
+  +'Top'#2'7'#5'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20
+  +'BorderSpacing.Bottom'#2#6#8'TabOrder'#2#1#4'Text'#6#15'edtIncludeFiles'#0#0
+  +#242#2#9#5'TEdit'#15'edtOtherSources'#22'AnchorSideLeft.Control'#7#5'Owner'
+  +#21'AnchorSideTop.Control'#7#15'lblOtherSources'#18'AnchorSideTop.Side'#7#9
+  +'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7
+  +#9'asrBottom'#4'Left'#2#0#6'Height'#2#21#3'Top'#2'`'#5'Width'#3#217#1#7'Anch'
+  +'ors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Bottom'#2#6#8'TabO'
+  +'rder'#2#2#4'Text'#6#15'edtOtherSources'#0#0#242#2#10#5'TEdit'#12'edtLibrari'
+  +'es'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#12'lb'
+  +'lLibraries'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Contro'
+  +'l'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'
+  +#2#21#3'Top'#3#137#0#5'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akR'
+  +'ight'#0#20'BorderSpacing.Bottom'#2#6#8'TabOrder'#2#3#4'Text'#6#12'edtLibrar'
+  +'ies'#0#0#242#2#11#5'TEdit'#16'edtUnitOutputDir'#22'AnchorSideLeft.Control'#7
+  +#5'Owner'#21'AnchorSideTop.Control'#7#16'lblUnitOutputDir'#18'AnchorSideTop.'
+  +'Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRi'
+  ,'ght.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#21#3'Top'#3#178#0#5'Width'
+  +#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Bott'
+  +'om'#2#6#8'TabOrder'#2#4#4'Text'#6#16'edtUnitOutputDir'#0#0#242#2#12#5'TEdit'
+  +#12'edtDebugPath'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Con'
+  +'trol'#7#12'lblDebugPath'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSid'
+  +'eRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2
+  +#0#6'Height'#2#21#3'Top'#3#219#0#5'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'a'
+  +'kLeft'#7'akRight'#0#20'BorderSpacing.Bottom'#2#6#8'TabOrder'#2#5#4'Text'#6
+  +#12'edtDebugPath'#0#0#242#2#13#9'TComboBox'#21'LCLWidgetTypeComboBox'#22'Anc'
+  +'horSideLeft.Control'#7#18'LCLWidgetTypeLabel'#19'AnchorSideLeft.Side'#7#9'a'
+  +'srBottom'#21'AnchorSideTop.Control'#7#12'edtDebugPath'#18'AnchorSideTop.Sid'
+  +'e'#7#9'asrBottom'#4'Left'#2'k'#6'Height'#2#21#3'Top'#3#246#0#5'Width'#3#171
+  +#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#10'ItemHeight'#2#13#5
+  +'Style'#7#14'csDropDownList'#8'TabOrder'#2#6#0#0#0
 ]);

ide/frames/compiler_path_options.pas

@@ -12,9 +12,9 @@ uses
 
 type
 
-  { TTCompilerPathOptionsFrame }
+  { TCompilerPathOptionsFrame }
 
-  TTCompilerPathOptionsFrame = class(TAbstractIDEOptionsEditor)
+  TCompilerPathOptionsFrame = class(TAbstractIDEOptionsEditor)
     edtDebugPath: TEdit;
     edtIncludeFiles: TEdit;
     edtLibraries: TEdit;
@@ -53,9 +53,9 @@ type
 
 implementation
 
-{ TTCompilerPathOptionsFrame }
+{ TCompilerPathOptionsFrame }
 
-function TTCompilerPathOptionsFrame.Check: boolean;
+function TCompilerPathOptionsFrame.Check: boolean;
 
   function CheckPutSearchPath(
   const Context, OldExpandedPath, NewExpandedPath: string): boolean;
@@ -108,12 +108,12 @@ begin
   Result := True;
 end;
 
-function TTCompilerPathOptionsFrame.GetTitle: string;
+function TCompilerPathOptionsFrame.GetTitle: string;
 begin
   Result := dlgSearchPaths;
 end;
 
-function TTCompilerPathOptionsFrame.CheckSearchPath(const Context, ExpandedPath: string;
+function TCompilerPathOptionsFrame.CheckSearchPath(const Context, ExpandedPath: string;
   Level: TCheckCompileOptionsMsgLvl): boolean;
 var
   CurPath: string;
@@ -179,7 +179,7 @@ begin
   Result := True;
 end;
 
-procedure TTCompilerPathOptionsFrame.PathEditBtnClick(Sender: TObject);
+procedure TCompilerPathOptionsFrame.PathEditBtnClick(Sender: TObject);
 var
   AButton: TPathEditorButton;
   OldPath, Templates: string;
@@ -233,7 +233,7 @@ begin
   end;
 end;
 
-procedure TTCompilerPathOptionsFrame.PathEditBtnExecuted(Sender: TObject);
+procedure TCompilerPathOptionsFrame.PathEditBtnExecuted(Sender: TObject);
 
   function CheckPath(const Context, NewPath: string): boolean;
   var
@@ -288,7 +288,7 @@ begin
   end;
 end;
 
-procedure TTCompilerPathOptionsFrame.FileBrowseBtnClick(Sender: TObject);
+procedure TCompilerPathOptionsFrame.FileBrowseBtnClick(Sender: TObject);
 var
   OpenDialog: TOpenDialog;
   DefaultFilename: string;
@@ -321,7 +321,7 @@ begin
   end;
 end;
 
-procedure TTCompilerPathOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
+procedure TCompilerPathOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
 var
   LCLInterface: TLCLPlatform;
   s: string;
@@ -458,7 +458,7 @@ begin
   end;
 end;
 
-procedure TTCompilerPathOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
+procedure TCompilerPathOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
 var
   LCLPlatform: TLCLPlatform;
 begin
@@ -480,7 +480,7 @@ begin
   end;
 end;
 
-procedure TTCompilerPathOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
+procedure TCompilerPathOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
 var
   i: integer;
 begin
@@ -501,14 +501,14 @@ begin
   end;
 end;
 
-class function TTCompilerPathOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
+class function TCompilerPathOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
 begin
   Result := TProjectCompilerOptions;
 end;
 
 initialization
   {$I compiler_path_options.lrs}
-  RegisterIDEOptionsEditor(GroupCompiler, TTCompilerPathOptionsFrame,
+  RegisterIDEOptionsEditor(GroupCompiler, TCompilerPathOptionsFrame,
     CompilerOptionsSearchPaths);
 
 end.

ide/lazarus.lpi

@@ -43,7 +43,7 @@
         <PackageName Value="SynEdit"/>
       </Item4>
     </RequiredPackages>
-    <Units Count="61">
+    <Units Count="62">
       <Unit0>
         <Filename Value="lazarus.pp"/>
         <IsPartOfProject Value="True"/>
@@ -459,10 +459,17 @@
       <Unit60>
         <Filename Value="frames/compiler_path_options.pas"/>
         <IsPartOfProject Value="True"/>
-        <ComponentName Value="TCompilerPathOptionsFrame"/>
+        <ComponentName Value="CompilerPathOptionsFrame"/>
         <ResourceBaseClass Value="Frame"/>
         <UnitName Value="compiler_path_options"/>
       </Unit60>
+      <Unit61>
+        <Filename Value="frames/compiler_parsing_options.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="CompilerParsingOptionsFrame"/>
+        <ResourceBaseClass Value="Frame"/>
+        <UnitName Value="compiler_parsing_options"/>
+      </Unit61>
     </Units>
   </ProjectOptions>
   <CompilerOptions>

ide/main.pp

@@ -126,7 +126,7 @@ uses
   project_save_options, project_versioninfo_options, project_i18n_options,
   project_misc_options,
   // project compiler options
-  compiler_path_options, compiler_messages_options,
+  compiler_path_options, compiler_parsing_options, compiler_messages_options,
 
   PublishModule, EnvironmentOpts, TransferMacros, KeyMapping, IDETranslations,
   IDEProcs, ExtToolDialog, ExtToolEditDlg, OutputFilter, JumpHistoryView,