paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-24 01:59:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: project options: compiler path: combobox with history

Browse Source 
git-svn-id: trunk@44137 -
This commit is contained in:
mattias 2014-02-18 16:47:43 +00:00
parent b85d70831d
commit 37556f70b9
2 changed files with 21 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/frames/compiler_compilation_options.lfm
View File

@ -198,10 +198,11 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
end
object lblCompiler: TLabel
AnchorSideLeft.Control = grpCompiler
AnchorSideTop.Control = cobCompiler
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Top = 38
Top = 42
Width = 62
BorderSpacing.Around = 6
Caption = 'lblCompiler'
@ -246,7 +247,7 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
Caption = 'chkCompilerRun'
TabOrder = 2
end
object edtCompiler: TComboBox
object cobCompiler: TComboBox
AnchorSideLeft.Control = lblCompiler
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = chkCompilerCompile
@ -262,7 +263,7 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
BorderSpacing.Around = 6
ItemHeight = 0
TabOrder = 3
Text = 'edtCompiler'
Text = 'cobCompiler'
end
end
object ExecuteBeforeGroupBox: TGroupBox

25
ide/frames/compiler_compilation_options.pas
View File

@ -6,7 +6,7 @@ interface
uses
Controls, StdCtrls, IDEOptionsIntf, Project, CompilerOptions, CompOptsIntf,
PackageDefs, LazarusIDEStrConsts;
PackageDefs, LazarusIDEStrConsts, EnvironmentOpts, LazConf, IDEProcs;
type
@ -23,7 +23,7 @@ type
chkExecBeforeBuild: TCheckBox;
chkExecBeforeCompile: TCheckBox;
chkExecBeforeRun: TCheckBox;
edtCompiler: TComboBox;
cobCompiler: TComboBox;
ExecuteAfterCommandEdit: TEdit;
ExecuteAfterCommandLabel: TLabel;
ExecuteAfterGroupBox: TGroupBox;
@ -86,7 +86,7 @@ begin
chkCompilerCompile.Checked := True;
chkCompilerRun.Caption := lisRunStage;
chkCompilerRun.Checked := True;
edtCompiler.Text := '';
cobCompiler.Text := '';
lblCompiler.Caption := lisCOCommand;
lblRunIfCompiler.Caption := lisCOCallOn;
@ -133,7 +133,14 @@ begin
chkExecBeforeRun.Visible := False;
end;
edtCompiler.Text := Options.CompilerPath;
with cobCompiler do begin
Items.BeginUpdate;
Items.Assign(EnvironmentOptions.CompilerFileHistory);
AddFilenameToList(Items,'$(CompPath)');
SetComboBoxText(cobCompiler,Options.CompilerPath,cstFilename);
Items.EndUpdate;
end;
if Options is TProjectCompilerOptions then
with TProjectCompilerOptions(Options) do
begin
@ -147,7 +154,7 @@ begin
chkCompilerCompile.Visible := True;
chkCompilerBuild.Visible := True;
chkCompilerRun.Visible := True;
edtCompiler.AnchorToNeighbour(akTop, 0, chkCompilerCompile);
cobCompiler.AnchorToNeighbour(akTop, 0, chkCompilerCompile);
end
else if Options is TPkgCompilerOptions then
begin
@ -160,7 +167,7 @@ begin
chkCompilerCompile.Checked := TPkgCompilerOptions(Options).SkipCompiler;
chkCompilerBuild.Visible := False;
chkCompilerRun.Visible := False;
edtCompiler.AnchorToNeighbour(akTop, 0, chkCompilerCompile);
cobCompiler.AnchorToNeighbour(akTop, 0, chkCompilerCompile);
end
else
begin
@ -168,7 +175,7 @@ begin
chkCompilerCompile.Visible := False;
chkCompilerBuild.Visible := False;
chkCompilerRun.Visible := False;
edtCompiler.AnchorParallel(akTop, 0, lblCompiler.Parent);
cobCompiler.AnchorParallel(akTop, 0, lblCompiler.Parent);
end;
ExecuteAfterCommandEdit.Text := Options.ExecuteAfter.Command;
@ -220,7 +227,9 @@ begin
MakeCompileReasons(chkExecBeforeCompile, chkExecBeforeBuild, chkExecBeforeRun);
end;
Options.CompilerPath := edtCompiler.Text;
Options.CompilerPath := cobCompiler.Text;
EnvironmentOptions.CompilerFileHistory.Assign(cobCompiler.Items);
if Options is TProjectCompilerOptions then
begin
TProjectCompilerOptions(Options).CompileReasons :=