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

MG: added environment option OpenLastProjectAtStart

Browse Source 
git-svn-id: trunk@278 -
This commit is contained in:
lazarus 2001-05-31 13:57:28 +00:00
parent e57580d034
commit eb92e596e0
3 changed files with 41 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
ide/environmentopts.pp
View File

@ -81,6 +81,7 @@ type
FRecentProjectFiles: TStringList;
FMaxRecentProjectFiles: integer;
FLastOpenDialogDir: string;
FOpenLastProjectAtStart: boolean;
// backup
FBackupInfoProjectFiles: TBackupInfo;
@ -102,8 +103,6 @@ type
read FAutoSaveProject write FAutoSaveProject;
property AutoSaveIntervalInSecs: integer
read FAutoSaveIntervalInSecs write FAutoSaveIntervalInSecs;
property LastSavedProjectFile: string
read FLastSavedProjectFile write FLastSavedProjectFile;
// windows
property SaveWindowPositions: boolean
@ -152,6 +151,10 @@ type
read FMaxRecentProjectFiles write FMaxRecentProjectFiles;
property LastOpenDialogDir: string
read FLastOpenDialogDir write FLastOpenDialogDir;
property LastSavedProjectFile: string
read FLastSavedProjectFile write FLastSavedProjectFile;
property OpenLastProjectAtStart: boolean
read FOpenLastProjectAtStart write FOpenLastProjectAtStart;
// backup
property BackupInfoProjectFiles: TBackupInfo
@ -237,6 +240,7 @@ type
MaxRecentOpenFilesComboBox: TComboBox;
MaxRecentProjectFilesLabel: TLabel;
MaxRecentProjectFilesComboBox: TComboBox;
OpenLastProjectAtStartCheckBox: TCheckBox;
LazarusDirLabel: TLabel;
LazarusDirComboBox: TComboBox;
CompilerPathLabel: TLabel;
@ -323,6 +327,7 @@ begin
FRecentProjectFiles:=TStringList.Create;
FMaxRecentProjectFiles:=5;
FLastOpenDialogDir:='';
FOpenLastProjectAtStart:=true;
// backup
with FBackupInfoProjectFiles do begin
@ -426,6 +431,9 @@ begin
'EnvironmentOptions/AutoSave/IntervalInSecs',FAutoSaveIntervalInSecs);
FLastSavedProjectFile:=XMLConfig.GetValue(
'EnvironmentOptions/AutoSave/LastSavedProjectFile',FLastSavedProjectFile);
FOpenLastProjectAtStart:=XMLConfig.GetValue(
'EnvironmentOptions/AutoSave/OpenLastProjectAtStart',
FOpenLastProjectAtStart);
// windows
FSaveWindowPositions:=XMLConfig.GetValue(
@ -550,6 +558,9 @@ begin
,FAutoSaveIntervalInSecs);
XMLConfig.SetValue('EnvironmentOptions/AutoSave/LastSavedProjectFile'
,FLastSavedProjectFile);
XMLConfig.SetValue(
'EnvironmentOptions/AutoSave/OpenLastProjectAtStart',
FOpenLastProjectAtStart);
// windows
XMLConfig.SetValue('EnvironmentOptions/Desktop/SaveWindowPositions'
@ -1347,13 +1358,26 @@ begin
end;
Show;
end;
OpenLastProjectAtStartCheckBox:=TCheckBox.Create(Self);
with OpenLastProjectAtStartCheckBox do begin
Name:='OpenLastProjectAtStartCheckBox';
Parent:=NoteBook.Page[1];
Left:=4;
Top:=MaxRecentProjectFilesLabel.Top+MaxRecentProjectFilesLabel.Height+5;
Width:=MaxX-10;
Height:=23;
Caption:='Open last project at start';
Show;
end;
LazarusDirLabel:=TLabel.Create(Self);
with LazarusDirLabel do begin
Name:='LazarusDirLabel';
Parent:=NoteBook.Page[1];
Left:=4;
Top:=MaxRecentProjectFilesLabel.Top+MaxRecentProjectFilesLabel.Height+5;
Top:=OpenLastProjectAtStartCheckBox.Top
+OpenLastProjectAtStartCheckBox.Height+5;
Width:=MaxX-10;
Height:=23;
Caption:='Lazarus directory (default for all projects)';
@ -1454,7 +1478,6 @@ end;
procedure TEnvironmentOptionsDialog.OkButtonClick(Sender: TObject);
begin
// ToDo: save options
ModalResult:=mrOk;
end;
@ -1561,6 +1584,7 @@ begin
// recent files and directories
SetComboBoxText(MaxRecentOpenFilesComboBox,IntToStr(MaxRecentOpenFiles));
SetComboBoxText(MaxRecentProjectFilesComboBox,IntToStr(MaxRecentProjectFiles));
OpenLastProjectAtStartCheckBox.Checked:=OpenLastProjectAtStart;
// backup
with BackupInfoProjectFiles do begin
@ -1642,6 +1666,7 @@ begin
MaxRecentOpenFilesComboBox.Text,MaxRecentOpenFiles);
MaxRecentProjectFiles:=StrToIntDef(
MaxRecentProjectFilesComboBox.Text,MaxRecentProjectFiles);
OpenLastProjectAtStart:=OpenLastProjectAtStartCheckBox.Checked;
// backup
with BackupInfoProjectFiles do begin

8
ide/main.pp
View File

@ -536,12 +536,13 @@ begin
and (ExtractFileExt(ParamStr(ParamCount))='.lpi')
and (DoOpenProjectFile(ParamStr(ParamCount))=mrOk) then
// command line project loaded
else if (FileExists(EnvironmentOptions.LastSavedProjectFile))
else if (EnvironmentOptions.OpenLastprojectAtStart)
and (FileExists(EnvironmentOptions.LastSavedProjectFile))
and (DoOpenProjectFile(EnvironmentOptions.LastSavedProjectFile)=mrOk) then
// last project loaded
else
// create new project
DoNewProject(ptProgram);
DoNewProject(ptApplication);
end;
destructor TMainIDE.Destroy;
@ -3389,6 +3390,9 @@ end.
{ =============================================================================
$Log$
Revision 1.99 2001/05/31 13:57:27 lazarus
MG: added environment option OpenLastProjectAtStart
Revision 1.98 2001/05/29 08:16:26 lazarus
MG: bugfixes + starting programs

9
lcl/include/customform.inc
View File

@ -621,9 +621,9 @@ begin
Include(FFormState, fsCreating);
try
if not InitResourceComponent(Self, TForm) then begin
writeln('[TCustomForm.Create] Resource '''+ClassName+''' not found');
Writeln('This is for information purposes only. This is not critical at this time.');
//writeln('[TCustomForm.Create] Resource '''+ClassName+''' not found');
//Writeln('This is for information purposes only. This is not critical at this time.');
// MG: Ignoring is best at the moment. (Delphi raises an exception.)
end;
finally
Exclude(FFormState, fsCreating);
@ -898,6 +898,9 @@ end;
{ =============================================================================
$Log$
Revision 1.19 2001/05/31 13:57:28 lazarus
MG: added environment option OpenLastProjectAtStart
Revision 1.18 2001/03/31 13:35:23 lazarus
MG: added non-visual-component code to IDE and LCL