paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-22 19:49:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

ide: starting usage of global compiler messages list. Added the selection of the compiler messages into environment->files frame

Browse Source 
git-svn-id: trunk@25235 -
This commit is contained in:
dmitry 2010-05-07 06:52:19 +00:00
parent 4880d7588a
commit df5cb0c835
4 changed files with 154 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/environmentopts.pp
View File

@ -215,6 +215,9 @@ type
FFPCSourceDirHistory: TStringList; FFPCSourceDirHistory: TStringList;
FMakeFileName: string; FMakeFileName: string;
FMakeFileHistory: TStringList; FMakeFileHistory: TStringList;
FCompilerMessagesFilename: string;
FCompilerMessagesFileHistory: TStringList;
// TODO: store per debuggerclass options // TODO: store per debuggerclass options
// Maybe these should go to a new TDebuggerOptions class // Maybe these should go to a new TDebuggerOptions class
FDebuggerSearchPath: string; FDebuggerSearchPath: string;
@ -449,6 +452,10 @@ type
property DebuggerEventLogShowOutput: Boolean read FDebuggerEventLogShowOutput write FDebuggerEventLogShowOutput; property DebuggerEventLogShowOutput: Boolean read FDebuggerEventLogShowOutput write FDebuggerEventLogShowOutput;
property DebuggerEventLogShowWindow: Boolean read FDebuggerEventLogShowWindow write FDebuggerEventLogShowWindow; property DebuggerEventLogShowWindow: Boolean read FDebuggerEventLogShowWindow write FDebuggerEventLogShowWindow;
property DebuggerEventLogShowDebugger: Boolean read FDebuggerEventLogShowDebugger write FDebuggerEventLogShowDebugger; property DebuggerEventLogShowDebugger: Boolean read FDebuggerEventLogShowDebugger write FDebuggerEventLogShowDebugger;
property CompilerMessagesFilename: string read FCompilerMessagesFilename
write FCompilerMessagesFilename;
property CompilerMessagesFileHistory: TStringList read FCompilerMessagesFileHistory
write FCompilerMessagesFileHistory;
// recent files and directories // recent files and directories
property RecentOpenFiles: TStringList read FRecentOpenFiles property RecentOpenFiles: TStringList read FRecentOpenFiles
@ -734,6 +741,8 @@ begin
FDebuggerSearchPath:=''; FDebuggerSearchPath:='';
TestBuildDirectory:=GetDefaultTestBuildDirectory; TestBuildDirectory:=GetDefaultTestBuildDirectory;
FTestBuildDirHistory:=TStringList.Create; FTestBuildDirHistory:=TStringList.Create;
CompilerMessagesFilename:='';
FCompilerMessagesFileHistory:=TStringList.Create;
// recent files and directories // recent files and directories
FRecentOpenFiles:=TStringList.Create; FRecentOpenFiles:=TStringList.Create;
@ -784,6 +793,7 @@ begin
FreeAndNil(FMakeFileHistory); FreeAndNil(FMakeFileHistory);
FreeAndNil(FDebuggerFileHistory); FreeAndNil(FDebuggerFileHistory);
FreeAndNil(FTestBuildDirHistory); FreeAndNil(FTestBuildDirHistory);
FreeAndNil(FCompilerMessagesFileHistory);
if IDEWindowIntf.IDEDialogLayoutList=FIDEDialogLayoutList then if IDEWindowIntf.IDEDialogLayoutList=FIDEDialogLayoutList then
IDEWindowIntf.IDEDialogLayoutList:=nil; IDEWindowIntf.IDEDialogLayoutList:=nil;
FreeAndNil(FIDEDialogLayoutList); FreeAndNil(FIDEDialogLayoutList);
@ -1028,6 +1038,10 @@ begin
Path+'TestBuildDirectory/History/'); Path+'TestBuildDirectory/History/');
if FTestBuildDirHistory.Count=0 then if FTestBuildDirHistory.Count=0 then
GetDefaultTestBuildDirs(FTestBuildDirHistory); GetDefaultTestBuildDirs(FTestBuildDirHistory);
CompilerMessagesFilename:=XMLConfig.GetValue(
Path+'CompilerMessagesFilename/Value',FCompilerMessagesFilename);
LoadRecentList(XMLConfig, FCompilerMessagesFileHistory,
Path+'CompilerMessagesFilename/History/');
// backup // backup
LoadBackupInfo(FBackupInfoProjectFiles LoadBackupInfo(FBackupInfoProjectFiles
@ -1305,6 +1319,10 @@ begin
Path+'TestBuildDirectory/Value',FTestBuildDirectory); Path+'TestBuildDirectory/Value',FTestBuildDirectory);
SaveRecentList(XMLConfig,FTestBuildDirHistory, SaveRecentList(XMLConfig,FTestBuildDirHistory,
Path+'TestBuildDirectory/History/'); Path+'TestBuildDirectory/History/');
XMLConfig.SetValue(
Path+'CompilerMessagesFilename/Value',FCompilerMessagesFilename);
SaveRecentList(XMLConfig,FCompilerMessagesFileHistory,
Path+'CompilerMessagesFilename/History/');
// backup // backup
SaveBackupInfo(FBackupInfoProjectFiles SaveBackupInfo(FBackupInfoProjectFiles

166
ide/frames/files_options.lfm
View File

@ -5,15 +5,15 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
ClientWidth = 569 ClientWidth = 569
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
DesignLeft = 406 DesignLeft = 558
DesignTop = 93 DesignTop = 159
object MaxRecentOpenFilesLabel: TLabel[0] object MaxRecentOpenFilesLabel: TLabel[0]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 0 Left = 0
Height = 18 Height = 16
Top = 0 Top = 0
Width = 165 Width = 139
Caption = 'MaxRecentOpenFilesLabel' Caption = 'MaxRecentOpenFilesLabel'
ParentColor = False ParentColor = False
end end
@ -22,9 +22,9 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = MaxRecentOpenFilesComboBox AnchorSideTop.Control = MaxRecentOpenFilesComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 18 Height = 16
Top = 53 Top = 45
Width = 175 Width = 147
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'MaxRecentProjectFilesLabel' Caption = 'MaxRecentProjectFilesLabel'
ParentColor = False ParentColor = False
@ -36,11 +36,11 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 29 Height = 23
Top = 18 Top = 16
Width = 569 Width = 569
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 15
Items.Strings = ( Items.Strings = (
'5' '5'
'10' '10'
@ -58,11 +58,11 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 29 Height = 23
Top = 71 Top = 61
Width = 569 Width = 569
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 15
Items.Strings = ( Items.Strings = (
'5' '5'
'10' '10'
@ -79,9 +79,9 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 22 Height = 19
Top = 106 Top = 90
Width = 238 Width = 195
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'OpenLastProjectAtStartCheckBox' Caption = 'OpenLastProjectAtStartCheckBox'
TabOrder = 2 TabOrder = 2
@ -92,9 +92,9 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 22 Height = 19
Top = 128 Top = 109
Width = 213 Width = 180
Caption = 'ShowCompileDialogCheckBox' Caption = 'ShowCompileDialogCheckBox'
OnChange = ShowCompileDialogCheckBoxChange OnChange = ShowCompileDialogCheckBoxChange
TabOrder = 3 TabOrder = 3
@ -104,9 +104,9 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = AutoCloseCompileDialogCheckBox AnchorSideTop.Control = AutoCloseCompileDialogCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 18 Height = 16
Top = 182 Top = 157
Width = 103 Width = 83
BorderSpacing.Top = 10 BorderSpacing.Top = 10
Caption = 'LazarusDirLabel' Caption = 'LazarusDirLabel'
ParentColor = False ParentColor = False
@ -119,8 +119,8 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideBottom.Control = LazarusDirComboBox AnchorSideBottom.Control = LazarusDirComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 544 Left = 544
Height = 29 Height = 23
Top = 200 Top = 173
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
Caption = '...' Caption = '...'
@ -133,11 +133,11 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = LazarusDirButton AnchorSideRight.Control = LazarusDirButton
Left = 0 Left = 0
Height = 29 Height = 23
Top = 200 Top = 173
Width = 544 Width = 544
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 15
TabOrder = 5 TabOrder = 5
Text = 'LazarusDirComboBox' Text = 'LazarusDirComboBox'
end end
@ -147,11 +147,11 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CompilerPathButton AnchorSideRight.Control = CompilerPathButton
Left = 0 Left = 0
Height = 29 Height = 23
Top = 253 Top = 218
Width = 544 Width = 544
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 15
TabOrder = 6 TabOrder = 6
Text = 'CompilerPathComboBox' Text = 'CompilerPathComboBox'
end end
@ -162,8 +162,8 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideBottom.Control = CompilerPathComboBox AnchorSideBottom.Control = CompilerPathComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 544 Left = 544
Height = 29 Height = 23
Top = 253 Top = 218
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
Caption = '...' Caption = '...'
@ -175,9 +175,9 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = LazarusDirComboBox AnchorSideTop.Control = LazarusDirComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 18 Height = 16
Top = 235 Top = 202
Width = 120 Width = 102
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'CompilerPathLabel' Caption = 'CompilerPathLabel'
ParentColor = False ParentColor = False
@ -188,11 +188,11 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = FPCSourceDirButton AnchorSideRight.Control = FPCSourceDirButton
Left = 0 Left = 0
Height = 29 Height = 23
Top = 306 Top = 263
Width = 544 Width = 544
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 15
TabOrder = 8 TabOrder = 8
Text = 'FPCSourceDirComboBox' Text = 'FPCSourceDirComboBox'
end end
@ -203,8 +203,8 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideBottom.Control = FPCSourceDirComboBox AnchorSideBottom.Control = FPCSourceDirComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 544 Left = 544
Height = 29 Height = 23
Top = 306 Top = 263
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
Caption = '...' Caption = '...'
@ -216,9 +216,9 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = CompilerPathComboBox AnchorSideTop.Control = CompilerPathComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 18 Height = 16
Top = 288 Top = 247
Width = 122 Width = 101
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'FPCSourceDirLabel' Caption = 'FPCSourceDirLabel'
ParentColor = False ParentColor = False
@ -228,9 +228,9 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = FPCSourceDirComboBox AnchorSideTop.Control = FPCSourceDirComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 18 Height = 16
Top = 341 Top = 292
Width = 97 Width = 82
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'MakePathLabel' Caption = 'MakePathLabel'
ParentColor = False ParentColor = False
@ -240,9 +240,9 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = MakePathComboBox AnchorSideTop.Control = MakePathComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 18 Height = 16
Top = 394 Top = 337
Width = 109 Width = 93
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'TestBuildDirLabel' Caption = 'TestBuildDirLabel'
ParentColor = False ParentColor = False
@ -253,11 +253,11 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = MakePathButton AnchorSideRight.Control = MakePathButton
Left = 0 Left = 0
Height = 29 Height = 23
Top = 359 Top = 308
Width = 544 Width = 544
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 15
TabOrder = 10 TabOrder = 10
Text = 'MakePathComboBox' Text = 'MakePathComboBox'
end end
@ -268,8 +268,8 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideBottom.Control = MakePathComboBox AnchorSideBottom.Control = MakePathComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 544 Left = 544
Height = 29 Height = 23
Top = 359 Top = 308
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
Caption = '...' Caption = '...'
@ -282,11 +282,11 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TestBuildDirButton AnchorSideRight.Control = TestBuildDirButton
Left = 0 Left = 0
Height = 29 Height = 23
Top = 412 Top = 353
Width = 544 Width = 544
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 15
TabOrder = 12 TabOrder = 12
Text = 'TestBuildDirComboBox' Text = 'TestBuildDirComboBox'
end end
@ -297,8 +297,8 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideBottom.Control = TestBuildDirComboBox AnchorSideBottom.Control = TestBuildDirComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 544 Left = 544
Height = 29 Height = 23
Top = 412 Top = 353
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
Caption = '...' Caption = '...'
@ -311,11 +311,53 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 30 Left = 30
Height = 22 Height = 19
Top = 150 Top = 128
Width = 244 Width = 206
BorderSpacing.Left = 30 BorderSpacing.Left = 30
Caption = 'AutoCloseCompileDialogCheckBox' Caption = 'AutoCloseCompileDialogCheckBox'
TabOrder = 14 TabOrder = 14
end end
object CompilerMessagesLabel: TLabel[22]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = TestBuildDirComboBox
AnchorSideTop.Side = asrBottom
Left = 0
Height = 16
Top = 382
Width = 129
Alignment = taRightJustify
BorderSpacing.Top = 6
Caption = 'CompilerMessagesLabel'
ParentColor = False
end
object CompilerMessagesButton: TButton[23]
AnchorSideTop.Control = CompilerMessagesComboBox
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = CompilerMessagesComboBox
AnchorSideBottom.Side = asrBottom
Left = 544
Height = 23
Top = 398
Width = 25
Anchors = [akTop, akRight, akBottom]
Caption = '...'
OnClick = CompilerMessagesButtonClick
TabOrder = 15
end
object CompilerMessagesComboBox: TComboBox[24]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CompilerMessagesLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CompilerMessagesButton
Left = 0
Height = 23
Top = 398
Width = 544
Anchors = [akTop, akLeft, akRight]
ItemHeight = 15
TabOrder = 16
Text = 'CompilerMessagesComboBox'
end
end end

30
ide/frames/files_options.pas
View File

@ -35,16 +35,19 @@ type
TFilesOptionsFrame = class(TAbstractIDEOptionsEditor) TFilesOptionsFrame = class(TAbstractIDEOptionsEditor)
AutoCloseCompileDialogCheckBox: TCheckBox; AutoCloseCompileDialogCheckBox: TCheckBox;
CompilerMessagesButton:TButton;
CompilerPathButton:TButton; CompilerPathButton:TButton;
CompilerPathComboBox:TComboBox; CompilerPathComboBox:TComboBox;
FPCSourceDirButton:TButton; FPCSourceDirButton:TButton;
FPCSourceDirComboBox:TComboBox; FPCSourceDirComboBox:TComboBox;
CompilerPathLabel:TLabel; CompilerPathLabel:TLabel;
FPCSourceDirLabel:TLabel; FPCSourceDirLabel:TLabel;
CompilerMessagesLabel:TLabel;
MakePathButton:TButton; MakePathButton:TButton;
MakePathComboBox:TComboBox; MakePathComboBox:TComboBox;
TestBuildDirButton:TButton; TestBuildDirButton:TButton;
TestBuildDirComboBox:TComboBox; TestBuildDirComboBox:TComboBox;
CompilerMessagesComboBox:TComboBox;
TestBuildDirLabel:TLabel; TestBuildDirLabel:TLabel;
MakePathLabel:TLabel; MakePathLabel:TLabel;
LazarusDirButton:TButton; LazarusDirButton:TButton;
@ -56,6 +59,7 @@ type
MaxRecentProjectFilesLabel: TLabel; MaxRecentProjectFilesLabel: TLabel;
OpenLastProjectAtStartCheckBox: TCheckBox; OpenLastProjectAtStartCheckBox: TCheckBox;
ShowCompileDialogCheckBox: TCheckBox; ShowCompileDialogCheckBox: TCheckBox;
procedure CompilerMessagesButtonClick(Sender:TObject);
procedure FilesButtonClick(Sender: TObject); procedure FilesButtonClick(Sender: TObject);
procedure DirectoriesButtonClick(Sender: TObject); procedure DirectoriesButtonClick(Sender: TObject);
procedure ShowCompileDialogCheckBoxChange(Sender: TObject); procedure ShowCompileDialogCheckBoxChange(Sender: TObject);
@ -124,6 +128,27 @@ begin
end; end;
end; end;
procedure TFilesOptionsFrame.CompilerMessagesButtonClick(Sender:TObject);
var
OpenDialog: TOpenDialog;
AFilename: string;
begin
OpenDialog:=TOpenDialog.Create(nil);
try
InputHistories.ApplyFileDialogSettings(OpenDialog);
OpenDialog.Options:=OpenDialog.Options+[ofPathMustExist];
OpenDialog.Title:=lisChooseCompilerMessages;
OpenDialog.Filter:='FPC message file (*.msg)|*.msg|Any file|'+AllFilesMask;
if OpenDialog.Execute then begin
AFilename:=CleanAndExpandFilename(OpenDialog.Filename);
SetComboBoxText(CompilerMessagesComboBox,AFilename);
end;
InputHistories.StoreFileDialogSettings(OpenDialog);
finally
OpenDialog.Free;
end;
end;
procedure TFilesOptionsFrame.DirectoriesButtonClick(Sender: TObject); procedure TFilesOptionsFrame.DirectoriesButtonClick(Sender: TObject);
var var
OpenDialog: TSelectDirectoryDialog; OpenDialog: TSelectDirectoryDialog;
@ -211,6 +236,7 @@ begin
Add('c:/windows/temp'); Add('c:/windows/temp');
EndUpdate; EndUpdate;
end; end;
CompilerMessagesLabel.Caption:=dlgCompilerMessages;
end; end;
function TFilesOptionsFrame.GetTitle: String; function TFilesOptionsFrame.GetTitle: String;
@ -269,6 +295,8 @@ begin
TestBuildDirComboBox.Items.Assign(TestBuildDirHistory); TestBuildDirComboBox.Items.Assign(TestBuildDirHistory);
FOldTestDir:=TestBuildDirectory; FOldTestDir:=TestBuildDirectory;
SetComboBoxText(TestBuildDirComboBox,TestBuildDirectory,MaxComboBoxCount); SetComboBoxText(TestBuildDirComboBox,TestBuildDirectory,MaxComboBoxCount);
CompilerMessagesComboBox.Items.Assign(CompilerMessagesFileHistory);
SetComboBoxText(CompilerMessagesComboBox,CompilerMessagesFilename,MaxComboBoxCount);
// recent files and directories // recent files and directories
SetComboBoxText(MaxRecentOpenFilesComboBox,IntToStr(MaxRecentOpenFiles)); SetComboBoxText(MaxRecentOpenFilesComboBox,IntToStr(MaxRecentOpenFiles));
@ -294,6 +322,8 @@ begin
MakeFileHistory.Assign(MakePathComboBox.Items); MakeFileHistory.Assign(MakePathComboBox.Items);
TestBuildDirHistory.Assign(TestBuildDirComboBox.Items); TestBuildDirHistory.Assign(TestBuildDirComboBox.Items);
TestBuildDirectory:=TestBuildDirComboBox.Text; TestBuildDirectory:=TestBuildDirComboBox.Text;
CompilerMessagesFileHistory.Assign(CompilerMessagesComboBox.Items);
CompilerMessagesFilename:=CompilerMessagesComboBox.Text;
// recent files and directories // recent files and directories
MaxRecentOpenFiles:=StrToIntDef( MaxRecentOpenFiles:=StrToIntDef(

2
ide/lazarusidestrconsts.pas
View File

@ -784,6 +784,7 @@ resourcestring
lisChooseLazarusSourceDirectory = 'Choose Lazarus Directory'; lisChooseLazarusSourceDirectory = 'Choose Lazarus Directory';
lisChooseCompilerPath = 'Choose compiler filename (%s)'; lisChooseCompilerPath = 'Choose compiler filename (%s)';
lisChooseFPCSourceDir = 'Choose FPC source directory'; lisChooseFPCSourceDir = 'Choose FPC source directory';
lisChooseCompilerMessages = 'Choose compiler messages file';
lisChooseMakePath = 'Choose make path'; lisChooseMakePath = 'Choose make path';
lisChooseDebuggerPath = 'Choose debugger filename'; lisChooseDebuggerPath = 'Choose debugger filename';
lisChooseTestBuildDir = 'Choose the directory for tests'; lisChooseTestBuildDir = 'Choose the directory for tests';
@ -1068,6 +1069,7 @@ resourcestring
dlgFpcPath = 'Compiler path (e.g. %s)'; dlgFpcPath = 'Compiler path (e.g. %s)';
dlgFpcSrcPath = 'FPC source directory'; dlgFpcSrcPath = 'FPC source directory';
dlgMakePath = 'Make path'; dlgMakePath = 'Make path';
dlgCompilerMessages = 'Compiler messages language file';
dlgDebugType = 'Debugger type and path'; dlgDebugType = 'Debugger type and path';
dlgTestPrjDir = 'Directory for building test projects'; dlgTestPrjDir = 'Directory for building test projects';
dlgQShowGrid = 'Show grid'; dlgQShowGrid = 'Show grid';