mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 12:59:14 +02:00
ide: add compiler parsing options to the common dialog
git-svn-id: trunk@23334 -
This commit is contained in:
parent
974f544515
commit
4573043677
3
.gitattributes
vendored
3
.gitattributes
vendored
@ -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.lfm svneol=native#text/plain
|
||||||
ide/frames/compiler_messages_options.lrs 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_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.lfm svneol=native#text/plain
|
||||||
ide/frames/compiler_path_options.lrs 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_path_options.pas svneol=native#text/plain
|
||||||
|
88
ide/frames/compiler_parsing_options.lfm
Normal file
88
ide/frames/compiler_parsing_options.lfm
Normal file
@ -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
|
40
ide/frames/compiler_parsing_options.lrs
Normal file
40
ide/frames/compiler_parsing_options.lrs
Normal file
@ -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
|
||||||
|
]);
|
172
ide/frames/compiler_parsing_options.pas
Normal file
172
ide/frames/compiler_parsing_options.pas
Normal file
@ -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.
|
||||||
|
|
@ -1,4 +1,4 @@
|
|||||||
inherited TCompilerPathOptionsFrame: TTCompilerPathOptionsFrame
|
inherited CompilerPathOptionsFrame: TCompilerPathOptionsFrame
|
||||||
Height = 356
|
Height = 356
|
||||||
Width = 473
|
Width = 473
|
||||||
ClientHeight = 356
|
ClientHeight = 356
|
||||||
|
@ -1,82 +1,82 @@
|
|||||||
{ This is an automatically generated lazarus resource file }
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
LazarusResources.Add('TTCompilerPathOptionsFrame','FORMDATA',[
|
LazarusResources.Add('TCompilerPathOptionsFrame','FORMDATA',[
|
||||||
'TPF0'#241#26'TTCompilerPathOptionsFrame'#25'TCompilerPathOptionsFrame'#6'Hei'
|
'TPF0'#241#25'TCompilerPathOptionsFrame'#24'CompilerPathOptionsFrame'#6'Heigh'
|
||||||
+'ght'#3'd'#1#5'Width'#3#217#1#12'ClientHeight'#3'd'#1#11'ClientWidth'#3#217#1
|
+'t'#3'd'#1#5'Width'#3#217#1#12'ClientHeight'#3'd'#1#11'ClientWidth'#3#217#1#8
|
||||||
+#8'TabOrder'#2#0#10'DesignLeft'#3'Z'#1#9'DesignTop'#3'H'#1#0#242#2#0#6'TLabe'
|
+'TabOrder'#2#0#10'DesignLeft'#3'Z'#1#9'DesignTop'#3'H'#1#0#242#2#0#6'TLabel'
|
||||||
+'l'#13'lblOtherUnits'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop'
|
+#13'lblOtherUnits'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Co'
|
||||||
+'.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRi'
|
+'ntrol'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight'
|
||||||
+'ght.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#14#3'Top'#2#0#5'Width'#3
|
+'.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#14#3'Top'#2#0#5'Width'#3#217#1
|
||||||
+#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#13'lblOthe'
|
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#13'lblOtherUnits'
|
||||||
+'rUnits'#11'ParentColor'#8#0#0#242#2#1#6'TLabel'#15'lblIncludeFiles'#22'Anch'
|
+#11'ParentColor'#8#0#0#242#2#1#6'TLabel'#15'lblIncludeFiles'#22'AnchorSideLe'
|
||||||
+'orSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#13'edtOtherUnits'
|
+'ft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#13'edtOtherUnits'#18'Anc'
|
||||||
+#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'
|
+'horSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'A'
|
||||||
+#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#14#3'Top'#2
|
+'nchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#14#3'Top'#2')'#5
|
||||||
+')'#5'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'Border'
|
+'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpaci'
|
||||||
+'Spacing.Top'#2#6#7'Caption'#6#15'lblIncludeFiles'#11'ParentColor'#8#0#0#242
|
+'ng.Top'#2#6#7'Caption'#6#15'lblIncludeFiles'#11'ParentColor'#8#0#0#242#2#2#6
|
||||||
+#2#2#6'TLabel'#15'lblOtherSources'#22'AnchorSideLeft.Control'#7#5'Owner'#21
|
+'TLabel'#15'lblOtherSources'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anchor'
|
||||||
+'AnchorSideTop.Control'#7#15'edtIncludeFiles'#18'AnchorSideTop.Side'#7#9'asr'
|
+'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
|
+'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'
|
+'asrBottom'#4'Left'#2#0#6'Height'#2#14#3'Top'#3#164#0#5'Width'#3#217#1#7'Anc'
|
||||||
+'s'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#7'Caption'#6
|
+'hors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#7'Captio'
|
||||||
+#15'lblOtherSources'#11'ParentColor'#8#0#0#242#2#3#6'TLabel'#12'lblLibraries'
|
+'n'#6#16'lblUnitOutputDir'#11'ParentColor'#8#0#0#242#2#5#6'TLabel'#12'lblDeb'
|
||||||
+#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#15'edtOth'
|
+'ugPath'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#16
|
||||||
+'erSources'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'
|
+'edtUnitOutputDir'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.'
|
||||||
+#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2
|
+'Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'H'
|
||||||
+#14#3'Top'#2'{'#5'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
|
+'eight'#2#14#3'Top'#3#205#0#5'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'
|
||||||
+#0#17'BorderSpacing.Top'#2#6#7'Caption'#6#12'lblLibraries'#11'ParentColor'#8
|
+#7'akRight'#0#17'BorderSpacing.Top'#2#6#7'Caption'#6#12'lblDebugPath'#11'Par'
|
||||||
+#0#0#242#2#4#6'TLabel'#16'lblUnitOutputDir'#22'AnchorSideLeft.Control'#7#5'O'
|
+'entColor'#8#0#0#242#2#6#6'TLabel'#18'LCLWidgetTypeLabel'#22'AnchorSideLeft.'
|
||||||
+'wner'#21'AnchorSideTop.Control'#7#12'edtLibraries'#18'AnchorSideTop.Side'#7
|
+'Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#21'LCLWidgetTypeComboBox'#18
|
||||||
+#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'
|
+'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#0#6'Height'#2#14#3'Top'#3#249#0
|
||||||
+#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#14#3'Top'#3#164#0#5'Width'#3#217#1#7
|
+#5'Width'#2'e'#7'Caption'#6#18'LCLWidgetTypeLabel'#11'ParentColor'#8#0#0#242
|
||||||
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#7'Cap'
|
+#2#7#5'TEdit'#13'edtOtherUnits'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anc'
|
||||||
+'tion'#6#16'lblUnitOutputDir'#11'ParentColor'#8#0#0#242#2#5#6'TLabel'#12'lbl'
|
+'horSideTop.Control'#7#13'lblOtherUnits'#18'AnchorSideTop.Side'#7#9'asrBotto'
|
||||||
+'DebugPath'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7
|
+'m'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrB'
|
||||||
+#16'edtUnitOutputDir'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRig'
|
+'ottom'#4'Left'#2#0#6'Height'#2#21#3'Top'#2#14#5'Width'#3#217#1#7'Anchors'#11
|
||||||
+'ht.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6
|
+#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Bottom'#2#6#8'TabOrder'#2#0
|
||||||
+'Height'#2#14#3'Top'#3#205#0#5'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'akLef'
|
+#4'Text'#6#13'edtOtherUnits'#0#0#242#2#8#5'TEdit'#15'edtIncludeFiles'#22'Anc'
|
||||||
+'t'#7'akRight'#0#17'BorderSpacing.Top'#2#6#7'Caption'#6#12'lblDebugPath'#11
|
+'horSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#15'lblIncludeFi'
|
||||||
+'ParentColor'#8#0#0#242#2#6#6'TLabel'#18'LCLWidgetTypeLabel'#22'AnchorSideLe'
|
+'les'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5
|
||||||
+'ft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#21'LCLWidgetTypeComboBox'
|
+'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#21#3
|
||||||
+#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#0#6'Height'#2#14#3'Top'#3
|
+'Top'#2'7'#5'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20
|
||||||
+#249#0#5'Width'#2'e'#7'Caption'#6#18'LCLWidgetTypeLabel'#11'ParentColor'#8#0
|
+'BorderSpacing.Bottom'#2#6#8'TabOrder'#2#1#4'Text'#6#15'edtIncludeFiles'#0#0
|
||||||
+#0#242#2#7#5'TEdit'#13'edtOtherUnits'#22'AnchorSideLeft.Control'#7#5'Owner'
|
+#242#2#9#5'TEdit'#15'edtOtherSources'#22'AnchorSideLeft.Control'#7#5'Owner'
|
||||||
+#21'AnchorSideTop.Control'#7#13'lblOtherUnits'#18'AnchorSideTop.Side'#7#9'as'
|
+#21'AnchorSideTop.Control'#7#15'lblOtherSources'#18'AnchorSideTop.Side'#7#9
|
||||||
+'rBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9
|
+'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7
|
||||||
+'asrBottom'#4'Left'#2#0#6'Height'#2#21#3'Top'#2#14#5'Width'#3#217#1#7'Anchor'
|
+#9'asrBottom'#4'Left'#2#0#6'Height'#2#21#3'Top'#2'`'#5'Width'#3#217#1#7'Anch'
|
||||||
+'s'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Bottom'#2#6#8'TabOrd'
|
+'ors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Bottom'#2#6#8'TabO'
|
||||||
+'er'#2#0#4'Text'#6#13'edtOtherUnits'#0#0#242#2#8#5'TEdit'#15'edtIncludeFiles'
|
+'rder'#2#2#4'Text'#6#15'edtOtherSources'#0#0#242#2#10#5'TEdit'#12'edtLibrari'
|
||||||
+#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#15'lblInc'
|
+'es'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#12'lb'
|
||||||
+'ludeFiles'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'
|
+'lLibraries'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Contro'
|
||||||
+#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2
|
+'l'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'
|
||||||
+#21#3'Top'#2'7'#5'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
|
+#2#21#3'Top'#3#137#0#5'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akR'
|
||||||
+#0#20'BorderSpacing.Bottom'#2#6#8'TabOrder'#2#1#4'Text'#6#15'edtIncludeFiles'
|
+'ight'#0#20'BorderSpacing.Bottom'#2#6#8'TabOrder'#2#3#4'Text'#6#12'edtLibrar'
|
||||||
+#0#0#242#2#9#5'TEdit'#15'edtOtherSources'#22'AnchorSideLeft.Control'#7#5'Own'
|
+'ies'#0#0#242#2#11#5'TEdit'#16'edtUnitOutputDir'#22'AnchorSideLeft.Control'#7
|
||||||
+'er'#21'AnchorSideTop.Control'#7#15'lblOtherSources'#18'AnchorSideTop.Side'#7
|
+#5'Owner'#21'AnchorSideTop.Control'#7#16'lblUnitOutputDir'#18'AnchorSideTop.'
|
||||||
+#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'
|
+'Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRi'
|
||||||
+#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#21#3'Top'#2'`'#5'Width'#3#217#1#7'An'
|
,'ght.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#21#3'Top'#3#178#0#5'Width'
|
||||||
+'chors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Bottom'#2#6#8'Ta'
|
+#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Bott'
|
||||||
+'bOrder'#2#2#4'Text'#6#15'edtOtherSources'#0#0#242#2#10#5'TEdit'#12'edtLibra'
|
+'om'#2#6#8'TabOrder'#2#4#4'Text'#6#16'edtUnitOutputDir'#0#0#242#2#12#5'TEdit'
|
||||||
+'ries'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#12
|
+#12'edtDebugPath'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Con'
|
||||||
+'lblLibraries'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Cont'
|
+'trol'#7#12'lblDebugPath'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSid'
|
||||||
+'rol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Heigh'
|
+'eRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2
|
||||||
+'t'#2#21#3'Top'#3#137#0#5'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
|
+#0#6'Height'#2#21#3'Top'#3#219#0#5'Width'#3#217#1#7'Anchors'#11#5'akTop'#6'a'
|
||||||
+'akRight'#0#20'BorderSpacing.Bottom'#2#6#8'TabOrder'#2#3#4'Text'#6#12'edtLib'
|
+'kLeft'#7'akRight'#0#20'BorderSpacing.Bottom'#2#6#8'TabOrder'#2#5#4'Text'#6
|
||||||
+'raries'#0#0#242#2#11#5'TEdit'#16'edtUnitOutputDir'#22'AnchorSideLeft.Contro'
|
+#12'edtDebugPath'#0#0#242#2#13#9'TComboBox'#21'LCLWidgetTypeComboBox'#22'Anc'
|
||||||
+'l'#7#5'Owner'#21'AnchorSideTop.Control'#7#16'lblUnitOutputDir'#18'AnchorSid'
|
+'horSideLeft.Control'#7#18'LCLWidgetTypeLabel'#19'AnchorSideLeft.Side'#7#9'a'
|
||||||
+'eTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorS'
|
+'srBottom'#21'AnchorSideTop.Control'#7#12'edtDebugPath'#18'AnchorSideTop.Sid'
|
||||||
,'ideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#21#3'Top'#3#178#0#5'W'
|
+'e'#7#9'asrBottom'#4'Left'#2'k'#6'Height'#2#21#3'Top'#3#246#0#5'Width'#3#171
|
||||||
+'idth'#3#217#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacin'
|
+#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#10'ItemHeight'#2#13#5
|
||||||
+'g.Bottom'#2#6#8'TabOrder'#2#4#4'Text'#6#16'edtUnitOutputDir'#0#0#242#2#12#5
|
+'Style'#7#14'csDropDownList'#8'TabOrder'#2#6#0#0#0
|
||||||
+'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
|
|
||||||
]);
|
]);
|
||||||
|
@ -12,9 +12,9 @@ uses
|
|||||||
|
|
||||||
type
|
type
|
||||||
|
|
||||||
{ TTCompilerPathOptionsFrame }
|
{ TCompilerPathOptionsFrame }
|
||||||
|
|
||||||
TTCompilerPathOptionsFrame = class(TAbstractIDEOptionsEditor)
|
TCompilerPathOptionsFrame = class(TAbstractIDEOptionsEditor)
|
||||||
edtDebugPath: TEdit;
|
edtDebugPath: TEdit;
|
||||||
edtIncludeFiles: TEdit;
|
edtIncludeFiles: TEdit;
|
||||||
edtLibraries: TEdit;
|
edtLibraries: TEdit;
|
||||||
@ -53,9 +53,9 @@ type
|
|||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
{ TTCompilerPathOptionsFrame }
|
{ TCompilerPathOptionsFrame }
|
||||||
|
|
||||||
function TTCompilerPathOptionsFrame.Check: boolean;
|
function TCompilerPathOptionsFrame.Check: boolean;
|
||||||
|
|
||||||
function CheckPutSearchPath(
|
function CheckPutSearchPath(
|
||||||
const Context, OldExpandedPath, NewExpandedPath: string): boolean;
|
const Context, OldExpandedPath, NewExpandedPath: string): boolean;
|
||||||
@ -108,12 +108,12 @@ begin
|
|||||||
Result := True;
|
Result := True;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TTCompilerPathOptionsFrame.GetTitle: string;
|
function TCompilerPathOptionsFrame.GetTitle: string;
|
||||||
begin
|
begin
|
||||||
Result := dlgSearchPaths;
|
Result := dlgSearchPaths;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TTCompilerPathOptionsFrame.CheckSearchPath(const Context, ExpandedPath: string;
|
function TCompilerPathOptionsFrame.CheckSearchPath(const Context, ExpandedPath: string;
|
||||||
Level: TCheckCompileOptionsMsgLvl): boolean;
|
Level: TCheckCompileOptionsMsgLvl): boolean;
|
||||||
var
|
var
|
||||||
CurPath: string;
|
CurPath: string;
|
||||||
@ -179,7 +179,7 @@ begin
|
|||||||
Result := True;
|
Result := True;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TTCompilerPathOptionsFrame.PathEditBtnClick(Sender: TObject);
|
procedure TCompilerPathOptionsFrame.PathEditBtnClick(Sender: TObject);
|
||||||
var
|
var
|
||||||
AButton: TPathEditorButton;
|
AButton: TPathEditorButton;
|
||||||
OldPath, Templates: string;
|
OldPath, Templates: string;
|
||||||
@ -233,7 +233,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TTCompilerPathOptionsFrame.PathEditBtnExecuted(Sender: TObject);
|
procedure TCompilerPathOptionsFrame.PathEditBtnExecuted(Sender: TObject);
|
||||||
|
|
||||||
function CheckPath(const Context, NewPath: string): boolean;
|
function CheckPath(const Context, NewPath: string): boolean;
|
||||||
var
|
var
|
||||||
@ -288,7 +288,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TTCompilerPathOptionsFrame.FileBrowseBtnClick(Sender: TObject);
|
procedure TCompilerPathOptionsFrame.FileBrowseBtnClick(Sender: TObject);
|
||||||
var
|
var
|
||||||
OpenDialog: TOpenDialog;
|
OpenDialog: TOpenDialog;
|
||||||
DefaultFilename: string;
|
DefaultFilename: string;
|
||||||
@ -321,7 +321,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TTCompilerPathOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
|
procedure TCompilerPathOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
|
||||||
var
|
var
|
||||||
LCLInterface: TLCLPlatform;
|
LCLInterface: TLCLPlatform;
|
||||||
s: string;
|
s: string;
|
||||||
@ -458,7 +458,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TTCompilerPathOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
|
procedure TCompilerPathOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
|
||||||
var
|
var
|
||||||
LCLPlatform: TLCLPlatform;
|
LCLPlatform: TLCLPlatform;
|
||||||
begin
|
begin
|
||||||
@ -480,7 +480,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TTCompilerPathOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
|
procedure TCompilerPathOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
|
||||||
var
|
var
|
||||||
i: integer;
|
i: integer;
|
||||||
begin
|
begin
|
||||||
@ -501,14 +501,14 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
class function TTCompilerPathOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
|
class function TCompilerPathOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
|
||||||
begin
|
begin
|
||||||
Result := TProjectCompilerOptions;
|
Result := TProjectCompilerOptions;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
{$I compiler_path_options.lrs}
|
{$I compiler_path_options.lrs}
|
||||||
RegisterIDEOptionsEditor(GroupCompiler, TTCompilerPathOptionsFrame,
|
RegisterIDEOptionsEditor(GroupCompiler, TCompilerPathOptionsFrame,
|
||||||
CompilerOptionsSearchPaths);
|
CompilerOptionsSearchPaths);
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
@ -43,7 +43,7 @@
|
|||||||
<PackageName Value="SynEdit"/>
|
<PackageName Value="SynEdit"/>
|
||||||
</Item4>
|
</Item4>
|
||||||
</RequiredPackages>
|
</RequiredPackages>
|
||||||
<Units Count="61">
|
<Units Count="62">
|
||||||
<Unit0>
|
<Unit0>
|
||||||
<Filename Value="lazarus.pp"/>
|
<Filename Value="lazarus.pp"/>
|
||||||
<IsPartOfProject Value="True"/>
|
<IsPartOfProject Value="True"/>
|
||||||
@ -459,10 +459,17 @@
|
|||||||
<Unit60>
|
<Unit60>
|
||||||
<Filename Value="frames/compiler_path_options.pas"/>
|
<Filename Value="frames/compiler_path_options.pas"/>
|
||||||
<IsPartOfProject Value="True"/>
|
<IsPartOfProject Value="True"/>
|
||||||
<ComponentName Value="TCompilerPathOptionsFrame"/>
|
<ComponentName Value="CompilerPathOptionsFrame"/>
|
||||||
<ResourceBaseClass Value="Frame"/>
|
<ResourceBaseClass Value="Frame"/>
|
||||||
<UnitName Value="compiler_path_options"/>
|
<UnitName Value="compiler_path_options"/>
|
||||||
</Unit60>
|
</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>
|
</Units>
|
||||||
</ProjectOptions>
|
</ProjectOptions>
|
||||||
<CompilerOptions>
|
<CompilerOptions>
|
||||||
|
@ -126,7 +126,7 @@ uses
|
|||||||
project_save_options, project_versioninfo_options, project_i18n_options,
|
project_save_options, project_versioninfo_options, project_i18n_options,
|
||||||
project_misc_options,
|
project_misc_options,
|
||||||
// project compiler options
|
// project compiler options
|
||||||
compiler_path_options, compiler_messages_options,
|
compiler_path_options, compiler_parsing_options, compiler_messages_options,
|
||||||
|
|
||||||
PublishModule, EnvironmentOpts, TransferMacros, KeyMapping, IDETranslations,
|
PublishModule, EnvironmentOpts, TransferMacros, KeyMapping, IDETranslations,
|
||||||
IDEProcs, ExtToolDialog, ExtToolEditDlg, OutputFilter, JumpHistoryView,
|
IDEProcs, ExtToolDialog, ExtToolEditDlg, OutputFilter, JumpHistoryView,
|
||||||
|
Loading…
Reference in New Issue
Block a user